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