Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub OpenDB()
Dim St As String
St = "Provider= Microsoft.Jet.OLEDB.4.0;Data Source=D:\work \BaseADO\db1.mdb;Persist Security Info=False"
DB.ConnectionString = St
DB.Open
Set RS.ActiveConnection = DB
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
RS.Open "Tab1"
End Sub
Private Sub CloseDB()
RS.Close
DB.Close
End Sub
Private Sub ReadDB()
List1.Clear
RS.MoveFirst
Do While Not RS.EOF
List1.AddItem RS.Fields(0).Value
RS.MoveNext
Loop
End Sub
Private Sub ADD_Click()
On Error GoTo er
RS.AddNew
RS.Fields(0).Value = Text1.Text
RS.Fields(1).Value = Text2.Text
RS.Fields(2).Value = Val(Text3.Text)
RS.Fields(3).Value = Val(Text4.Text)
RS.UPDATE
'RS.Requery
'List1.ListIndex
ReadDB
Exit Sub
er:
MsgBox "Ошибка при добавлении записи"
End Sub
Private Sub Delete_Click()
On Error GoTo er
RS.MoveFirst
RS.Move List1.ListIndex
RS.Delete
ReadDB
Exit Sub
er:
MsgBox "Ошибка при удалении записи"
End Sub
Private Sub Form_Load()
OpenDB
ReadDB
End Sub
Private Sub Form_Unload(Cancel As Integer)
CloseDB
End Sub
Private Sub List1_Click()
RS.MoveFirst
RS.Move List1.ListIndex
Text1.Text = RS.Fields(0).Value
Text2.Text = RS.Fields(1).Value
Text3.Text = RS.Fields(2).Value
Text4.Text = RS.Fields(3).Value
End Sub
Private Sub UPDATE_Click()
On Error GoTo er
RS.MoveFirst
RS.Move List1.ListIndex
RS.Fields(0).Value = Text1.Text
RS.Fields(1).Value = Text2.Text
RS.Fields(2).Value = Val(Text3.Text)
RS.Fields(3).Value = Val(Text4.Text)
RS.UPDATE
ReadDB
Exit Sub
er:
MsgBox "Ошибка при обновлении записи"
End Sub