VB 如何连接MYSQL数据库的啊.....急在线等待

Question

如题,求大哥大姐帮帮我..

Answer 1

首先,下载:
MyODBC-3.51.06.exe
安装后可以用下面的安符串连接:
strCon = "driver=mysql odbc 3.51 driver;" & _
                "server=" & strServerIP & ";" & _
                "database=LXJZ;" & _
                "port=3306;" & _
                "uid=userName;" & _
                "pwd=passWord"
strserverip 安装数据库的IP
username 用户名
password 口令

Answer 2

LXJZ  -- 你要连接的数据库名称

Answer 3

下载地址:
http://www.onlinedown.net/soft/9698.htm

Answer 4

Option Explicit'工程->引用->Microsoft ActiveX Data Object 2.0 Library (后面为版本号)
Dim cn As New ADODB.ConnectionPrivate Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    
    rs.Open "select STUFFID, NAME from ASTUFF", cn, adOpenStatic, adLockOptimistic    While Not rs.EOF
        MsgBox rs!STUFFID & ", " & rs!Name
        
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing
End SubPrivate Sub Form_Load()
On Error GoTo Errhandle
    cn.CursorLocation = adUseClient
    cn.ConnectionString = "Driver={OrtMyODBC};Option=0;port=1024;stmt=;Server=localhost;DataBase=orient;User=root;Password="
    cn.Open
    
    Exit Sub
Errhandle:
    MsgBox Err.Description, vbExclamation
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    cn.Close
    Set cn = Nothing
End Sub