vb做資料庫

1. 如何用VB建立資料庫

1、首先點擊打開主菜單欄中的「外接程序」選項。

2. 如何用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)

3. 用VB程序設計資料庫

沒看明白，說的簡單點

4. 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

5. VB怎麼做資料庫

VB連接資料庫，通常單機的資料庫可以選擇Access，網路上VB連接mssql的也很多。
c你需要學會VB，然後了解資料庫操作，學一下sql語言。然後吧把學的這些串起來，就是你要的了。如果快的話，半個月基本能上手。
祝好運，望採納。

6. 用VB做資料庫管理系統

Private Sub Add_Data() '增加記錄 Data1.Recordset.AddNew End Sub Private Sub Delete_Data() '刪除當前記錄 If MsgBox("是否刪除當前記錄？", vbYesNo, "確認") = vbYes Then Data1.Recordset.Delete Data1.Recordset.MovePrevious End If End Sub Private Sub Find_Data() '查找指定學號的記錄 Dim str_Find_Stuno As String str_Find_Stuno = InputBox("請輸入學號：", "查找") Data1.Recordset.FindFirst "Stu_no = ' " & str_Find_Stuno & " ' " If Data1.Recordset.NoMatch = True Then MsgBox "對不起，沒有您要查找的記錄！" End If End Sub Private Sub Save_Data() '保存數據 Data1.UpdateRecord End Sub Private Sub Cancel_Data() '取消編輯數據 Data1.UpdateControls End Sub Private Sub Data1_Reposition() '顯示當前記錄所在位置 Data1.Caption = 1 + Data1.Recordset.AbsolutePosition & _ " of " & Data1.Recordset.RecordCount End Sub Private Sub Add_Click() '"增加"菜單命令 Add_Data End Sub Private Sub Delete_Click() '"刪除"菜單命令 Delete_Data End Sub Private Sub Find_Click() '"查找"菜單命令 Find_Data End Sub Private Sub Save_Click() '"保存"菜單命令 Save_Data End Sub Private Sub Cancel_Click() '"取消"菜單命令 Cancel_Data End Sub Private Sub Exit_Click() '"退出"菜單命令 End End Sub

7. 如何在VB中實現網路資料庫編程

用資料庫控制項比如ADODC與
網路資料庫
連接，然後其他用來輸出的控制項比如DataGrid再與資料庫控制項綁定即可。
資料庫只要建立了連接，那麼在使用過程中對於程序而言就沒有
本地資料庫
與網路資料庫之分了，操作都是完全一樣的，資料庫搜索引擎會自動完成數據的上傳和下載。

8. 用vb製作db資料庫文件

如果用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