SOL TARAFTA TEXT KUTULARI VAR VE YENİ KAYIT EKLEMEK İÇİN PROGRAM

Datagrid nesnesi, frame1, label1, text ve komut düğmesi (.. adet) eklenir.

Dim bagla as connection

Dim kyt as recordset

Private sub command1_click()

Set bagla= new connection

Dosyaadı= “C:\.............”

Bagla.cursor location=adUseClient

Bagla.connectionstring=”provider=Microsoft.Jet.OLEDB.4;data Source=”& dosyaadı

Bagla.Open

Set kyt= new recordset

Kyt.open “SELECT* FROM RENK”,bagla,adOpenKeset,adLockOptimistic

Set DataGrid1.DataSource=kyt.DataSource

Label1(0).datasource=kyt.DataSource

Text1(0).DataField=kyt.fields(0).name

For k=1 to kyt.Fields.Count – 1

Load label1(l)

With label1(k)

.Caption=kyt.fields(k).Name

.Top=Label1(k-1).Top+Label1(k-1).height + 10

.visible=true

End With

Load text1(k)

Withh text1(k)

Set.DataSource=kyt.DataSource

.Datafield=kyt.Fields(k).Name

.Top=Text1(k-1).top+Text1(k-1).height+ 10

.visible=true

End With

Next k

End Sub

Private sub command2_click()

Kyt.addnew

End Sub

Private sub command3_click()

Kyt.CanceBatch

End Sub

Private sub command4_click()

kyt.Update

end sub

private sub command5_click()

on error resume next

cev=MsgBox(“Bu Kayıt Silinsin mi?”,vbYesNo+vbQuestion,”Dikkat”)

ıf cev= vbYes Then

kyt.delete

If kyt.EQF Then kyt.MoveFirst Else Kyt.MoveNext ‘ilk kayda gider

End if

End sub

(MoveNext bir sonraki, MovePrevious bir önceki, MoveLast en son kayda…. gibi)