求VB6用ADO链接MYSQL的方法。

Question

求VB6用ADO链接MYSQL的方法。

Answer 1

'客户端也需要安装mysql驱动
dim Conn as new adodb.connection
With Conn
    If .State = adStateOpen Then .Close
    .ConnectionString = " DRIVER={MySQL ODBC 5.1 Driver};" _
                      & " SERVER=服务器名;" _
                      & " DATABASE=数据库名;" _
                      & " UID=登录名;" _
                      & " PWD=登录密码;" _
                      & " stmt=SET NAMES GB2312"    .CommandTimeout = 0
    .Open
End With

Answer 2

" SERVER=服务器名;"如果我只是知道IP地址怎么办？
" stmt=SET NAMES GB2312"这句啥意思？

Answer 3

stmt=SET NAMES GB2312:设定字符集

Answer 4

" SERVER=服务器名;"如果我只是知道IP地址怎么办？-------直接输入IP即可
" stmt=SET NAMES GB2312"这句啥意思？---中文

Answer 5

connStr = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & dbServer & _
    ";DATABASE=" & dbDB & ";UID=" & dbUID & ";PWD=" & dbPWD & ";OPTION=3;"
conn.Open connStr
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
connStr = "select *from box_list"
rs.Open connStr, conn
If rs.RecordCount > 0 Then
    rs.MoveFirst
End If为啥recordcount为-1呢？数据库里确实有数据啊。