'指定链接
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
'第一种方法使用配置好的DATA控件
Data1.Visible = False
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "select * from 学生"
Data1.Refresh
With Data1.Recordset
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
End With
Data1.Refresh
BrwFrm.Show
End Sub
Private Sub Command10_Click()
'第十种方法引用ADODC代码
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\db1.mdb;"
cnn1.Open cnnstr
With rst
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "学生", cnnstr, , , adCmdTable
'.Open "学生", cnn1, , , adCmdTable
.AddNew
.Fields("班级") = Text1.Text
.Fields("学号") = Text2.Text
.Fields("姓名") = Text3.Text
.Fields("性别") = Combo1.Text
.Fields("出生日期") = MaskEdBox1.Text
.Fields("联系电话") = Text5.Text
.Fields("家庭住址") = Text6.Text
.Fields("工作单位") = Text7.Text
.Fields("单位电话") = Text8.Text
.Fields("传呼") = Text9.Text
.Fields("收费情况") = Text10.Text
.Update
.UpdateBatch adAffectAllChapters
End With
cnn1.Close
BrwFrm.Show
End Sub
Private Sub Command11_Click()
'第十一种方法动态增加DATA控件
RecFrm.Controls.Add "VB.data", "data2"
With RecFrm!Data2
.Visible = False
.DatabaseName = App.Path & "\db1.mdb"
.RecordSource = "select * from 学生"
.Refresh
.Recordset.AddNew
.Recordset.Fields("班级") = Text1.Text
.Recordset.Fields("学号") = Text2.Text
.Recordset.Fields("姓名") = Text3.Text
.Recordset.Fields("性别") = Combo1.Text
.Recordset.Fields("出生日期") = MaskEdBox1.Text
.Recordset.Fields("联系电话") = Text5.Text
.Recordset.Fields("家庭住址") = Text6.Text
.Recordset.Fields("工作单位") = Text7.Text
.Recordset.Fields("单位电话") = Text8.Text
.Recordset.Fields("传呼") = Text9.Text
.Recordset.Fields("收费情况") = Text10.Text
.Recordset.Update
.Refresh
End With
RecFrm.Controls.Remove "data2"
BrwFrm.Show
End Sub
Private Sub Command12_Click()
'第十二种方法动态增加adodc控件
RecFrm.Controls.Add "MSAdodcLib.Adodc", "adodc2"
With RecFrm!Adodc2
.Visible = False
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" & App.Path & "\db1.mdb;"
.CommandType = adCmdTable
.RecordSource = "学生"
.Refresh
.Recordset.AddNew
.Recordset.Fields("班级") = Text1.Text
.Recordset.Fields("学号") = Text2.Text
.Recordset.Fields("姓名") = Text3.Text
.Recordset.Fields("性别") = Combo1.Text
.Recordset.Fields("出生日期") = MaskEdBox1.Text
.Recordset.Fields("联系电话") = Text5.Text
.Recordset.Fields("家庭住址") = Text6.Text
.Recordset.Fields("工作单位") = Text7.Text
.Recordset.Fields("单位电话") = Text8.Text
.Recordset.Fields("传呼") = Text9.Text
.Recordset.Fields("收费情况") = Text10.Text
.Recordset.Update
End With
RecFrm.Controls.Remove "adodc2"
BrwFrm.Show
End Sub
引用Microsoft ActiveX Data Object2.1以上版本
Option Explicit
Dim cnn As New ADODB.Connection
Private Sub Form_Load()
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\xxxx.MDB;Persist Security Info=False;Jet OLEDB:Database Password=YourPassword"
Dim rst As New ADODB.Recordset
rst.Open "select * from table1", cnn, adOpenKeyset, adLockPessimistic, adCmdText
Set Me.MSFlexGrid1.DataSource = rst
End Sub