Ⅰ 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