Scribd
Upload
229 views3 pages

Adodc Connection Coding in vb6

This document contains code for managing a recordset in VB using ADO. It includes procedures for adding, updating, deleting, and navigating records. On form load, it opens a connection to an Access database and recordset. Buttons allow adding new records, updating existing ones, clearing fields, deleting records, and moving forward or backward through the recordset.

Uploaded by

janani
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
229 views3 pages

Adodc Connection Coding in vb6

This document contains code for managing a recordset in VB using ADO. It includes procedures for adding, updating, deleting, and navigating records. On form load, it opens a connection to an Access database and recordset. Buttons allow adding new records, updating existing ones, clearing fields, deleting records, and moving forward or backward through the recordset.

Uploaded by

janani
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Dim conn As New ADODB.

Connection

Dim rs As New [Link]

Private Sub add_Click()

[Link]

rs!id = [Link]

rs!Name = [Link]

rs!quantity = [Link]

rs!price = [Link]

[Link]

End Sub

Private Sub Command3_Click()

rs!id = [Link]

rs!Name = [Link]

rs!quantity = [Link]

rs!price = [Link]

[Link]

End Sub

Private Sub Command6_Click()

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

End Sub

Private Sub delete_Click()


[Link]

MsgBox "want to delete tis record ?", vbYesNo

[Link] = ""

[Link] = ""

[Link] = ""

[Link] = ""

MsgBox "ur record has been deleted successfully", vbOK

[Link]

End Sub

Private Sub Form_Load()

[Link] = "[Link].4.0"

[Link] "C:\Documents and Settings\Janani\Desktop\[Link]"

[Link] "shop", conn, adOpenDynamic, adLockOptimistic, adCmdTable

End Sub

Private Sub display()

[Link] = rs!id

[Link] = rs!Name

[Link] = rs!quantity

[Link] = rs!price

End Sub

Private Sub movenext_Click()


[Link]

If [Link] Then

[Link]

display

End If

display

End Sub

Private Sub moveprevious_Click()

[Link]

If [Link] Then

[Link]

display

End If

display

End Sub

You might also like