by N.SWAMINATHAN (7 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 6th October 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
EASY WAY TO EDIT RECORDS FROM SQL TABLE USING ADODB
API Declarations
Public con As ADODB.Connection
Private Sub edit_Click(Index As Integer)
Dim rs As ADODB.Recordset
Set rs = con.Execute("select * from salgrade ")
While (rs.EOF = False)
Text1(0).Text = Text1(0).Text & rs.Fields(0) & vbCrLf
Text1(1).Text = Text1(1).Text & rs.Fields(1) & vbCrLf
Text1(2).Text = Text1(2).Text & rs.Fields(2) & vbCrLf
Text1(3).Text = Text1(3).Text & rs.Fields(3) & vbCrLf
rs.MoveNext
Wend
End Sub
Private Sub exit_Click(Index As Integer)
End
End Sub
Private Sub Form_Load()
Set con = New ADODB.Connection
con.Open "driver={microsoft odbc for oracle}", "scott/tiger"
End Sub