如何实现将excel表中的数据自动存储进sqlserver数据库中.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

'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$]')"