前不久做一个VB执行SQL2000数据库脚本程序,本打算先读取脚本文件,再一条条执行,但这样效率太低,于是采取下面这种方法: 1.新建脚本文件,保存在C:/下面,如C:/Test.sql,文件如下: USE master GO CREATE DATABASE Test GO USE Test GO CREATE TABLE [dbo].[students] ( [ID] [int] IDENTITY (1,1) NOT NULL, [Name] [nvarchar] (6) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO ALTER TABLE [dbo].[students] WITH NOCHECK ADD CONSTRAINT [PK_students] PRIMARY KEYCLUSTERED ( )ON [PRIMARY] GO INSERT INTO students(Name) VALUES('古月轩') GO 2.新建VB工程文件Test.vbp,保存在C:/Test目录下面,如C:/Test/Test.vbp,在该工程下新建窗体frmTest.frm并保存;
3.编写代码并执行,代码如下: Option Explicit Dim strServer,strUid,strPwd,strFile As String Private Sub CmdExec_Click() strServer = txtServer.Text '数据库服务器名 strUid = txtUser.Text'数据库用户名 strPwd = txtPwd.Text '数据库用户密码 strFile = txtfile.Text '需执行脚本文件名 Shell "osql -U" & strUid & " -P " & strPwd & " -S " & strServer & " -i " & Chr(34) & strFile & Chr(34),vbHide MsgBox "Successful",vbInformation,"提示" End Sub Private Sub cmdExit_Click() Unload Me End Sub (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|