在vb执行一段sql文本文件.txt

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

方法: 
    1.定义一个字符串: Dim sSQL As String 
     Dim NextLine As String 
     Dim FileNum As integer 
    2.用顺序文件打开: 
     FileNum=FreeFile 
     OPen SQL文件 For input As FileNum 
     Do Until Eof(FileNum) 
     Line Input FileNum,NextLine 
     sSQL=sSQL +NextLine+Chr(13)+Chr(10) 
     Loop 
     Close FileNum 
    3.执行SQL 语句: 
     db.Execute sSQL 
<END>