如何用最简单的办法将基于access数据库的程序转到sql上来？？？在线等待。。

Question

只需把连接数据库的语句改一下就可以了，可用ODBC.

Answer 1

特别是：Set Rc2 = DB.OpenRecordset("PROGNAME", dbOpenTable)
        Rc2.Index = "primarykey"
        Rc2.Seek "=", Trim(Rc1!user12), Trim(Rc1!user13)
        If Rc2.NoMatch = False Then
            i = i + 1
            vaSp1.Row = i
            vaSp1.Col = 1:  vaSp1.Text = Rc1!USER16
            vaSp1.Col = 2:  vaSp1.Text = Rc1!user13
        End If
        Rc1.MoveNext
    我找不到简单的解决办法
以前的程序里面有好多这样的程序段 ：《

Answer 2

问题已经解决，感谢 sunxl(じ小呆☆`~o) ！！
    'Set DB = OpenDatabase("C:\SOMCIM\NEWSOMCIM.mdb")
    Set DB = OpenDatabase("", False, False, "ODBC;DSN=sample-MySQL;DB=dbname;SERVER=192.168.0.1;UID=username;PWD=password;PORT=3306;OPTION=0;STMT=;")
'        Set Rc2 = DB.OpenRecordset("PROGNAME", dbOpenTable)
 '       Rc2.Index = "primarykey"
 '       Rc2.Seek "=", Trim(Rc1!user12), Trim(Rc1!user13)
        Set Rc2 = DB.OpenRecordset("Select * from PROGNAME where PRGO11 = '" & Trim(Rc1!user12) & "' and PRGO12 = '" & Trim(Rc1!user13) & "';")注释部分为原来的程序，其他为改好的部分！