杭州交通信息网皮肤黑穿玫红色好看:如何用vb语句连接SQL数据库
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 16:15:04
Set Conn = New ADODB.Connection
With Conn
.ConnectionString = CnStr
.Open CnStr
End With
我的SQL数据库没有用户名和密码,怎么写
可以参考下边自己稍作修改即可：
Sub Main()
On Error GoTo On_error
'frmWelcome.Show
Set con = New ADODB.Connection
con.ConnectionString = ("Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=.")
con.Open
con.CommandTimeout = 20
Load frmLogin
frmLogin.Show vbModal
Exit Sub
On_error:
If Err.Number = -2147467259 Or Err.Number = -2147217900 Then
Unload frmWelcome
MsgBox "检查到 SQL Server 未安装或软件所需数据库未安装..." & vbCrLf & "正在进一步检查 SQL Server 的安装情况,若已启动则开始安装数据库... ", vbInformation + vbOKOnly, "系统提示"
Shell (App.Path & "\Installdb.exe")
End
Else
MsgBox Err.Number & Err.Description, vbInformation + vbOKOnly, "系统提示"
End
End If
End Sub
给个例子你参考一下:
Sub Main()
On Error GoTo On_error
'frmWelcome.Show
Set con = New ADODB.Connection
con.ConnectionString = ("Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=.")
con.Open
con.CommandTimeout = 20
Load frmLogin
frmLogin.Show vbModal
Exit Sub
On_error:
If Err.Number = -2147467259 Or Err.Number = -2147217900 Then
Unload frmWelcome
MsgBox "检查到 SQL Server 未安装或软件所需数据库未安装..." & vbCrLf & "正在进一步检查 SQL Server 的安装情况,若已启动则开始安装数据库... ", vbInformation + vbOKOnly, "系统提示"
Shell (App.Path & "\Installdb.exe")
End
Else
MsgBox Err.Number & Err.Description, vbInformation + vbOKOnly, "系统提示"
End
End If
End Sub
不可能没有密码的！