我现在有很多结构相同的EXCEL文件,每个EXCEL文件中只有一个表,而且每个表的名字和EXCEL文件的名字是一样的,想通过VB程序先选择EXCEL文件,然后点击导入按纽将这个EXCEL表中的数据快速导入MS SQL数据库中某一数据库的以EXCEL文件名为表名的表中,并且要将EXCEL表的第一列作为表的字段名.
例如:有一个名为3809V00123B.xls的文件,并且里面有一张3809V00123B的表
MS SQL数据库中有一个已经建立的名字为ABC的数据库，想通过VB程序将
3809V00123B表的数据导入ABC数据库中，并命名为2809V00123B表，各字段名
为3809V00123B表第一行的相应格内容.
请教各位高手如何才能实现此功能。最好能给出源代码，先谢了！！！：）
例如:有一个名为3809V00123B.xls的文件,并且里面有一张3809V00123B的表
MS SQL数据库中有一个已经建立的名字为ABC的数据库，想通过VB程序将
3809V00123B表的数据导入ABC数据库中，并命名为2809V00123B表，各字段名
为3809V00123B表第一行的相应格内容.
请教各位高手如何才能实现此功能。最好能给出源代码，先谢了！！！：）
FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
------------------------------------------------------------------------------------------------- 2、将Excel的数据导入SQL server :-- ======================================================SELECT * into newtableFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$] 实例:SELECT * into newtableFROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions------------------------------------------------------------------------------------------------- 3、将SQL SERVER中查询到的数据导成一个Excel文件-- ======================================================T-SQL代码：EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'参数：S 是SQL服务器名；U是用户；P是密码说明：还可以导出文本文件等多种格式 实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"' EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword' 在VB6中应用ADO导出EXCEL文件代码： Dim cn As New ADODB.Connectioncn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"------------------------------------------------------------------------------------------------- 4、在SQL SERVER里往Excel插入数据:-- ======================================================insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3) T-SQL代码：INSERT INTO OPENDATASOURCE('Microsoft.JET.OLEDB.4.0', 'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$] (bestand, produkt) VALUES (20, 'Test') -------------------------------------------------------------------------------------------------总结：利用以上语句，我们可以方便地将SQL SERVER、ACCESS和EXCEL电子表格软件中的数据进行转换，为我们提供了极大方便！