提问vb未发现数据源名称

来源：百度知道编辑：UC知道时间：2024/05/17 00:01:42

Private Sub Command1_Click()

Dim myconn As ADODB.Connection
Dim myrecordset As ADODB.Recordset
Dim myconnstr As String
Dim mysql As String

myconnstr = "Data Source=crm;Initial Catalog=crm;uid=sa;pwd=sa;"
mysql = "select * from t_yh where yhm='" & Text1.Text & "' and mm='" & Text2.Text & "'"

Set myconn = New ADODB.Connection
myconn.Open myconnstr

Set myrecordset = New ADODB.Recordset
myrecordset.CursorType = adOpenDynamic
myrecordset.LockType = adLockPessimistic
myrecordset.CursorLocation = adUseClient

myrecordset.Open mysql, myconn, adOpenDynamic, adLockPessimistic
If (myrecordset.RecordCount > 0) Then
usr = myrecordset("yhm")
js = myrecordset("js")
mainfrm.Show
Unload Me
Else
SysMsg "用户密码错误！"
End If

myconnstr = "Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=SqlServer服务名;Initial Catalog=crm;uid=sa;pwd=sa;"
Data Source要填服务名

不清楚，你再查查标点符号吧！