View Full Version : سوال: connect to mysql in vb
nadi_gh
چهارشنبه 04 دی 1387, 13:57 عصر
سلام
برنامه ی من با vb.6 نوشته شده .برای وصل شدن به mysql از کد زیر استفاده کردم اما با این error مواجه میشم.
microsoft odbc driver manager data source name not found and no default driver specified
کد برنامه:
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub cmdConnect_Click()
Set Cn = New ADODB.Connection
Cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & localhost& ";" _
& "DATABASE=" & test& ";" _
& "UID=" & root & ";" _
& "PWD=" & **** & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
Cn.CursorLocation = adUseClient
Cn.Open
MsgBox "Connected"
ممنون کمکم کنید.
Yousha
چهارشنبه 04 دی 1387, 16:28 عصر
سلام،
VB رو چه به MySQL
Dim strDataBaseName As String
Dim strDBCursorType As String
Dim strDBLockType As String
Dim strDBOptions As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Private Sub Command1_Click()
On Error GoTo Command1_Click_Error
Dim b as Long
strDBCursorType = adOpenDynamic 'CursorType
strDBLockType = adLockOptimistic 'LockType
strDBOptions = adCmdText 'Options
Set cn = New ADODB.Connection
Me.MousePointer = 11
cn.Open ConnectString()
With cn
.CommandTimeout = 0
.CursorLocation = adUseClient
End With
Set rs = New ADODB.Recordset 'Creates record set
strSQL = "<Your SQL Here>"
rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions
if rs.Eof then
Goto ExitSub
else
For b = 1 To rs.RecordCount
'<do whatever you need to do with the data here>
Next b
end if
ExitSub:
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
On Error GoTo 0
Exit Sub
Command1_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") & _
in procedure Command1_Click of Form " & Me.Name
End Sub
Private Function ConnectString() As String
Dim strServerName as String
Dim strDatabaseName as string
Dim strUserName as string
Dim strPassword as string
'Change to IP Address if not on local machine
'Make sure that you give permission to log into the
'server from this address
'See Adding New User Accounts to MySQL
'Make sure that you d/l and install the MySQL Connector/ODBC 3.51 Driver
strServerName = "localhost"
strDatabaseName = "DatabaseName"
strUserName = "UserName"
strPassword ="Password"
ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & strServerName & _
";DATABASE=" & strDatabaseName & ";" & _
"USER=" & strUserName & _
";PASSWORD=" & strPassword & _
";OPTION=3;"
End Function
http://www.freevbcode.com/ShowCode.asp?ID=6366
http://www.freevbcode.com/ShowCode.asp?ID=6187
http://dev.mysql.com/downloads/connector/odbc/5.1.html
http://www.base64.co.uk/mysql-odbc-driver
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.