AccessTr.neT
vb 6.0 lütfen bakabilrmisinizz? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: vb 6.0 lütfen bakabilrmisinizz? (/konu-vb-6-0-lutfen-bakabilrmisinizz.html)

Sayfalar: 1 2 3 4

Cvp: vb 6.0 lütfen bakabilrmisinizz? - DUAYEN - 08/05/2012

(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.

Cvp: vb 6.0 lütfen bakabilrmisinizz? - muruvet - 08/05/2012

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

Cvp: vb 6.0 lütfen bakabilrmisinizz? - DUAYEN - 08/05/2012

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

Cvp: vb 6.0 lütfen bakabilrmisinizz? - muruvet - 08/05/2012

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

Cvp: vb 6.0 lütfen bakabilrmisinizz? - ogulcan92 - 08/05/2012

Ö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


Cvp: vb 6.0 lütfen bakabilrmisinizz? - muruvet - 08/05/2012

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