vb怎么动态连接mysql数据库?????在线等....

Question

vb怎么动态连接mysql数据库?????
odbc 已经装好，可以帮定记录集，我想打开记录集，如何实现？？？？
Dim conn As New Connection
Dim str As String
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "DSN=mysql"
Set rst = New ADODB.Recordset
rst.Open "selelct user_id from users", conn, adOpenKeyset ,adLockReadOnly 
Text1.Text = rst.Fields(1)
rst.Close
conn.Close

Answer 1

打开记录集（下面这条）这步时提示“odbc驱动程序不支持所需属性”！！！！
rst.Open "selelct user_id from users", conn, adOpenKeyset ,adLockReadOnly

Answer 2

conn.Open "DSN=mysql"
改为
conn.Open "FileDSN=mysql.dsn;UID=用户名;PWD=密码"

Answer 3

conn.Open "DSN=mysql"
改为
conn.Open "FileDSN=dns连接名;UID=用户名;PWD=密码"

Answer 4

不行，提示无效的文件dsn'mysql'
我在odcb文件dsn中天加了连接的,数据源名称mysql
你帮我在看看......

Answer 5

我用的是这种联接
Driver={SQL Server};Server=服务器IP;uid=SA;pwd=sa登录密码;database=数据库名

Answer 6

晕
conn.Open "DSN=mysql"
改为
conn.Open "FileDSN=dns连接名;UID=用户名;PWD=密码"
dns连接名 是 mysql啊，怎么连dns都打进去了

Answer 7

你可以这样做，在模块里写个函数，
'建立SQL数据库连接
Public Function ConnectString() _
   As String
'returns a DB ConnectString
   ConnectString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Dcpx;Initial Catalog=Dcpx"（这个语句你可以用ADO控件绑定得到，然后剪过来）
End Function'传递SQL查询语句
Public Function ExecuteSQL(ByVal SQL As String) As ADODB.Recordset
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cn.Open ConnectString    cn.Execute SQL
      
   
    Set rs = New ADODB.Recordset
    rs.Open Trim$(SQL), cn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
    Set ExecuteSQL = rsEnd Function
这样你就可以调用这个EcecuteSQL(str)函数。str就是你的查询语句。

Answer 8

Conntion.ConnectionString = "driver={MySql ODBC 3.51 Driver};Server=localhost;uid=root;pwd=;database=mysql"