TextBox ile Veritabanından Sorgu Yapma

TextBox ile Veritabanından Sorgu Yapma

  • 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
Merhaba arkadaşlar.
TextBox1'e Abone No girilince veri tabanında abone_listesi tablosundan durumu bilgisine bakıp durumu AÇIK ise;
IAdı=ComboBox1
IlceAdi=ComboBox2
birim_adi=ComboBox3
abone_adi=ComboBox4
isletme_kodu=TextBox2
sozlesme_no=TextBox3
carpan=TextBox4
KAPALI ise "ABONELİK KAPALIDIR" mesajını vererek işlemi sonlandırması için aşağıdaki makroyu düzenledim.
CPP: 
İndirmek için giriş yapmanız gerekmektedir.
(24 satır)

Sorguda olmayan bir abone numarası girince makro çalışıyor, ancak doğru abonelik numarası girince hata mesajı dönüyor.
Yardımcı olacak arkadaşlara teşekkür ederim.

hata.webp
 
UserForm Kaydet butonu
Yeni Combobox veri ekle

Ekli dosyalar

  • sorgu.webp
    sorgu.webp
    13.3 KB · Görüntüleme: 109
Tarihe göre sırala Oylamaya göre sırala
Örnek belge göremedim.

Mevcut beleyi kodlayanın kendisi, sorunu daha kolay tespit edecektir.
Ancak, aklıma ilk gelen; arama alanındaki ABONE NO'larının veri türüyle ilgili bir sorun olabileceği.
Sayı/metin durumuyla ilgili değişken türü uyuşmazlığı olabilir.
sorgu satırındaki TextBox1.Text yerine örneğin sadece TextBox1 yazarak bir deneyin isterseniz.

.
 
Oyla 0 Olumsuz oyla
Merhaba,
Dikkat edin kodlara veri tabanına kayıt yapmıyorsunuz, veri tabanından veri çekiyorsunuz dolayısı ile userform nesnelerine veri yazdıracağınız için nesne isimleri başta olmalı.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)
 
Oyla 0 Olumsuz oyla
s.savas' Alıntı:
Merhaba arkadaşlar.
TextBox1'e Abone No girilince veri tabanında abone_listesi tablosundan durumu bilgisine bakıp durumu AÇIK ise;
IAdı=ComboBox1
IlceAdi=ComboBox2
birim_adi=ComboBox3
abone_adi=ComboBox4
isletme_kodu=TextBox2
sozlesme_no=TextBox3
carpan=TextBox4
KAPALI ise "ABONELİK KAPALIDIR" mesajını vererek işlemi sonlandırması için aşağıdaki makroyu düzenledim.
CPP: 
İndirmek için giriş yapmanız gerekmektedir.
(24 satır)

Sorguda olmayan bir abone numarası girince makro çalışıyor, ancak doğru abonelik numarası girince hata mesajı dönüyor.
Yardımcı olacak arkadaşlara teşekkür ederim.

sorgu.gif
Genişletmek için tıklayın ...
Ayriyeten CALL BAGLANTI kodunu görmek gerekiyor.
 
Oyla 0 Olumsuz oyla
Feyzullah' Alıntı:
Merhaba,
Dikkat edin kodlara veri tabanına kayıt yapmıyorsunuz, veri tabanından veri çekiyorsunuz dolayısı ile userform nesnelerine veri yazdıracağınız için nesne isimleri başta olmalı.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(7 satır)
Genişletmek için tıklayın ...
Foruma girmeden önce hatamı bende fark ettim ve gerekli düzenlemeyi yaptım.
CPP: 
İndirmek için giriş yapmanız gerekmektedir.
(26 satır)
Burada da bazı alanlarda (isletme_kodu,sozlesme_no ve carpan verisi sadece elektrik abonelerinde var, diğerlerinde yoktur) veri yoktu dolayısıyla tür uyuşmazlığı hatası verdi. Hata mesajını engellemek için on error resume next satırını ekledim.
Hata mesajı engellendi ancak abone adı elektrik olunca sozlesme_no ve carpan alanlarından veri gelmedi.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Burada da bir dikkatsizlik söz konusu imiş.
Aslında kod doğru ve eksiksiz çalışıyormuş, veri tabanında ilgili alanlarda veri yokmuş, ilgili alanlara veri girince çalıştı.
CPP: 
İndirmek için giriş yapmanız gerekmektedir.
(33 satır)
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt