DATABASE WITHOUT USING DATA CONTROL USING VISUAL BASIC

PROGRAM

Dim db As Database

Dim rs As Recordset

Private Sub Command1_Click()

Set db = OpenDatabase("C:\SAMPLE.MDB")

Set rs = db.OpenRecordset("TABLE1")

rs.AddNew

rs![Name] = Text1.Text

rs![age] = Text2.Text

rs![dept] = Text3.Text

rs![contact] = Text4.Text

rs.Update

MsgBox ("record added")

End Sub

Private Sub Command2_Click()

Set db = OpenDatabase("C:\SAMPLE.MDB")

Set rs = db.OpenRecordset("TABLE1")

rs.MoveFirst

Text1.Text = rs![Name]

Text2.Text = rs![age]

Text3.Text = rs![dept]

Text4.Text = rs![contact]

End Sub

Private Sub Command3_Click()

Set db = OpenDatabase("C:\SAMPLE.MDB")

Set rs = db.OpenRecordset("TABLE1")

rs.MoveNext

Text1.Text = rs![Name]

Text2.Text = rs![age]

Text3.Text = rs![dept]

Text4.Text = rs![contact]

End Sub

Private Sub Command4_Click()

'Set db = OpenDatabase("C:\SAMPLE.MDB")

'Set rs = db.OpenRecordset("TABLE1")

rs.MovePrevious

Text1.Text = rs![Name]

Text2.Text = rs![age]

Text3.Text = rs![dept]

Text4.Text = rs![contact]

End Sub

Private Sub Command5_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

End Sub

Private Sub Command6_Click()

End

End Sub

Private Sub Command7_Click()

Set db = OpenDatabase("C:\SAMPLE.MDB")

Set rs = db.OpenRecordset("TABLE1")

rs.MoveLast

Text1.Text = rs![Name]

Text2.Text = rs![age]

Text3.Text = rs![dept]

Text4.Text = rs![contact]

End Sub

Share :

Tweet

✚

Related Post