vb 用sql 语句创建数据库。

启动VB60，新建一个工程,在菜单-工程-引用里选"Microsoft ActiveX Data Objects 20 Library",代码里需要有

dim conn As New ADODBConnection

定义ADO数据库对象

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

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

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

连接数据串

connopen 连接数据库

注：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。

1）得到设备名 bName是用户给出的设备名；先查询系统表sysdevices，看用户给出的设备名dbName是否已经存在，如果此设备名存在，就需要更换一个设备名，因为设备名是唯一的。

sql = "select from sysdevices

where name=" & dbName & ""

Set rs = connExecute(sql)

If Not rsEOF Then

MsgBox "设备名"" & dbName & ""

已存在！", 16, "请重新输入名称"

Exit Sub

End If

2）得到数据库名。dbName是用户给出的数据库名；查询系统表sysdatabases，看用户给出的数据库名dbName是否已经存在，如果此数据库存在，就需要更换一个数据库名，像设备名一样，数据库名也是唯一的

sql = "select from sysdatabases

where name=" & dbName & ""

Set rs = connExecute(sql) 下面代码略

3）得到PHYNAME物理名。查询服务器上数据库文件的物理位置serverpath，典型的，我们可以从系统表sysdevices中查询master(这是SQL Server的主库名)数据库的位置，例如G:\MSSQL\DATA\MASTERDAT，则我们的数据库可以建在"G:\MSSQL\DATA\"目录下。

sql = "select name,phyname from sysdevices "

low/16777216为设备号

Set rs = connExecute(sql)

然后遍历记录对象rs，当name="master"时，取出phyname，

从而可以得到物理位置serverpath =G:\MSSQL\DATA\。

4)得到一个空闲的设备号vdevno。设备号合法值1~255，遍历这些号，查找出未被使用的空闲设备号,下面程序得到已有的设备号

sql = "select distinct low/16777216

from sysdevices order by low/16777216"

low/16777216为设备号

5）建立数据库。所需的信息都准备完毕，可以建立数据库了（注：下面的"" & Chr(34) & ""就是一个"""双引号,这样处理后，才能满足语法要求;数据库为20M，则dbSize=51220）

sql = "DISK INIT NAME=" & Chr(34) & ""

& dbName & "" & Chr(34) & ",PHYSNAME="

& Chr(34) & "" & serverpath & "" & dbName

& "dat" & Chr(34) & ",VDEVNO=" & vdevno

& ",SIZE=" & dbSize & ""

Set rs = connExecute(sql) 初始化设备

sql = "CREATE DATABASE " & dbName & "

on " & dbName & "=" & dbSize & ""

注：

第一个dbName是数据库名，

第二个dbName是设备名

Set rs = connExecute(sql)

在设备dbName上建立数据库dbName

MsgBox "数据库"" & dbName & ""建在服务器上

"" & serverpath & "" & dbName & "dat"，

建立成功！", 64, "成功"

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

public cnn as adodbconnection

public rs as abodbrecordset

dim count as integer

count = 0

set cnn = new adodbconncetion

set rs = new adodbrecordset

cnnopen"连接数据库语句"

rsopen"select from 表 where 性别 = '" & 男 &"' and 适合部门='" & 销售部门 & "'" ,cnn

do while rseof =false

count=count+1

rsmovenext

loop

rsclose

首先你的VB必须是安装完整的版本!

然后打开VB点击 [外接程序->可视化数据管理器-> 就可以打开VisData,然后你就可以用他来新建数据库,用他来 *** 作你的数据库

注意:新建数据库通常使用的格式是:

文件->新建->Microsoft Access->展开后有20和70两个,看你自己喜欢随便选一个吧!就这样!还有什么不懂的请补充问题!

1创建数据库

选择菜单"外接程序"->"可视化数据管理器"->打开"visData"->文件->"新建"->Microsoft access->选择数据库版本(version 70 mdb)->输入数据库名->点保存按钮->

2创建表

右键点击数据库窗口中的properties->新建表->输入表名并逐一添加字段的名称、类型、大小、缺省值等信息->生成表

给你一个例子，你自己改吧。

'引用对象库“Microsoft ActiveX Data Objects 28 Library”

'引用对象库“Microsoft ADO Ext 28 For DDL Security”，简称为ADOX

    Dim cat As New ADOXCatalog

    Dim pstr As String

    pstr = "Provider=MicrosoftJetOLEDB40;"

    pstr = pstr & "Data Source="C:\sssmdb"

    pstr = pstr & ";Jet OLEDB:Database"

    catCreate pstr  '创建数据库

Dim cat As New ADOXCatalog  '不用cat用另外一个名字也可以

    Dim pstr As String

    Dim tb1 As New Table

    pstr = "Provider=MicrosoftJetOLEDB40;"

    pstr = pstr & "Data Source="C:\sssmdb"

    pstr = pstr & ";Jet OLEDB:Database"

    catActiveConnection = pstr

    tb1Name = "sss"  '表的名称

    tb1ColumnsAppend "姓名", adVarWChar, 20  '表的第一个字段

    tb1ColumnsAppend "记录1", adInteger    '表的第二个字段

    tb1ColumnsAppend "记录2", adInteger    '表的第三个字段

    tb1ColumnsAppend "记录3", adInteger    '表的第四个字段

    tb1ColumnsAppend "记录4", adInteger    '表的第五个字段

    catTablesAppend tb1    '建立数据表

以上就是关于vb 用sql 语句创建数据库。全部的内容，包括:vb 用sql 语句创建数据库。、vb如何连接sql数据库、如何用vb *** 作数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！