Skip to main content

AccessTr.neT


Veri Tabanı Jet 4.0 OLDB Datafield

Veri Tabanı Jet 4.0 OLDB Datafield

Çözüldü #1
Ö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.
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
projeyi ve db yi ekleyiniz
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
Çözüldü #3
Buyrun İnş. Anlatabilmişimdir Şimdiden Teşekkürler
.rar deneme.rar (Dosya Boyutu: 13,6 KB | İndirme Sayısı: 25)
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
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
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #5
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
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
Yokmu Arkadaşlar İlgilenecek ßirisi Çıkamadım işin İçinden
|By|KiDnArUt|, 07-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task