来源：百度文库 编辑：偶看新闻 时间：2024/07/02 17:46:57
在编程序之前，先引入连个控件：通用对话框和DataGrid，方法是：Ctrl+T ——Microsoft Common Dialog Controls 6.0 引入 通用对话框 CommonDialog，该对话框用于保存数据库文件；Ctrl+T ——Microsoft DataGrid Control 6.0（OLEDB）引入DataGrid控件，该控件用于数据库记录的显示。下面是完整程序：
Dim Cat As New ADOX.Catalog
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim pstr As String '定义该变量是为了后面的书写方便
Private Sub Cmdcreat_Click()
Dim fm As String 'fm变量用来获取用户输入的文件名
CommonDialog1.Filter = "MDBwen文件（*.mdb）|*.mdb|AllFiles(*.*)|*.*|"
CommonDialog1.FilterIndex = 1
CommonDialog1.InitDir = "D:Jthpaper"
CommonDialog1.Flags = 6
CommonDialog1.Action = 2
If CommonDialog1.FileName = "" Then
MsgBox "你必须输入一个文件名，请重新保存一次！"
Exit Sub
Else
fm = CommonDialog1.FileName
End If
pstr = "provider=microsoft.jet.oledb.4.0;" '不能把这里的4.0改为3.5.1
pstr = pstr & "data source=" & fm
Cat.Create pstr '创建数据库
Dim tbl As New Table
Cat.ActiveConnection = pstr
tbl.Name = "MyTable" '表的名称
tbl.Columns.Append "编号", adInteger '表的第一个字段，并设定为integer 变量
tbl.Columns.Append "姓名", adVarWChar, 8 '表的第二个字段，并设定为最大长度为8的char型
tbl.Columns.Append "地址", adVarWChar, 50 '表的第三个字段，并设定为最大长度为50的char型
Cat.Tables.Append tbl '建立数据表
conn.Open pstr
rs.CursorLocation = adUseClient
rs.Open "MyTable", conn, adOpenKeyset, adLockBatchOptimistic
rs.AddNew '往表中添加记录
rs.Fields(0).Value = 2007041019
rs.Fields(1).Value = "张根民"
rs.Fields(2).Value = "青岛科技大学"
rs.UpdateBatch '把数据添加到mdb文件中，即更新数据
End Sub
Private Sub Cmdsee_Click() ‘查看数据库记录
Set DataGrid1.DataSource = rs
End Sub
偶看新闻