Ⅰ vb 中建立数据库
打开VB6.0 编译环境
外接程序---可视化数据管理器--文件--新建
这样就可以建立 常用的各种类型数据库
新建完 在数据库窗口~右键鼠标-新建表
Ⅱ 在VB中如何建立ACCESS数据库或数据表
创建数据库和表可以使用
ADOX
对象
数据库创建使用
ADOX.Catalog的
Create
方法，表可以使用
ADOX.Table
对象的
Tables.Append
来增加。
Ⅲ 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
以前用过的程序，没有问题，你先看一下，理清了，再运行。
Ⅳ 如何用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必须是安装完整的版本!
然后打开VB.点击 [外接程序->可视化数据管理器-> 就可以打开VisData,然后你就可以用他来新建数据库,用他来操作你的数据库.
注意:新建数据库通常使用的格式是:
文件->新建->Microsoft Access->展开后有2.0和7.0两个,看你自己喜欢随便选一个吧!就这样!还有什么不懂的请补充问题!
Ⅵ 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建立一个access数据库
您好，是这样的：
用VB建立Access数据库结构
Private Sub Command1_Click()
On Error GoTo Err100
'定义表与字段
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\vbeden.mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef("VB编程")
'dbBinary = 9
'dbBoolean = 1
'dbByte = 2
'dbChar=18
'dbDate=8
'dbInteger=3
'dbLong=4
'dbMemo=12
'dbText=10
'建立Name字段为8个字符型
Set DefField = DefTable.CreateField("Name", dbText, 8)
DefTable.Fields.Append DefField
Set DefField = DefTable.CreateField("Sex", dbText, 2)
DefTable.Fields.Append DefField
'该字段允许为空
DefField.AllowZeroLength = True
'建立Age字段为3个的常整型
Set DefField = DefTable.CreateField("Age", dbInteger, 3)
'字段追加
DefTable.Fields.Append DefField
'表追加
DefDatabase.TableDefs.Append DefTable
MsgBox " 数据库建立完成！", vbInformation
Exit Sub
Err100:
MsgBox "对不起，不能建立表。请先再建表前建立VBEden数据库？ ", vbCritical
End Sub
Private Sub cmdCreate_Click()
On Error GoTo Err100
'建立名为 VBEDEN 的数据库
CreateDatabase "VB-CODE", dbLangGeneral
MsgBox "数据库建立完成！ ", vbInformation
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
建立数据库后，一般用ADO的技术来实现数据操作是比较好的办法。引用微软的ADO组件，里面两个对象一个是连接对象用来连接数据库。另一个记录集对象可以操作数据库。详细的使用请买本书好好看吧，不是几句话可以说清的。
Ⅷ 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建立一个access数据库
vb只是一个编程语言，并不能建立数据库，建立access数据库要完全在access中进行。
前提条件：必须安装微软access数据库。
步骤：
1、找好要存放数据库的路径，如C盘data路径；
2、路径下空白处点右键，新建-Microsoft Access数据库，如图：
4、双击access文件，在里边创建所要的表，函数等等即可。
Ⅹ vb中如何制作数据库文件
如果用vb来建立数据库的话，用adox对象就可以了，主要用到下面几个对象：
Dim cat As New ADOX.Catalog '对应数据库数据库文件
Dim tb() As New ADOX.Table '数据库里的表
Dim cl As New ADOX.Column '数据库里的字段
不过这种方法比较麻烦，简单的办法是用文本文件来存储(如果你不想让别人知道你用文本文件存储的数据，你可以文本文件的后缀名你可以改成dat,tpl,log....)。给你附带一个比较完整的文本文件读写的代码：
'以下是读记事本代码，读取后的数据存储在数组hs()中：
Dim i As Long, hs() As String
i = 0
ReDim hs(0)
Open App.Path & "\1.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve hs(i)
Line Input #1, hs(i)
i = i + 1
Loop
Close #1
'以下是写记事本代码：
dim filename as string
filename = "这是第一行" & chr(13) & chr(10) & "这是第二行" & chr(13) & chr(10) & "这是第三行" & chr(13) & chr(10)
Open App.Path & "\2.txt" For Output As #1
Seek #1, 1
Print #1, filename
Close #1