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
Cvp: Veri Tabanı Jet 4.0 OLDB Datafield - |By|KiDnArUt| - 25/03/2011 Yokmu Arkadaşlar İlgilenecek ßirisi Çıkamadım işin İçinden |