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

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

方法: 
    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>