ADA GÖRE VEYA SOYADA GÖRE ARAMA YAPMAK VERİ TABANINDA

Dim dsy As Connection

Dim kyt As Recordset

Private Sub Command1_Click()

isim = Text1.Text

kyt.Close

If Option1.Value = True Then

sorgu = "SELECT * From özlük where Adı=" & "" & isim & ""

ElseIf Option2.Value = True Then

sorgu = "SELECT * From özlük where Soyadı=" & "" & isim & ""

End If

kyt.Open sorgu, dsy, adOpenKeyset, adLockOptimistic

Set DataGrid1.DataSource = kyt.DataSource

End Sub

Private Sub Form_Load()

Set dsy = New Connection

Set kyt = New Recordset

dsy.CursorLocation = adUseClient

dsy.ConnectionString = " Provider = Microsoft.Jet.OLEDB.4.0;Data Source = C:\Users\crea\Desktop\osman.mdb" 'veri tabanının olduğu klasör adı

dsy.Open

kyt.Open "SELECT * From özlük", dsy, adOpenKeyset, adLockOptimistic

Set DataGrid1.DataSource = kyt.DataSource

End Sub