Dim strarray(1000) Dim i i=0 Set fso = CreateObject("Scripting.FileSystemObject") Set openfile=fso.OpenTextFile("C:/TP131205KF.TXT",1,True) Do Until openfile.AtEndOfStream strarray(i)=openfile.ReadLine msgbox strarray(i) ‘加到这里就能显示 i= i+1 Loop openfile.Close Set fso=Nothing
Dim adoconn
set adoconn=Createobject("adodb.connection")
connectionstr="" '数据库连接字符串
adoconn.open connectionstr
set amd=createobject("adoconn.command")
amd.ActiveConnection=connectionstr
for j=0 to i-1
amd.commandText=strarry(j)
amd.command Type=1 'command Type 为1是sql查询,4为sql存储
set adorst=adoconn.Execute()
Next