dim cn as new adodb.connectioncn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=A1......"cn.execute "select * into tablename in B1 from tablename"'或不带数据 cn.execute "select * into tablename in B1 from tablename where false"
Dim cn As New ADODB.connection cn.Open "driver={sqlerver};server=server;database=Mis;uid=sa;pwd=sa" cn.execute "select * into tableDec in DBdec from TB1 where false"
"Data Source=A1......"cn.execute "select * into tablename in B1 from tablename"'或不带数据
cn.execute "select * into tablename in B1 from tablename where false"
好像在SQLServer中就不行了,是不是啊!请问。
只是connectstring不一样
SQLServer的话
cn.open "DRIVER=SQLServer;Server=YourServer;DataBase=YourData;.." &
你好,我试过了,可是直的不行。(SqlServer中)
Dim cn As New ADODB.connection
cn.Open "driver={sqlerver};server=server;database=Mis;uid=sa;pwd=sa"
cn.execute "select * into tableDec in DBdec from TB1 where false"