引用Microsoft ActiveX Object 2.5 LibraryOption Explicit Private conn1 As ADODB.Connection Private rs1 As ADODB.RecordsetPrivate Sub Command2_Click() Dim dbfilename As String Dim strsql As String Dim ConnectString As String Dim i As Integer Set conn1 = New ADODB.Connection dbfilename = "F:\csdn_vb\database\listbox\article1.mdb" ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;" conn1.Open ConnectStringSet rs1 = New ADODB.Recordsetstrsql = "select * from mz" rs1.Open strsql, conn1, 1, 3rs1.AddNew rs1.Fields("mc") = Text1.Text rs1.Fields("memo") = Text2.Text rs1.Update '下面是删除 'strsql="delete * from mz" 'conn1.execute strsql End Sub
Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号) Dim cn As New ADODB.Connection Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click() '读取 rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic If Not rs.EOF Then Label1.Caption = rs!ID Label2.Caption = rs!Memo End If '添加 rs.AddNew rs!ID = "编号" rs!Memo = "备注" rs.Update '删除 cn.Execute "DELETE FROM TABLENAME" End SubPrivate Sub Form_Load() cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _ App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _ "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _ "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _ "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;" cn.Open '查询字符串可以上这里查 'http://www.connectionstrings.com/ End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub
这个嘛……嗯……啊……哦……如果你一点基础都没有,那最好是去看看ADO的资料专,网上多的是入门教程!祝学顺利!
Private conn1 As ADODB.Connection
Private rs1 As ADODB.RecordsetPrivate Sub Command2_Click()
Dim dbfilename As String
Dim strsql As String
Dim ConnectString As String
Dim i As Integer
Set conn1 = New ADODB.Connection
dbfilename = "F:\csdn_vb\database\listbox\article1.mdb"
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn1.Open ConnectStringSet rs1 = New ADODB.Recordsetstrsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3rs1.AddNew
rs1.Fields("mc") = Text1.Text
rs1.Fields("memo") = Text2.Text
rs1.Update
'下面是删除
'strsql="delete * from mz"
'conn1.execute strsql
End Sub
使用
adodb.recorcset.addnew
adodb.recordset("field_name")=NewValue
..........
adodb.recordset.update
增加記錄,當然最好的辦法就是使用insert與delete添加和刪除記錄了。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
'读取
rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Label1.Caption = rs!ID
Label2.Caption = rs!Memo
End If '添加
rs.AddNew
rs!ID = "编号"
rs!Memo = "备注"
rs.Update '删除
cn.Execute "DELETE FROM TABLENAME"
End SubPrivate Sub Form_Load()
cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
用户SA,密码空,db:数据库名