MySQL ile Gelen Veriyi TextBox Yazdırma

MySQL ile Gelen Veriyi TextBox Yazdırma

  • Konuyu başlatan Konuyu başlatan ssavas
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

ssavas

VIP Üye
Kullanıcı
Katılım
3 Ağu 2017
Mesajlar
247
Excel Versiyonu
Excel 2019
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar.
Formda bulunan textbox ile MySQL veritabanında sorgu yapıp gelen cevaba göre formda bulunan textbox ve combobox'la veri almaya çalışıyorum.
İlginç bir şekilde sadece txt_dno ve ComboBox1'e veri geliyor diğerlerinde hata mesajı veriyor.

Ekran görüntüsü 2025-01-30 122106.webp

1.webp

2.webp


VBA:
İndirmek için giriş yapmanız gerekmektedir.
(36 satır)
 
Çözüm
hayır onu demiyorum:
kullandığınız recordset rs olarak tanımlanmış
siz combobox1e ComboBox1.Value = rs("ili") ile değer atadığınızda combobox1 değişiyor,
değiştiği için de ComboBox1_Change() olayı tetikleniyor
bu change olayı kendi içinde rs.Open "select * from ilce where IL_ID=" & ComboBox1.Column(0) & " order by ADI", con ile yeni bir rs tanımlıyor dolayısıyla ComboBox1'e değer atamadan önce rs.Open "select * from kurumlar olan rs değişmiş oluyor.
yukarda paylaştığınız kodda kullandığınız Set rs = New ADODB.Recordset adını değiştirip rsKr gibi bir isim verip deneyin
combobox1 değiştiğinde tetiklenen yordam var mı?
yanlış hatırlamıyorsam combobox1 değiştiğinde ilçe adlarını alan bir yordam çalışıyordu,
o yordam da yine rs adında bir recordset tanımlıyordu. aynı ada sahip olduğu için rs artık eski rs olmuyor
rs adlarını değiştirip dener misiniz?
mesela
combobox1'e veri alan rs için rs_il
combobox2'ye veri alan rs için rs_ilce
gibi
 
hayır onu demiyorum:
kullandığınız recordset rs olarak tanımlanmış
siz combobox1e ComboBox1.Value = rs("ili") ile değer atadığınızda combobox1 değişiyor,
değiştiği için de ComboBox1_Change() olayı tetikleniyor
bu change olayı kendi içinde rs.Open "select * from ilce where IL_ID=" & ComboBox1.Column(0) & " order by ADI", con ile yeni bir rs tanımlıyor dolayısıyla ComboBox1'e değer atamadan önce rs.Open "select * from kurumlar olan rs değişmiş oluyor.
yukarda paylaştığınız kodda kullandığınız Set rs = New ADODB.Recordset adını değiştirip rsKr gibi bir isim verip deneyin
 
Çözüm
kabaca kodu aşağıdaki gibi düzenleyebilirsiniz
Kod:
İndirmek için giriş yapmanız gerekmektedir.
(11 satır)
 
kodları çalıştırırken F8 tuşu ile adım adım ilerlerseniz kodun neler yaptığını daha ayrıntılı görebilirsiniz
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt