vb中操作包含sql语句的文本

1825 2003-12-28 09:54:05

程序中读取包含sql的文本(创建数据库用)后执行。

ps:
1.不用FileSystemObject读取并解析后再执行.---太麻烦
2.不用osql或isql ---出现dosexe窗口，烦
3.29号24点以前结贴，无法解决的话跟贴有分：）

...全文

92 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

1825 2003-12-29

打赏
举报

多谢了！！！
第一个和FileSystemObject差不多,原来没想到rst可以一次处理n条insert或update语句。刚刚试了一下居然可以.
用vb直接调osql会出来个dosexe窗口,用户顺手关掉可就完了.没用过xp_cmdshell 学习学习:).

ps:
7.0支持xp_cmdshell吗？

yoki 2003-12-29

打赏
举报

上述CreateDataBase过程，你只要定义一个到服务器的连接(如:cn)即可

然后调用: call CreateDataBase(cn,"c:\myquery.sql")

yoki 2003-12-29

打赏
举报

为什么不用osql呢，用它更简单，不是吗？？

比如：vb中
dim cn as New ADODB.Connection
dim sql as string

cn.open ".......到服务器的连接"
sql="master.dbo.xp_cmdshell ' osql -U username -P password -i c:\myquery.sql'"
cn.execute sql

yoki 2003-12-29

打赏
举报

Private Sub CreateDataBase(cnDataBase as connect,sqlFile As String)
Dim strSql As String, strTmp As String

Open sqlFile For Input As #1
strSql = ""
Do While Not EOF(1)
Line Input #1, strTmp
If UCase(strTmp) = "GO" Then
cn.Execute strSql
strSql = ""
Else
strSql = strSql & strTmp & vbCrLf
End If
Loop
If strSql <> "" Then cnDataBase.Execute strSql
Close #1
End Sub

1825 2003-12-29