VB执行SQL2000数据库脚本程序

最新推荐文章于 2024-09-02 09:53:10 发布

原创最新推荐文章于 2024-09-02 09:53:10 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #脚本 #vb #sql #数据库服务器 #go

本文介绍如何使用VB高效执行SQL2000数据库脚本。通过新建SQL脚本文件并创建数据库及表，然后在VB工程中编写代码，利用osql命令行工具连接数据库并执行脚本，实现快速操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

前不久做一个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 KEY  CLUSTERED
(
)  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