来源:百度文库 编辑:
偶看新闻 时间:2024/10/02 16:53:48
在编程序之前,先引入连个控件:通用对话框和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