vb mysql 未发现数据源名称_VB 未发现数据源名称

OptionExplicitDimcntAsInteger'记录确定次数PrivateSubForm_Load()DimconnAsNewadodb.Connectionconn.connectionstring="Driver={sqlserver};server=192.168.1.33;uid=sa;pwd=haiyan...

Option Explicit

Dim cnt As Integer '记录确定次数

Private Sub Form_Load()

Dim conn As New adodb.Connection

conn.connectionstring = "Driver={sql server};server=192.168.1.33;uid=sa;pwd=haiyan;database=pingyusql"

conn.ConnectionTimeout = 30

conn.Open

End Sub

Private Sub XPButton1_Click()

Dim sql As String

Dim rs_login As New adodb.Recordset

Dim rs_jl As New adodb.Recordset

Dim jlsql As String

Dim conn As String

sql = "select * from 系统管理 where 用户名='" & user.Text & "'"

rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

If rs_login.EOF = True Then

MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

user.SetFocus

Else '检验密码是否正确

If Trim(rs_login.Fields(1)) = Trim(pass.Text) Then

rs_login.Close

Unload Me

Form3.Show

Else

MsgBox "密码不正确", vbOKOnly + vbExclamation, ""

End If

End If

jlsql = "insert into jl values ('" & user.Text & "','" & pass.Text & "')"

rs_jl.Open jlsql, conn

cnt = cnt + 1

If cnt = 3 Then

Unload Me

End If

Exit Sub

End Sub

总提示[ODBC 驱动程序管理器]未发现数据源名称并且为指定默认驱动程序.到底哪错了哦?该怎么修改呢?

就是

rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

这句提示的

展开