vb建数据库

㈠ 如何用vb建立一个access数据库

vb只是一个编程语言，并不能建立数据库，建立access数据库要完全在access中进行。
前提条件：必须安装微软access数据库。
步骤：
1、找好要存放数据库的路径，如C盘data路径；
2、路径下空白处点右键，新建-Microsoft
Access数据库，如图：
3、这时路径下就有了一个access文件，可以右键-重命名来为数据库起名，如，起名叫测试数据库；
4、双击access文件，在里边创建所要的表，函数等等即可。

㈡ 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 中建立数据库

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

㈣ 如何用vb创建数据库 求高手

'代码创建一个Access数据库和一张表，其中“序号”字段为自动编号
Private Sub xjdata()
On Error GoTo aaa

Dim cat As New ADOX.Catalog
Dim pstr As String
Dim fm As String
Dim tb1 As ADOX.Table
Dim col As ADOX.Column
Set tb1 = New ADOX.Table
On Error GoTo xjerr
CommonDialog1.Filter = "MDB文件（*.mdb）|*.mdb|AllFiles(*.*)|*.*|"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = App.Path
CommonDialog1.Flags = 6
CommonDialog1.FileName = Date & Space(1) & Hour(Now) & Minute(Now)
CommonDialog1.Action = 2
If CommonDialog1.FileName = "" Then
MsgBox "你必须输入一个数据库文件名，请重新保存一次！", ""
Else
fm = CommonDialog1.FileName
End If
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
pstr = pstr & "Data Source=" & fm
cat.Create pstr
cat.ActiveConnection = pstr
tb1.Name = "sjb"

Set col = New ADOX.Column
col.ParentCatalog = cat
col.Type = ADOX.DataTypeEnum.adInteger ' // 必须先设置字段类型
col.Name = "序号"
col.Properties("Jet OLEDB:Allow Zero Length").Value = False
col.Properties("AutoIncrement").Value = True
tb1.Columns.Append col, ADOX.DataTypeEnum.adInteger, 0

tb1.Columns.Append "电压", adSingle
tb1.Columns.Append "电流", adSingle
tb1.Columns.Append "输入功率", adSingle
tb1.Columns.Append "转速", adSingle
tb1.Columns.Append "转矩", adSingle
tb1.Columns.Append "输出功率", adSingle
tb1.Columns.Append "效率", adSingle
cat.Tables.Append tb1
xjerr:
If err.Number = 32755 Then Exit Sub ‘捕捉 取消 的错误信息
aaa:
End Sub

㈤ 如何用vb建立 数据库

自己编的一个报名系统，连接到数据文件（*.xml）的方式如下：

在项目中添加如下项（控件）：
|名称 |控件名称|
|Dialog1 |对话框 |
|Textbox1 |Textbox |
|Open |Button |
|Cancel |Button |
|Browse... |Button |
|OpenFileDialog1 |OpenFileDialog |

在原来要显示数据库的窗体上添加如下控件：
|DataGridView1 |DataDridView |

在Dialog1.vb中添加如下代码以连接到“Textbox1”中显示的路径（把文件中原有的“Public Class Dialog1”，“End Class”覆盖）：

'*********************************************************
Imports System.Windows.Forms

Public Class Dialog1
Dim mydataset As New DataSet
Friend hasfile As Boolean = False

Private Sub cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancel.Click
Me.Close()
End Sub

Private Sub browse_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles browse.Click
On Error GoTo err
OpenFileDialog1.FileName = ""
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = "" Then
Exit Sub
End If
TextBox1.Text = OpenFileDialog1.FileName
Exit Sub
err:
Exit Sub
End Sub

Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click
On Error GoTo err
Form1.mydataset.ReadXml(TextBox1.Text)
Form1.DataGridView1.DataSource = Form1.mydataset.Tables("Person")
Me.Close()
Exit Sub
err:
MsgBox("Sign Up System 在打开文件时出现异常!", MsgBoxStyle.Exclamation)
End Sub
End Class
'*********************************************************

注：
xml文件的新建可以使用以下语句：

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, "<?xml version=""1.0"" standalone=""yes""?><Mytable> <Person> <代码 /> <参赛号 /> <报名方式 /> <姓名 /> <区 /> <年级 /> <学校 /> <邮编 /> <地址 /> <联系电话 /> <指导老师 /> <获奖情况 /> <备注_1 /> <备注_2 /> <备注_3 /> </Person></Mytable>", False)

㈥ VB的数据库怎样做

VB 和数据库并不直接相关，数据库需要数据库管理系统，比如ACCESS、MS sqlSERVER。
VB负责完成界面，即负责数据的采集和处理，并利用特殊的控件和函数库从数据库读取、修改数据。
VB6 比较常用的控件有DATA，ADODC，函数库可以用ADO

㈦ VB中如何创建数据库，表，字段

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

'引用对象库“MicrosoftActiveXDataObjects2.8Library”
'引用对象库“MicrosoftADOExt2.8.ForDDLSecurity”，简称为ADOX

DimcatAsNewADOX.Catalog
DimpstrAsString
pstr="Provider=Microsoft.Jet.OLEDB.4.0;"
pstr=pstr&"DataSource="C:sss.mdb"
pstr=pstr&";JetOLEDB:Database"
cat.Createpstr'创建数据库

DimcatAsNewADOX.Catalog'不用cat用另外一个名字也可以
DimpstrAsString
Dimtb1AsNewTable
pstr="Provider=Microsoft.Jet.OLEDB.4.0;"
pstr=pstr&"DataSource="C:sss.mdb"
pstr=pstr&";JetOLEDB:Database"
cat.ActiveConnection=pstr
tb1.Name="sss"'表的名称
tb1.Columns.Append"姓名",adVarWChar,20'表的第一个字段
tb1.Columns.Append"记录1",adInteger'表的第二个字段
tb1.Columns.Append"记录2",adInteger'表的第三个字段
tb1.Columns.Append"记录3",adInteger'表的第四个字段
tb1.Columns.Append"记录4",adInteger'表的第五个字段
cat.Tables.Appendtb1'建立数据表

㈧ 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里

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

㈩ vb 如何建立数据库

'引用microsoft DAO 3.6

Dim db As Database
Private Sub Command1_Click()'建库，且库带密码为“lin”

r$ = InputBox("输入库名")
Set db = CreateDatabase("c:\" & r, dbLangGeneral & ";pwd=lin", dbEncrypt)
db.Close
End Sub

Private Sub Command2_Click()'选库建表
r$ = InputBox("输入要建表的库名")
Set db = OpenDatabase("c:\" & r, False, False, ";pwd=lin")
b = InputBox("输入表名")
Do While b <> ""
db.Execute "create table " & b
f = InputBox("输入字段名")
l = InputBox("输入字段类型")
Do While f <> ""
db.Execute "alter table " & b & " add column " & f & " " & l
'db.Execute "alter table 1 add column xz short"
f = InputBox("输入字段名")
l = InputBox("输入字段类型")
Loop
b = InputBox("输入表名")

Loop
End Sub

以前用过的程序，没有问题，你先看一下，理清了，再运行。