求教VB6.0中Excel数据导入SQL2005的问题 - VB6论坛

楼主

问题点数：0 回复次数：1

求教VB6.0中Excel数据导入SQL2005的问题

编程环境是server2003+0ffice2003+SQL2005，想要将excle表格的内容导入SQL中的对应表格，程序代码如下：

程序代码：

Private Sub Command1_Click()
Dim strconn As String
Dim stremp As String
Dim cn As New ADODB.Connection
Dim cnn As New ADODB.Connection
stremp = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=test;PWD=test;Initial Catalog=Progam_Data;Data Source=localhost"
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\temp.xls;Extended Properties=Excel 8.0"
cn.Open strconn
cnn.Open stremp
Set rstschema = cn.OpenSchema(adSchemaTables)
Do Until rstschema.EOF
strsql = "insert into" & strtemp & " TEST_N select * from[" & rstschema!TABLE_NAME & "]"

cn.Execute strsql, Ingrecsaff, adExecuteNoRecords
rstschema.MoveNext
Loop
End Sub

问题：1、如果事先不打开E:\Temp\temp.xls文件，会报错“外部表不是预期的格式。”
2、事先打开E:\Temp\temp.xls文件，在红色代码处会出现“Microsoft Jet数据库引擎找不到对象'TEST_N'。”其中TEST_N是想要导入的目标表格。
谢谢大家啊~~

搜索更多相关主题的帖子: 表格　 Excel　