AccessTr.neT
Veri Tabanı Jet 4.0 OLDB Datafield - 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ığı: Veri Tabanı Jet 4.0 OLDB Datafield (/konu-veri-tabani-jet-4-0-oldb-datafield.html)

Sayfalar: 1 2


Veri Tabanı Jet 4.0 OLDB Datafield - |By|KiDnArUt| - 24/03/2011

Öncelikle SeLamlar Şimdiden Teşekkürler Yardımlarınız için.

Vb6 Da Bir Proje yapmaya çalışıyorum. veriler Access de bulunmakta 3 tane ayrı tablodan oluşmaktadır, Formda 8 tane değişken bulunmaktadır bu değişkenler verilerin bazısını tablo 1 den bazısını tablo 2 den almaktadır.

Örn: ÜyeNo Adında ßir Combo Bulunmaktadır, form açılışında üye no kısmına daha önceden oluşturmuş oldugumuz üyelerin numarası gelmektedir. üyeno datafield üyeler adlı adoya bağlanmıştır Bu Kısma kadar bir sorun yok bu kısımdan sonra gerekli yerler doldurulduktan sonra kaydet butonuna bastıgımda üyeno kısmı üyeler alanına kaydedecektir. aynı comboyu 2 farklı adoya baglama şansım varmı kaydet dediğimde üyenosunu üyelerden çekcek kaydetme işlemi farklı alanda yapcak. Burda Access De İlişkilendirme yapsam bu yapmak istedigim olurmu yada farklı bir şekilde nasıl yapa bilirim tekrardan teşekkür ederim.


Cvp: Veri Tabanı Jet 4.0 OLDB Datafield - Coskun0559 - 24/03/2011

projeyi ve db yi ekleyiniz


Cvp: Veri Tabanı Jet 4.0 OLDB Datafield - |By|KiDnArUt| - 24/03/2011

Buyrun İnş. Anlatabilmişimdir Şimdiden Teşekkürler


Cvp: Veri Tabanı Jet 4.0 OLDB Datafield - |By|KiDnArUt| - 24/03/2011

Arkadaşlar Verileri Çekiyorum ßu Seferde Tekrar Tekrar Veri Çekiyor Allak ßullak Oldu Kafa
Private Sub Combo1_Change()
Dim sayi, i As Integer
Dim cevap
If Adodc1.Recordset.RecordCount = 0 Then
cevap = MsgBox("Listelenecek Kayıt Yok", 48)
Combo1.Enabled = False
Else
Adodc1.Recordset.MoveLast
sayi = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For i = 1 To sayi
Combo1.AddItem Adodc1.Recordset.Fields("uye_No")
Adodc1.Recordset.MoveNext
Next i
Adodc1.Recordset.MoveFirst
End If
End Sub


Cvp: Veri Tabanı Jet 4.0 OLDB Datafield - |By|KiDnArUt| - 24/03/2011

Bunuda Hallettik Field("uye_no") Yanlış Yazmışım Bu Seferde Tüm Bİlgileri Listeliyor yalnız Sadece ßir Tane Üye Numarası OLmasına Ragmen 4 Tane Üye Numarası Çıkıyor Şu anda Kod ßu Şekilde

Dim sayi, i As Integer
Dim cevap
If Adodc2.Recordset.RecordCount = 0 Then
cevap = MsgBox("Listelenecek Kayıt Yok", 48)
Combo1.Enabled = False
Else
Adodc2.Recordset.MoveLast
sayi = Adodc2.Recordset.RecordCount
Adodc2.Recordset.MoveFirst
For i = 1 To sayi
Combo1.AddItem Adodc2.Recordset.Fields("uyNo")
Adodc2.Recordset.MoveNext
Next i
Adodc2.Recordset.MoveFirst
End If



Cvp: Veri Tabanı Jet 4.0 OLDB Datafield - |By|KiDnArUt| - 25/03/2011

Yokmu Arkadaşlar İlgilenecek ßirisi Çıkamadım işin İçinden