Dim strSQL As String
Dim cn As New Connection
Set conn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=f:\book1.xls;Extended Properties=Excel 8.0"
strSQL = "SELECT * INTO custome from [Sheet1$]"
conn.Open "Provider=SQLOLEDB.1;Password=sa123;Persist Security Info=true;User ID=sa;Initial Catalog=CQM-DPBDB;Data Source=CQ"
cn.Execute strSQL, conn, adExecuteNoRecords
MsgBox "导入成功!"程序提示导入成功,而且第二次运行提示custome表已经存在,可是数据库中并没有
建立这个表,到底那里的问题????
Dim cn As New Connection
Set conn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=f:\book1.xls;Extended Properties=Excel 8.0"
strSQL = "SELECT * INTO custome from [Sheet1$]"
conn.Open "Provider=SQLOLEDB.1;Password=sa123;Persist Security Info=true;User ID=sa;Initial Catalog=CQM-DPBDB;Data Source=CQ"
cn.Execute strSQL, conn, adExecuteNoRecords
MsgBox "导入成功!"程序提示导入成功,而且第二次运行提示custome表已经存在,可是数据库中并没有
建立这个表,到底那里的问题????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货