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
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
应该没有问题啊
连接可以,你是用DSN连接,自己解决更好,学习