vb脚本文件（vb调用vbs脚本）
如何在VB中执行SQL脚本文件
在MSSQL SERVER的查询分析器中可通过输入如下命令，来执行一个外部的*.sql文件：
EXEC master.dbo.xp_cmdshell 'osql -U username -P password -i "filename"'
注意格式：xp_cmdshell后面的全部字符串要用单引号括起来，由于外部文件名中可能含有空格，所以要把filename字符串再用双引号括起来。比如你的SQL SERVER的用户名为sa,密码为sa,有一个外部文件为C:\Data Base.sql.那么这条语句就应该写成：
EXEC master.dbo.xp_cmdshell 'osql -U sa -P sa -i "C:\Data Base.sql"'.
说了半天，这还是在SQL SERVER中的操作，那么在VB中用代码如何实现呢？
我用VB写了一个小工程，全部代码如下：
Private Const ServerName="Rock"
Private Const UserID="sa"
Private Const PWD="Rock"
Private Const ExternFile="E:\Wang JX\DATABASE.SQL"
Private Sub Form_Load()
Dim conn As New Connection
Dim rs As New Recordset
Dim sql As String
sql="master.dbo.xp_cmdshell 'osql -U " UserID " -P " PWD " -i """ ExternFile """'"
conn.Open "provider=sqloledb;data source=" ServerName ";user id=" UserID ";pwd=" PWD
conn.Execute sql '这一句执行的可能会慢一些
End Sub
VB脚本是什么啊？
是扩展名为vbs的文件，可以执行一些小工作。你可以在百度上搜索“vbs代码”，你会对到很多的。。。
希望对你有帮助 ：）
怎么用VB运行VBS脚本文件
最简单的方法：
shell
"wscript
c: est.vbs"
‘调用系统中的wscript.exe来解析vbs文件
vb是什么意思？
vb是Visual Basic的简称
1、Visual Basic是一种由微软公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
2、这是一种可用于微软自家产品开发的语言。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
扩展资料
1、1991年，美国微软公司推出了Visual Basic(可简称VB）。
2、Visual 意即可视的、可见的，指的是开发像Windows操作系统的图形用户界面（Graphic User Interface,GUI）的方法，它不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。
3、Basic?实际上是一个短语的缩写，这个短语就是 Beginners all_purpose symbolic instruction code ，其中文意思为“初始者通用符号指令代码语言”。
参考资料 ?百度百科-Visual Basic
VB文件是什么
bp）就是用来把所有文件整合在一起用的文件，即一个工程文件代表一个项目。其中工程的构造块主要包括基本模块 (.bas)和窗体模块(.frm）。而窗体文件就是你运行程序时看到的窗体，保存的空间属性分为两个部分。一部分是可以使用字符串来表示的，例如字符串，数字等的信息,存放在扩展名为Frm的文件中；另一部分不能使用字符串表示，例如图片，则存放在与Frm同名，但是扩展名为Frx的二进制窗体文件中。
其他VB中常见的文件还有：
.bas 基本模块
.cls 类模块
.ddf 打包和展开向导 CAB 信息文件
.dep 打包和展开向导从属文件
.dsr 活动的设计器文件
.dsx 活动的设计器的二进制文件
.dws 部署向导脚本文件
.log 加载错误的日志文件
.oca 控件类型库缓存文件
.res 资源文件
.vbg Visual Basic 组工程文件
.vbl 控件许可文件
.vbr 远程自动化注册文件
.vbw Visual Basic 工程工作空间文件
.dll 运行中的 ActiveX 部件
.exe 可执行文件或 ActiveX 部件
.ocx ActiveX 控件
VB脚本怎么写啊？
1、Private Sub Command1_Click()
Const msg1 As String="请在这里输入你想显示的一段话!"
Const msg2 As String="这里是对话框要显示的标题."
MsgBox msg1,vbOkOnly,msg2 '此处代码一定不能添加()
End Sub2、 form1按钮点击事件:
form2.show
form1.hide 3、
启动VB程序，在窗体上放置6个命令按钮，三个标签，一个公用对话框、一个进度条、一个状态栏和一个计时器，窗本的布置请参考附图按钮"Open MP3 File"是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为"00：00"；lable3放在时度条的右边，用来表示歌曲总长。下面就可以编写代码了。首先在窗体的"通用声明"部分声明函数
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim mfn As String
下面就是各个对象的代码了:
Private Sub Form_load()
mfn=""
play.Enabled=False
pause.Enabled=False
stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
Timer1.Enabled=False
Timer1.Interval=500
End Sub
Private Sub open_Click()
On Error GoTo err
With CommonDialog1
.CancelError=True
.Filter="音乐文件|*.mp3;*.wav;*.mid"
.Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action=1
stopplay_Click '停止按钮同时可以设备初始化
mfn=.FileName '这个程序中文件名一定不能带空格
Form1.Caption=.FileName
play.Enabled=True
End With
play_Click
Exit Sub
err:
End Sub
Private Sub play_Click()
On Error Resume Next
Dim t As Long
t=mciSendString("open " + mfn, 0, 0, 0) 'Open后边的空格一定不能丢
Dim ret As String * 128
t=mciSendString("status " + mfn + " length", ret, 128, 0)
'显示歌曲总长
ret=Left(ret, 8)
If ret "" Then
ProgressBar1.min=0
ProgressBar1.Max=Val(ret)
Label3.Caption=Gettime(Val(ret))
End If
play.Enabled=False
pause.Enabled=True
stopplay.Enabled=True
back.Enabled=True
prew.Enabled=True
t=mciSendString("status " + mfn + " mode", ret, 128, 0)
'得到设备的当前状态，是播放还是暂停等等
ret=Left(ret, 8)
StatusBar1.Panels(1).Text=ret
'在状态栏显示播放状态
t=mciSendString("play " + mfn + " form " + Str(ProgressBar1.Value), 0, 0, 0)
'开始播放
Timer1.Enabled=True
End Sub
Private Sub pause_Click()
t%=mciSendString("pause " + mfn, 0, 0, 0)
'发出暂停的命令
play.Enable=True
pause.Enabled=False
stopplay.Enabled=True
back.Enabled=False
prew.Enabled=False
End Sub
Private Sub stopplay_Click()
t%=mciSendString("stop " + mfn, 0, 0, 0)
t%=mciSendString("close " + mfn, 0, 0, 0)
'停止播放
play.Enabled=True
pause.Enabled=False
stopplay.Enabled=False
back.Enabled=False
prew.Enabled=False
End Sub
Private Sub back_Click()
t%=mciSendString("play " + mfn + " from " + Str(ProgressBar1.Value - (ProgressBar1.Max \ 10)), 0, 0, 0) '向后跳一小段再播放
End Sub
Private Sub prew_Click()
t%=mciSendString("play " + mfn + " from " + Stri(ProgressBar1.Value + (ProgressBar1.Max \ 10)), 0, 0, 0) '向前跳一小段再播放
End Sub
Private Sub Timer1_Timer()
Dim t As Long
Dim ret As String * 128
t=mciSendString("status " + mfn + " position", ret, 0, 0)
'得到当前播放位置
ret=Left(ret, 8)
ProgressBar1.Value=Val(ret)
Label1.Caption=Gettime(Val(ret))
'显示歌曲当前时间
If ProgressBar1.Value=ProgressBar1.Max Then
stopplay_Click
End If
t=mciSendString("status " + mfn + " mode", ret, 128, 0)
ret=Left(ret, 8)
StatusBar1.Panels(1).Text=ret
End Sub
Private Sub Form_Unload(Cacel As Integer)
t%=mciSendString("stop " + mfn, 0, 0, 0)
t%=mciSendString("close " + mfn, 0, 0, 0)
End Sub
Private Function Gettime(position As Long) As String
'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
Dim min, sec
min=position / 1000
min=min / 60
sec=min - Int(min)
min=Int(min)
sec=60 * sec / 100
sec=Int(sec * 100)
Gettime=Str(min) + ":" + Str(sec)
End Function