救命啊！100分，在线等~~急！

lovegun 2002-09-30 02:07:46

我想在一个VB程序中实现以下功能：
1：我用SQL SERVER的DTS向导保存了一个BAS文件，请问如何在程序中调用？需要连数据库吗？还是直接把BAS文件代码贴到程序里就可以了？
2：完了后我想执行一段SQL代码。c:\data.sql这个文件,我在VB中如何执行? ,请各位大侠赐教,多谢!

...全文

19 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

lovegun 2002-09-30

打赏
举报

谢谢楼上的星星我来了！！谢谢~！！问题已解决，请收分~

antshome 2002-09-30

打赏
举报

bas里的sub main你可以改成你自己的函数名，在程序里调用可以执行DTS任务

antshome 2002-09-30

打赏
举报

这个应该直接加入工程就可以用了，要引用一下Microsoft DTSPackage Object Library

lovegun 2002-09-30

打赏
举报

第二个问题解决了，请帮忙解决第一个问题啊~：我用SQL SERVER的DTS向导保存了一个BAS文件，请问如何在程序中调用？需要连数据库吗？还是直接把BAS文件代码贴到程序里就可以了？

lovegun 2002-09-30

打赏
举报

data.sql的内容。。YL99这个表在LIX这个库里。 VFP数据源连的是LIX库。
update yl99
set fd06=cbld.fd06
from yl99,cbld
where yl99.[fd01]=cbld.[fd01]
and yl99.[fd03]=cbld.[fd03]
and yl99.[fd02]=cbld.[fd02]
and yl99.[fd04]=cbld.[fd04]
and yl99.[fd05]=cbld.[fd05]

但是问题又来了他报告找不到YL99这个表。应该没有错啊`

lovegun 2002-09-30

打赏
举报

请问你的那个conn.open"" '打开数据库里要输入什么内容？我的数据源名称为VFP。

还有这个
1：我用SQL SERVER的DTS向导保存了一个BAS文件，请问如何在程序中调用？需要连数据库吗？还是直接把BAS文件代码贴到程序里就可以了？
这个是怎么搞的？

antshome 2002-09-30

打赏
举报

没关系啊，可以一起执行的

引用Microsoft Script库

dim fso as new filesystemobject
dim szSQL as string
dim f
set f=fso.opentextfile("c:\data.sql")
szsql=f.readall
f.close
set fso=nothing

dim conn as new adodb.connection
conn.open "" '打开数据库
conn.execute szsql