VB中数据读取与插入到ACCESS数据库的方法
Freebo1:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "data source=D:\Telephone Enquiry\data.mdb;"
cn.Open constr
rs.Open "select * from telphone ", cn, adOpenKeyset, adLockBatchOptimistic
rs.AddNew
rs.Fields("序号排列ID").Value = Text1.Text
rs.Fields("员工所属部门").Value = Text2.Text
rs.Fields("坐席使用人").Value = Text3.Text
rs.Fields("员工所属坐席").Value = Text4.Text
rs.Fields("固话或号码1").Value = Text5.Text
rs.Update
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
|