vb創建access資料庫
① 如何用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 創建Access資料庫
Function TableExist(byval TableName as string) as boolean
{
dim rs as new adodb.recordset
on error goto ErrLab:
rs.open "select top 1 * from " & tablename ,YourConnect
TableExist=true
exit function
ErrLab:
TableExist=false
end function
其中的YourConnect換成你的資料庫連接
③ vb6.0如何用程序建立access資料庫
用OFFICE裡面的ACCESS軟體直接建立最新版本
VB裡面建立的都是老版本，不可取
④ vb如何添加信息到access資料庫~
rs.addnew
rs("欄位名1")=你要寫入的值
rs("欄位名2")=你要寫入的值
rs.update
是的。就是那樣的。text1.text
你在設計表的時候不是要設計很多欄位嗎？這些欄位你要命名的啊。。
rs("公司名稱")=text1.text
就是這個意思。也就是把text1.text增加到該欄位。。其實用VB加跟access里加是一個道理。只不過vb的界面友好些。
⑤ VB中怎麼動態創建access資料庫以及資料庫表
在vb中創建一個mdb文件需要用到adox，非常麻煩，還不如用access創建一個空mdb文件,需要用的時候復制一個，改名成123.mdb方便。至於生成表格之類的不是一個問答能說清楚的，還是買本書看看吧。
⑥ 在VB中怎麼建立ACCESS資料庫
創建資料庫和表可以使用 ADOX 對象
資料庫創建使用 ADOX.Catalog的 Create 方法，表可以使用 ADOX.Table 對象的 Tables.Append 來增加。
⑦ 使用vb如何創建access資料庫
Set wspDefault = DBEngine.Workspaces(0)
Set dbs = wspDefault.CreateDatabase("Newdb.mdb", _
dbLangGeneral & ";pwd=NewPassword", dbEncrypt)
⑧ VB如何在已有的Access資料庫中創建數據表
'引用對象庫「Microsoft ActiveX Data Objects 2.8 Library」
'引用對象庫「Microsoft ADO Ext 2.8. For DDL Security」，簡稱為ADOX
path1 = Dir(App.Path & "\dat.mdb") '檢測文件是否存在
If path1 = "" Then
Text1.Text = "資料庫dat.mdb不存在，請先建立資料庫~！"
Exit Sub
End If
Dim cat As New ADOX.Catalog '不用cat用另外一個名字也可以
Dim pstr As String
Dim tb1 As New Table
pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把這里的4.0改為3.51
pstr = pstr & "Data Source=" & App.Path & "\dat.mdb"
pstr = pstr & ";Jet OLEDB:Database Password=123"
cat.ActiveConnection = pstr
tb1.Name = "學生信息" '表的名稱
tb1.Columns.Append "姓名", adVarWChar, 20 '表的第一個欄位
tb1.Columns.Append "年齡", adInteger '表的第二個欄位
tb1.Columns.Append "性別", adVarWChar, 2 '表的第三個欄位
tb1.Columns.Append "出生年月", adDate '表的第四個欄位
cat.Tables.Append tb1 '建立數據表
⑨ vb在access資料庫中如何創建新表
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=資料庫名.mdb"
cn.Execute "select * into table2 from table1 where false"
cn.Close
End Sub
如果在復製表結構的同時也復制數據，那麼就
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=資料庫名.mdb"
cn.Execute "select * into table2 from table1"
cn.Close
End Sub
⑩ VB 使用SQL語句創建ACCESS資料庫 MDB
Access是文件型資料庫，用SQL語句是創建不了的，SQL只能在服務型資料庫中創建資料庫。
不過你可以建一個空的Access文件，然後通過文件拷貝的方法來新建它的拷貝並改名。這樣也是個辦法。