2024年4月15日发(作者：)

VB中使用语句创建SQL数据库等操作

这个小工具由VB开发，利用ADO 访问数据库，实现更改数据库结构，

其他语言也可以此作为参考。启动VB6.0，新建一个工程,在菜单-工程-

引用里选"Microsoft ActiveX Data Objects 2.0 Library",代码里需

要有：

dim conn As New tion

定义ADO数据库对象

tionString = "driver={SQL Server};" & _

"server=" & ServerName & ";uid=" & UserName & ";

pwd=" & Password & ";database=" & DatabaseName & ""

连接数据串

连接数据库

注：ServerName为服务器名；UserName为用户名；Password为用

户口令； DatabaseName要登录的数据库名，可以为空。

核心代码如下：

一、建立数据库

原理：建立数据库先要初始化一个数据库设备，然后在此设备上

建立数据库。所有的设备名在系统表"sysdevices"里有记录，所有的数

据库名在系统表"sysdatabases"里有记录。在建立之前，最好先查询这

两个系统表，看名称是否已经存在。在建立设备之前，还需要的一个物

理名和空闲的设备标识号。

初始化设备语法：

DISK INIT NAME="device_name",PHYNAME=

"physical_name",VDEVNO=device_number,

SIZE=numberofblock

说明：这里，NAME是数据库设备名（一个有效的标识符），

PHYNAME(数据库设备的物理名)是原始的磁盘分区UNIX或外设（vms）

名，或者是操作系统的文件名。VDEVNO时数据库的设备标识号，合法值

为1-255，SIZE的单位是2KB的块，例如1MB（1024KB）时SIZE值为

512。

建立数据库语法：CREATE DATABASE database_name [ON

database_device]

说明：database_name是要建的数据库名，database_device是设

备名

要新建立一个数据库，就需要设备名，数据库名，物理名和设备

号。具体步骤如下：

我们假设用户要新建立设备dbName，在设备dbName上建立数据库

dbName。