vb数据库创建数据库

『壹』 vb 用sql 语句创建数据库。

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

dim conn As New ADODB.Connection
定义ADO数据库对象
conn.ConnectionString = "driver={SQL Server};" & _
"server=" & ServerName & ";uid=" & UserName & ";
pwd=" & Password & ";database=" & DatabaseName & ""
连接数据串
conn.open 连接数据库
注：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 = conn.Execute(sql)
If Not rs.EOF Then
MsgBox "设备名"" & dbName & ""
已存在！", 16, "请重新输入名称"
Exit Sub
End If
2）得到数据库名。dbName是用户给出的数据库名；查询系统表sysdatabases，看用户给出的数据库名dbName是否已经存在，如果此数据库存在，就需要更换一个数据库名，像设备名一样，数据库名也是唯一的
sql = "select * from sysdatabases
where name=" & dbName & ""
Set rs = conn.Execute(sql) 下面代码略
3）得到PHYNAME物理名。查询服务器上数据库文件的物理位置serverpath，典型的，我们可以从系统表sysdevices中查询master(这是SQL Server的主库名)数据库的位置，例如G:\MSSQL\DATA\MASTER.DAT，则我们的数据库可以建在"G:\MSSQL\DATA\"目录下。
sql = "select name,phyname from sysdevices "
low/16777216为设备号
Set rs = conn.Execute(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=512*20）
sql = "DISK INIT NAME=" & Chr(34) & ""
& dbName & "" & Chr(34) & ",PHYSNAME="
& Chr(34) & "" & serverpath & "" & dbName
& ".dat" & Chr(34) & ",VDEVNO=" & vdevno
& ",SIZE=" & dbSize & ""
Set rs = conn.Execute(sql) 初始化设备
sql = "CREATE DATABASE " & dbName & "
on " & dbName & "=" & dbSize & ""
注：
第一个dbName是数据库名，
第二个dbName是设备名
Set rs = conn.Execute(sql)
在设备dbName上建立数据库dbName
MsgBox "数据库"" & dbName & ""建在服务器上
"" & serverpath & "" & dbName & ".dat"，
建立成功！", 64, "成功"

『贰』 在VB中怎样建立数据库 然后再与数据库连接

新建exe工程

菜单-工程-引用

Microsoft ActiveX Data Objects 6.1 Library

Microsoft ADO Ext. 6.0 for DDL and Security

添加模块conn

粘贴代码

PubliccatAsNewADOX.Catalog
PublicconnAsNewADODB.Connection
PublicrsAsNewADODB.Recordset
PublicmdbpathAsString

PrivateFunctionGetconn()'连接数据库
Cl
mdbpath=app.Path'数据库路径设置为程序本体根目录
pstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&mdbpath&"Main.mdb"&";Mode=12;JetOLEDB:DatabasePassword=pdjj888"
conn.Openpstr
conn.CursorLocation=adUseClient
EndFunction
PublicFunctionCl()'断开数据库
OnErrorGoToerr
Ifconn.State=adStateOpenThen
conn.Close
Setconn=Nothing
EndIf
err:
EndFunction

PublicFunctionSe(sqlAsString)'执行sql语句
'OnErrorGoToerr
Getconn
conn.Executesql,Se
'err:
EndFunction
PublicFunctionGe(sqlAsString)'查询
'OnErrorGoToerr
Getconn
rs.Opensql,conn,adOpenDynamic,adLockPessimistic
'err:
'Iferr=3265Then
'Ck"提示","服务器繁忙,请重试!"
'EndIf
EndFunction

PublicFunctionCatdata()'创建初始数据库
pstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&mdbpath&"Main.mdb"&";Mode=12;JetOLEDB:DatabasePassword=pdjj888"
DimsqlAsString
IfDir(mdbpath&"Main.mdb")=""Then
cat.Createpstr'创建数据库
Setcat=Nothing
conn.Openpstr'打开数据库
'创建商品类型表
sql="CREATETABLEspstyle(lidintprimarykey,stylenameVARCHAR,styltagVARCHAR,FontVARCHAR,styledjint)"
conn.Execute(sql)
sql="(1,1)"'自动编号
conn.Execute(sql)
'创建商品表
sql="CREATETABLEsps(sidintprimarykey,lidint,spnameVARCHAR,sptagVARCHAR,spdjint,spdatedate)"
conn.Execute(sql)
sql="(1,1)"'自动编号
conn.Execute(sql)
'创建奖券类型表
sql="CREATETABLEjzstyle(jidintprimarykey,jznameVARCHAR,jztagVARCHAR,jzslint,jzjlDouble,jzdatedate)"
conn.Execute(sql)
sql="(1,1)"'自动编号
conn.Execute(sql)
'创建奖券表
sql="CREATETABLEjzs(zidintprimarykey,jznameVARCHAR,jztagVARCHAR,jzdatedate)"
conn.Execute(sql)
sql="(1,1)"'自动编号
conn.Execute(sql)
Cl
EndIf
EndFunction

『叁』 如何用vb创建数据库 求高手

1.在界面上点接外接程序
2.可视化数据管理器
3.新打开的界面点文件
4.新建
5.选MICSOFT ACCESS
6.选择一个MDB按自己要求进行表的设置

『肆』 如何用VB建立数据库

1、首先点击打开主菜单栏中的“外接程序”选项。

『伍』 怎样创建一个数据库,在VB里

首先你的VB必须是安装完整的版本!
然后打开VB.点击 [外接程序->可视化数据管理器-> 就可以打开VisData,然后你就可以用他来新建数据库,用他来操作你的数据库.
注意:新建数据库通常使用的格式是:
文件->新建->Microsoft Access->展开后有2.0和7.0两个,看你自己喜欢随便选一个吧!就这样!还有什么不懂的请补充问题!

『陆』 vb 中建立数据库

打开VB6.0 编译环境
外接程序---可视化数据管理器--文件--新建
这样就可以建立 常用的各种类型数据库
新建完 在数据库窗口~右键鼠标-新建表

『柒』 VB创建数据库表

一、 创建数据库：

在DAO中用CreatDataBase方法可以根据用户需求动态的创建数据库。这一点在程序中是非常有用的。用户可以根据要求实时建立数据库。建立过程如下：

Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "数据库名称.mdb" ，dbLangGeneral
Msgbox "数据库建立完毕"
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub

这样，数据库便在当前默认的路径下建立了。

二、 创建表与字段：

建立数据库后，则需要在该数据库中建立表，这要用到TableDef 对象。先定义一个TableDef类型的对象，然后用TableDef集合中Append方法将之追加到数据库当中去。并且同时定义一个Field对象，用CreatFiele的方法创建一个Field对象，向表中添加字段。例如:

Private Sub Com_table_Click()
On Error GoTo Err100
Dim Defdb As DataBase
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase (App.path & "\数据库名称.mdb" ,0, False)
Set NewTable = DefDataBase.CreateTableDef("表名")
Set NewField = DefTable.CreateField( "字段名" , dbText ,6) ′创建一个字符型的字段，长度为6个字符
DefTableFields.Append NewField ′字段追加
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox " 表建立完毕 "
Exit Sub
Err100:
MsgBox "对不起，不能建立表。请先再建表前建立数据库？", vbCritical
End Sub

『捌』 VB中如何创建数据库，表，字段

病情分析：
你好，怀孕初期有的有反应有的是什么反应都没有的。
指导意见：
你好，一般我们是根据月经是否推迟，然后做个早早孕试验，祝你好运。

病情分析：
根据您的描述您上述情况属于怀孕初期了解的问题，一般来说怀孕初期首先出现的应该是月经推迟
指导意见：
如果你的月经推迟超过一周以上还是不能来，那么就应该考虑是怀孕了，你可以选择之后就诊正规医院检查清楚，做个血HCG检查确定吧

病情分析：
你好，怀孕初期一般有停经，呕吐，乏力，疲劳等症状。
指导意见：
建议怀孕早期要适当休息，不要劳累，怀孕初期三个月很重要。

病情分析：
您好，怀孕初期月经期不来潮、常有恶心、呕吐的感觉、乳房有刺痛、膨胀和搔痒感。容易疲倦，常常会想睡觉，也会出现尿频。孕初期心理的变化易暴躁或多疑。
指导意见：
您好，注意个人卫生。妇女怀孕后，阴道分泌物增多，外阴部易被细菌感染，要经常清洗，勤洗澡，勤换内裤。注意适当的工作与活动。但强度不宜大，避免剧烈运动，防止受到外伤。注意必要的营养。食物要多样化，要容易消化和吸收。注意衣着。衣着要柔软、宽大，不要束腰和穿紧身裤，不要穿高跟鞋。

定期做孕期检查，以便及时了解胎位和胎儿发育情况。妊娠7个以内每月检查一次；8-9个月时，应每半个月检查一次；最后一个月应每周检查一次。如遇特殊情况，应随时去医院检查。注意护理乳房。妊娠四个月后，每天用温水及肥皂水均匀擦洗乳房和乳晕，这样可使乳头皮肤坚韧。擦洗后可用手指轻挤乳头，保持畅通。乳头凹陷者应常用手或拔奶器向外牵拉。定期的B超检查：那么，孕期究竟如何做B超检查才是适宜呢？对于这个问题的回答并非是绝对的，需视孕妇的具体情况而定，一般来讲，至少得做3次B超。注意节制性生活。怀孕头3个月和后3个月要避免性生活。以防宫缩引起流产或早产。孕中期的性生活也应有所节制。注意心理卫生。孕妇的情绪通过内分泌系统直接影响胎儿的生理机能，尤其是在妊娠的最后两个月。孕妇可以通过温暖和谐的家庭气氛，充足的休息、睡眠和健康的文化娱乐来影响、调节自己的不良情绪。

病情分析：
你好，怀孕初期一般容易犯困，容易呕吐现象发生，胸部会有明显的涨疼反映。
指导意见：
有些人心情会变的很糟糕，脾气会变的很暴躁。

病情分析：
你好，很高兴为你解答，怀孕后一般开始会有早孕反应，比如恶心，厌油腻等，心理上会有怀孕的欣喜，怕宫外孕的焦虑等
指导意见：
这都是正常的，规律孕检，平常心，均衡饮食，顺其自然就好。

病情分析：
您好，怀孕两三个月左右就会出现妊娠反应，在心理上会因为体内雌激素反应而产生一些改变，只要用良好的心态面对就可以了。
指导意见：
怀孕初期会出现尿频、食欲改变等症状，在饮食上尽量不要挑食，可以选择优质蛋白的食物，还要注意营养的摄入，青菜水果都是必不可少的。另外怀孕期要适量运动，有助于分娩，也有利于产后的恢复。

『玖』 vb中如何用代码创建SQL数据库和数据表

是什么数据库,access还是sql
server
?首先需要连接数据库执行SQL语句,