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 '釋放資料庫對象