Kod:
Option Compare Database
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim strSQL As String
Sub Ac()
If cn.State = adStateOpen Then cn.Close
Set cn = Nothing
With cn
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentProject.FullName
End With
If rs.State = adStateOpen Then rs.Close
With rs
.CursorType = adOpenDynamic
.CursorLocation = 3
.LockType = adLockOptimistic
.Open "Select * From Tablo1 ", cn, , , 1
End With
Lstbox.ColumnCount = 3
Lstbox.ColumnHeads = True
Set Lstbox.Recordset = rs
End Sub
Private Sub Komut11_Click() 'Kaydet
If IsNull(Me.txtAd.Value) Or IsNull(Me.txtSoyad.Value) Or IsNull(Me.txtYas.Value) Then GoTo son
rs.AddNew
rs(0) = txtAd.Value
rs(1) = txtSoyad.Value
rs(2) = txtYas.Value
rs.Update
Call Ac
Call Ac
Exit Sub
son:
MsgBox "Veriler Bos Birakilamaz!!!!", vbCritical, "Hata"
End Sub
Private Sub Komut6_Click() 'Listele
Call Ac
End Sub
Private Sub Lstbox_Click()
txtAd.Value = Lstbox.Value
txtSoyad.Value = Lstbox.Column(1, Lstbox.ListIndex + 1)
txtYas.Value = Lstbox.Column(2, Lstbox.ListIndex + 1)
End Sub