พอดีโหลด Code ฟรีมาจาก http://www.mahamodo.com/downloads/programsdetail.aspx?id=70

ช่วยหน่อยค่ะ VB6 ลบ กับ แก้ไขข้อมูลไม่ได้ แต่สามารถเพิ่มข้อมูลได้แล้วค่ะ

เวลากดลบข้อมูล มันดันลบอันบนสุด ไม่ได้ลบช่องที่เราเลือกไว้ Code ตามนี้เลย

และอีกอย่างนึงคือ ปุ่มแก้ไขข้อมูลแล้วยังเป็นเหมือนเดิม ไม่ได้เปลี่ยนแปลงเลย

Option Explicit
Dim Conn As New ADODB.Connection
Dim RC As New ADODB.Recordset
Dim SQL As String
Const strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False"

Private Sub Command1_Click()
With RC
            .MoveFirst
            
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("สัญญา")
            Text3.Text = .Fields("ชื่อสกุล")
            Text4.Text = .Fields("เลขตัวรถ")
            Text5.Text = .Fields("ทะเบียนรถ")
            Text6.Text = .Fields("หมายเหตุ")
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
End With

End Sub

Private Sub Command2_Click()
With RC
            .MovePrevious
            If .BOF = True Then .MoveLast
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("สัญญา")
            Text3.Text = .Fields("ชื่อสกุล")
            Text4.Text = .Fields("เลขตัวรถ")
            Text5.Text = .Fields("ทะเบียนรถ")
            Text6.Text = .Fields("หมายเหตุ")
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
End With
End Sub

Private Sub Command3_Click()
With RC
            .MoveNext
            If .EOF = True Then .MoveFirst
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("สัญญา")
            Text3.Text = .Fields("ชื่อสกุล")
            Text4.Text = .Fields("เลขตัวรถ")
            Text5.Text = .Fields("ทะเบียนรถ")
            Text6.Text = .Fields("หมายเหตุ")
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
End With
End Sub

Private Sub Command4_Click()
With RC
            .MoveLast
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("สัญญา")
            Text3.Text = .Fields("ชื่อสกุล")
            Text4.Text = .Fields("เลขตัวรถ")
            Text5.Text = .Fields("ทะเบียนรถ")
            Text6.Text = .Fields("หมายเหตุ")
            Image1.Picture = LoadPicture(App.Path & "\picture\" & Text6.Text)
End With

End Sub

Private Sub Command5_Click()
With RC
        .AddNew
            .Fields("สัญญา") = Text2.Text
            .Fields("ชื่อสกุล") = Text3.Text
            .Fields("เลขตัวรถ") = Text4.Text
            .Fields("ทะเบียนรถ") = Text5.Text
            .Fields("หมายเหตุ") = Text6.Text
        .Update
        MsgBox "เพิ่มข้อมูลเรียบร้อยแล้วครับ", vbInformation, "เพิ่มข้อมูล"
End With

Call Form_Load
End Sub

Private Sub Command6_Click()
With RC
        Dim sname As String
        sname = .Fields("สัญญา")
        .Delete
        .Requery
        MsgBox "ลบข้อมูลของ " & sname & " เรียบร้อยแล้วครับ", vbInformation, "ลบข้อมูล"
End With

Call Form_Load

End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()
            Text1.Text = ""
            Text2.Text = ""
            Text3.Text = ""
            Text4.Text = ""
            Text5.Text = ""
            Text6.Text = ""
End Sub

Private Sub Command9_Click()
With RC
            .Fields("สัญญา") = Text2.Text
            .Fields("ชื่อสกุล") = Text3.Text
            .Fields("เลขตัวรถ") = Text4.Text
            .Fields("ทะเบียนรถ") = Text5.Text
            .Fields("หมายเหตุ") = Text6.Text
            MsgBox "แก้ไขข้อมูลของ " & .Fields("สัญญา") & " เรียบร้อยแล้วครับ", vbInformation, "แก้ไขข้อมูล"
End With

Call Form_Load

End Sub

Private Sub Form_Load()
'เปิดฐานข้อมูล
With Conn
        If .State = 1 Then .Close
        .ConnectionString = strConn & ";Data Source=" & App.Path & "\db\customer.mdb"
        .Open
End With

'เปิดตาราง
With RC
        SQL = "SELECT * FROM myCustomer  ORDER BY id ASC"
        If .State = 1 Then .Close
        .CursorLocation = 3
        .Open SQL, Conn, 2, 3
        
        Label6.Caption = "ข้อมูลลูกค้าทั้งหมด จำนวน" & .RecordCount & " คน"
        If .RecordCount <> 0 Then
            Text1.Text = .Fields("id")
            Text2.Text = .Fields("สัญญา")
            Text3.Text = .Fields("ชื่อสกุล")
            Text4.Text = .Fields("เลขตัวรถ")
            Text5.Text = .Fields("ทะเบียนรถ")
            Text6.Text = .Fields("หมายเหตุ")
        End If
        
With Adodc1
        .ConnectionString = strConn & ";Data Source=" & App.Path & "\db\customer.mdb"
        .RecordSource = SQL
        .Refresh
End With

End With


End Sub

ขอบคุณค่ะ