如何实现将EXCEL表中的数据自动存储进SQLSERVER数据库中
编号：QA003553
建立日期: 2000年11月16日 最后修改日期：2000年11月16日
所属类别：
韦骏:
操作系统：WIN98
编程工具：VB，SQLSERVER，EXCEL
问题：用VB如何实现将EXCEL表中的数据自动存储进SQLSERVER数据库中，而不必先在SQLSERVER中建好表?
回答:
'TSQL:OPENROWSET
dim adoConnection as new adodn.connection
'set adoConnection=Server.CreateObject("ADODB.Connection")
adoConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=YourDataBaseName;Data Source=YourServerName"
'注意字段类型的匹配、一致、兼容
'adoConnection.Execute "SELECT * INTO YourTableName FROM OPENROWSET('MSDASQL.1', 'driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls','select * from [sheet1$]')"
'可在 SQL Server Query Analyzer 中执行 SQL:
' SELECT * INTO YourTableName FROM OPENROWSET('MSDASQL.1', 'driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls','select * from [sheet1$]')
adoConnection.Execute "INSERT INTO YourTableName SELECT * FROM OPENROWSET('MSDASQL.1', 'driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls','select * from [sheet1$]')"
此问题由playyuer回答。
| |
|
|
| |
|
|
