![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 3.18 » View Incident Report |
![]() |
Reported By: Vinnie Murdico Reported On: 10/15/2002 For: Version 3.18 Build 1 |
Option Explicit Dim RS As Recordset Dim DB As Database Dim WS As Workspace Private Sub UpdateBtn_Click() RS.Fields("Defect") = Text1.Text RS.Fields("Summary") = Text2.Text RS.Update RS.Edit End Sub Private Sub MoveNextBtn_Click() RS.MoveNext Text1.Text = RS.Fields("Defect") & "" Text2.Text = RS.Fields("Summary") & "" RS.Edit End Sub Private Sub Form_Load() Set WS = CreateWorkspace("", "", "", dbUseODBC) Set DB = WS.OpenDatabase("Test", False, False, "ODBC;dsn=Test;") Set RS = DB.OpenRecordset("SELECT Defect, Summary FROM Defect", dbOpenDynamic, 0, dbOptimistic) If (Not RS.EOF) Then RS.MoveFirst Text1.Text = RS.Fields("Defect") & "" Text2.Text = RS.Fields("Summary") & "" RS.Edit End If End Sub
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy Policy![]() © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |