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

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 10 行

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