关于mysql +vb 的问题!

Question

vb中，和mysql链接之后,怎么对mysql里的数据进行操作。
recderset?Execute ?command?
给一下示例，谢谢 立马结帐

Answer 1

Dim Con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set Con = New ADODB.Connection
    Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\DB.mdb;Persist Security Info=False"
    Set rs = New ADODB.Recordset
    
    Con.Execute "Delete From Table"       ’删除记录
    rs.Open "Select * From Table", Con, adOpenKeyset, adLockOptimistic  ‘读取记录

Answer 2

Dim Con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set Con = New ADODB.Connection
    strCon = "driver=mysql odbc 3.51 driver;" & _
                "server=服务器IP;" & _
                "database=数据库名称;" & _
                "port=3306;" & _
                "uid=用户名;" & _
                "pwd=在这里写口令"
    Con.Open strCon
    Set rs = New ADODB.Recordset
    '添加记录
    strsql="select * from table"
    rs.Open strsql, Con, adOpenKeyset, adLockOptimistic      
    rs.addnew
       rs!字段1=text1.text
       rs!字段2=text2.text
       ........
    rs.update
    rs.close
    set rs=nothing
    '修改记录
    strsql="select * from table where id=1"
    rs.Open strsql, Con, adOpenKeyset, adLockOptimistic      
       rs!字段1=text1.text
       rs!字段2=text2.text
       ........
    rs.update
    rs.close
    set rs=nothing
        
    '删除记录
    strsql="delete from table where id=1"
    rs.Open strsql, Con, adOpenKeyset, adLockOptimistic      
       

Answer 3

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordsetstrcon = "driver=mysql connector/odbc v5;" & _
        "server=localhost;" & _
         "database=test;" & _
         "port=3306;" & _
         "uid=root;" & _
         "pwd=waj"
cn.Open strcon
Set rs = New ADODB.Recordset
rs.Open "select * from fisttable", cn, adOpenKeyset, adLockOptimistic  End Sub运行时，他说vb遇到问题，然后vb就直接关闭了!rs.open那句

Answer 4

用3.51的ODBC驱动能成功，用V5的驱动不行