Question

VB ADO 查询SQL 2005提示“超时已过期”，数据很多1000万左右条数据。

Sql = " insert into dbo.Alipay_Account select * from opendatasource('Microsoft.ACE.OLEDB.12.0', 'Data Source=G:\Alipay\ALIPAY报表\2010年Alipay报表\09月份alipay各天明细\2010年09月22日帐户明细.xlsx; User ID=Admin;Password=;Extended properties=Excel 5.0')..._2010年09月22日帐户明细$"

Rs.Open Sql, Cnn, adOpenKeyset, adLockOptimistic
提示“超时已过期”
请哪位高手帮忙解决下问题。我是新手。

Answer 1

你应该使用大容量复制程序（bcp实用工具）
或者在T-SQL批处理、存储过程和触发器中使用BULK INSERT 语句
或者分多次插入数据，例如用where子句 (日期>=某日 and 日期<=某日)

Answer 2

conn.CommandTimeout = 1800 '查询等到时间设置为1800秒即半个小时
conn.Open strConn '打开数据库链接

Answer 3

conn1.open "Microsoft.ACE.OLEDB.12.0', 'Data Source=G:\Alipay\ALIPAY报表\2010年Alipay报表\09月份alipay各天明细\2010年09月22日帐户明细.xlsx; User ID=Admin;Password=;Extended properties=Excel 5.0"
conn2.open "数据库连接字符串"
Sql = "select * from 2010年09月22日帐户明细$"
set rs=conn1.execute(sql)
do while not rs.eof
sql="insert into Alipay_Account(列一,列二,列三) values ('"&rs(0)&"','"&rs(1)&"','"&rs(2)&"')"
conn2 execute sql
rs.movenext
loop

Answer 4

rs.activeconnection.commandtimeout=9999