Private Sub Command1_Click()Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
connstr = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=localhost;" & "port=3306;"_ & "DATABASE=myodbc;" & "UID=root;PWD=root;OPTION=3"
conn.Open connstr
rs.Open "create table dian2  select * from  dian1"
rs.Close
conn.Close
Set rs = Nothing
Set conn = NothingEnd Sub

解决方案 »

  1.   

    ODBC版本不匹配?分享一下答案
      

  2.   

    就是把database搞错了,在配置odbc(myodbc3.51)时把data source name 搞成了database,新手啊,就是难啊!
      

  3.   

    Driver={MySQL ODBC 5.1 Driver};Server=localhost;Port=3306;Database=zz;USER=root;Pwd=123;
    应该没有问题啊
      

  4.   

    我用Driver={MySQL ODBC 5.1 Driver};Server=localhost;Port=3306;Database=zz;USER=root;Pwd=123; 
    连接可以,你是用DSN连接,自己解决更好,学习
      

  5.   

    送分给WWWWA,给我没收了,不值!