vb 6.0 lütfen bakabilrmisinizz?

(08/05/2012, 21:11)ogulcan92 yazdı: Sn:muruvet
Data yapın yanlış bütün tabloları ilişkilendirmişsiniz ve kodlarınız vede data bağlantınız yanlış.

Sn; Ogulcan92 hocamın dediği şekilde denedinizmi.

neye göre ilişkilendirecem hangi ilişkileri silmem gerekiyor çok iyi değilim haftalardır uğraşıyorum ama çok yol katedemedim

Siz en güzeli örneği ekleyin.?

örnek ekli 1. sayfada göremiyorsanız ekliyim birdaha? adı tez projenın

Örnek Kodlar kendinize göre düzenleyiniz.

Data Bağlatısı

Private Sub Form_Load()

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Data Bağlantısı

Adodc1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\VeriKayit.mdb"

 Adodc1.CommandType = adCmdText

 Adodc1.RecordSource = "select * from Kasa ORDER BY ID"

 Adodc1.Refresh

 If Adodc1.Recordset.RecordCount <> 0 Then

 End If

End Sub

Kaydet Kodları

Private Sub kaydet_Click()

'&&&&&&&&&&& Kaydet

With Adodc1.Recordset

.AddNew

'.Fields(0) = id.Text

.Fields(1) = tarih.Text

.Fields(2) = aciklama.Text

.Fields(3) = gelir.Text

.Fields(4) = gider.Text

.Update

End With

Adodc1.Refresh

 Call temizle_Click

MsgBox "Kaydınız Tamamlanmıştır."

End Sub

Arama Yapma ile ilgili Kodlar

Private Sub bul_Click()

Adodc1.Refresh

 Dim bul As String

 bul = btarih.Value

 If Trim(bul) <> "" Then

 bul = "Tarih='" + bul + "'"

 Adodc1.Recordset.MoveFirst

 Adodc1.Recordset.Find bul

 Call VeriSet

 End If

End Sub

Private Sub VeriSet()

With Adodc1.Recordset

 id = .Fields(0)

 tarih = .Fields(1)

 If .Fields(2) <> "" Then aciklama = .Fields(2)

 If .Fields(3) <> "" Then gelir = .Fields(3)

 If .Fields(4) <> "" Then gider = .Fields(4)

 End With

End Sub

Düzeltme ile ilgili Kodlar

Private Sub duzelt_Click()

With Adodc1.Recordset

'.Fields(0) = id.Text

.Fields(1) = tarih.Text

.Fields(2) = aciklama.Text

.Fields(3) = gelir.Text

.Fields(4) = gider.Text

.Update

End With

Adodc1.Refresh

Form_Load

Call temizle_Click

MsgBox "Kayıtlarınız Düzeltilmiştir."

End Sub

Silme ile ilgili Kodlar

Private Sub sil_Click()

On Error Resume Next

'&&&&&&&&&&& Kayıt Silme

If Adodc1.Recordset.RecordCount <> 0 Then

 Adodc1.Recordset.Delete

 Adodc1.Recordset.Update

 Adodc1.Recordset.MovePrevious

 End If

MsgBox "Kayıdınız silinmiştir."

'&&&&&&&&&& Temizle

Call temizle_Click

End Sub

İlk Kayda Gitme

Private Sub ilkkayit_Click()

If Adodc1.Recordset.RecordCount = 0 Then Exit Sub

Adodc1.Recordset.MoveFirst

Call VeriSet

MsgBox "İlk Kayıttasınız"

End Sub

Önceki kayda gitme

Private Sub oncekikayit_Click()

If Adodc1.Recordset.RecordCount = 0 Then Exit Sub

 Adodc1.Recordset.MovePrevious

 If Adodc1.Recordset.BOF Then

 Adodc1.Recordset.MoveFirst

 MsgBox "İLK KAYITDASINIZ"

 End If

Call VeriSet

End Sub

Sonraki kayda gitme

Private Sub sonrakikayit_Click()

On Error Resume Next

If Adodc1.Recordset.RecordCount = 0 Then Exit Sub

Adodc1.Recordset.MoveNext

 If Adodc1.Recordset.EOF Then

 Adodc1.Recordset.MoveLast

 MsgBox "SON KAYITDASINIZ"

 End If

Call VeriSet

End Sub

Son kayda gitme

Private Sub sonkayit_Click()

If Adodc1.Recordset.RecordCount = 0 Then Exit Sub

Adodc1.Recordset.MoveLast

Call VeriSet

MsgBox "Son Kayıttasınız"

End Sub

Temizleme ile ilgili kodlar

Private Sub temizle_Click()

tarih = ""

aciklama = ""

gelir = ""

gider = ""

End Sub

Veri tabanı ilişikilerim hatalı ise yine sorun çıkmıycakmı ? deniycem şimdi yinede bunları