vb数据库表格

『壹』 vb 界面上显示数据库中的表内容

DataGridView控件。类似原来的DataGrid控件，不过比它强大；DataGridView.DataSource=数据表或视图，就可以显示数据了，怎么显示就在DataGridView属性里设置。

『贰』 在VB中如何使用数据库中的表格

VB的data控件支持97格式的数据库
打开数据库 工具 转换 转换为97格式
再点才行

『叁』 如何用VB代码向数据库中添加数据表

'以下代码可以向当前数据库添加数据表
'(测试OK,添加"Table1"数据表，包含4个字段内)：容
Set
NewTable
=
CurrentDb.CreateTableDef("Table1")
With
NewTable
.Fields.Append
.CreateField("字段1",
dbText)
.Fields.Append
.CreateField("字段2",
dbText)
.Fields.Append
.CreateField("字段3",
dbText)
.Fields.Append
.CreateField("字段4",
dbText)
End
With
CurrentDb.TableDefs.Append
NewTable

『肆』 在VB中如何用SQL语言在一个数据库中建立一个表

创建MDB文件
【工程】菜单－>【引用】，在弹出的窗体中选择【Microsoft ADO Ext. 2.X for DDL and Security】，“2.X”表示版本。 Dim cat As New ADOX.Catalog '日志变量
Dim tbl As New ADOX.Table '表变量
Dim pstr As String '数据库连接配置
Dim db As String '数据库名及路径

db = App.Path & "\conmag.mdb"
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=xfenghany;" & "data source=" & db
cat.Create pstr '创建库文件
cat.ActiveConnection = pstr '连接库
tbl.Name = "coner" '表定义
tbl.Columns.Append "cname", adVarWChar, 50 '表定义
tbl.Columns.Append "ccall", adVarWChar, 50 '表定义
tbl.Columns.Append "ctele", adVarWChar, 50 '表定义
tbl.Columns.Append "cext", adVarWChar, 50 '表定义
tbl.Columns.Append "cmail", adVarWChar, 50 '表定义
tbl.Columns.Append "chome", adVarWChar, 50 '表定义
tbl.Columns.Append "cwork", adVarWChar, 50 '表定义
tbl.Columns.Append "cgx", adVarWChar, 50 '表定义
cat.Tables.Append tbl '生成表
Set tbl = Nothing Set tbl = New ADOX.Table
tbl.Name = "tbltwo" '表定义
tbl.Columns.Append "nosee", adVarWChar, 50 '表定义
cat.Tables.Append tbl '生成表
Set tbl = Nothing指示列的数据类型 常量 说明
adTinyInt 精确的数字值，精度为小数点后 3 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdSmallInt 精确数字值，精度为小数点后 5 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdInteger 精确数字值，精度为小数点后 10 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdBigInt 精确数字值，精度为小数点后 19 位。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdUnsignedTinyInt 无符号的 adTinyInt。
AdUnsignedSmallInt 无符号的 adSmallInt。
AdUnsignedInt 无符号的 adInteger。
AdUnsignedBigInt 无符号的 adBigInt。
AdSingle 单精度浮点数。
AdDouble 双精度浮点数。
AdCurrency 货币类型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdDecimal 变体型十进制类型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdNumeric 数值类型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdBoolean 变体布尔类型。0 为假而 ~0 为真。
AdUserDefined 用户定义的变量长度数据类型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdVariant 自动变体型。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdGuid 全域唯一标识符。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdDate 自动日期。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdDBDate 数据库日期数据结构。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdDBTime 数据库时间数据结构。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdDBTimestamp 数据库时间戳结构。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdBSTR BSTR 的指针。关于该类型的详细资料，请参阅“OLE DB 程序员参考”。
AdChar 定长字符串。
AdVarChar 变长字符串。
AdLongVarChar 长变长字符串。
AdWChar 宽定长字符串。
AdVarWChar 宽变长字符串。
AdLongVarWChar 长、宽变长字符串。
AdBinary 定长二进制数据。
AdVarBinary 变长二进制数据。
AdLongVarBinary 长变长二进制数据。

『伍』 如何在vb中制作数据库表格

一个表格控件，一个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中如何创建数据库，表，字段

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

'引用对象库“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数据库里面的表格到另外一个数据库

Private Sub Command1_Click()
Dim conn
Dim mdbfile As String '数据库名，需要手工指定
Dim oldtable As String '旧表名
Dim newtable As String '新表名
Set conn = CreateObject("ADODB.Connection")
mdbfile = "D:\Software\ast541g\ast541g\ASTRO3.mdb"
conn.Open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=" & mdbfile, 1, 3
oldtable = "info"
newtable = "info_"
conn.Execute "SELECT * INTO " & newtable & " FROM " & oldtable'复制操作
conn.Close
Set conn = Nothing
End Sub

'没看清你的要求，补充一下，ACCESS 不支持跨数据库的表格复制的SQL语句
'SQL数据库支持，下面是SQL的方法
Private Sub Command1_Click()
Dim conn
Dim mdbfile As String '目标数据库名，需要手工指定
Dim oldtable As String '旧表名
Dim newtable As String '新表名
Set conn = CreateObject("ADODB.Connection")
mdbfile = "D:\Software\ast541g\ast541g\ASTRO3.mdb"
conn.Open "driver={SQL Server};server=SQL服务器名称;uid=UserName;pwd=数据库密码;database=数据库名称" , 1, 3
oldtable = "info"
newtable = "info_"
conn.Execute "insert into openrowset('microsoft.jet.oledb.4.0','" & mdbfile & "';'admin';''," & newtable & ") select * from " & oldtable
conn.Close
Set conn = Nothing
End Sub

『玖』 VB6.0连接SQL数据库，并读取某表格的数据出来

'使用ADODB对象，必须先进行对象模型的引用，步骤如下
'通过菜单[工程] -- [引用]，勾选 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以
代码以及注释如下：
Dim Conn As ADODB.Connection '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的操作
Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的操作

Set Conn = New ADODB.Connection '数据库对象的实例化
Set Rst = New ADODB.Recordset '记录集对象的实例化

'二，连接数据库文件
'执行 ADODB.Connection对象的Open方法，完成数据库的连接
Conn.CursorLocation = adUseClient
'连接SQL的字符串格式如下
'"Provider=SQLOLEDB.1;Password=登录SQL的密码;Persist Security Info=True;User ID=SQL数据库实例名;Initial Catalog=数据库名;Data Source=SQL服务器计算机名称"
'你给出的参数，少了最后一个“SQL服务器计算机名称”，下面我用了6个问号，你根据你的具体情况修改
Conn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=Sa;Initial Catalog=2013data;Data Source=??????"

'三，返回记录集
'执行 ADODB.Recordset对象的Open方法，获得记录集
Rst.Open "Select num1,num2 From icitem
", Conn, adOpenKeyset, adLockPessimistic

'将返回的记录集显示到DataGrid1
Set DataGrid1.DataSource = Rst

Set Rst = Nothing '释放记录集对象
Set Conn = Nothing '释放数据库对象