用的是Microsoft ActiveX Object 2.0 Library
刚学,不知道怎么添加删除记录,因为手头上没有书,所以请教各位,希望有源码,谢谢了!

解决方案 »

  1.   

    老弟,你这个问题可问得我们头大了!
    这个嘛……嗯……啊……哦……如果你一点基础都没有,那最好是去看看ADO的资料专,网上多的是入门教程!祝学顺利!
      

  2.   

    引用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
      

  3.   

    使用adodb.recordset.delete方法刪除當前記錄
    使用
    adodb.recorcset.addnew
    adodb.recordset("field_name")=NewValue
    ..........
    adodb.recordset.update
    增加記錄,當然最好的辦法就是使用insert與delete添加和刪除記錄了。
      

  4.   

    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
      

  5.   

    但是如果是使SQL 的数据库,ConnectString 该怎么写呢?
      

  6.   

    connectString="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db;Data Source=" & dbName
    用户SA,密码空,db:数据库名