Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic ipuçları » Sorgu ve statusbar işbirliği
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Animasyon Yapmak

Yazar: myadas

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 5358
Yayın Tar:13.12.2005
Yazar : bracos
Hit :2883

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Eğer buyuk bir database de sorgu işlemi yapıyorsak, sorguyu başlattığımız andan itibaren progressbar gibi ilerleme çubuğu kullanmak isteriz.Bu görsel olarak güzel bir işlem olsada yeni başlayanlar için zor gelebilir.Kullanıcı sorguyu başlattıktan sonra eğer ona sorgu çalışıyor bilgisini vermessek devamlı sorgula tuşuna basar.Bunu önlemek için basit bir bilgilendirme yapabiliriz.Formumuza bir status barr ekleyerek.Sorgu başladığında statusbarda "sorgu başladı ve devam ediyor" bilgisini verdirip daha sonra sorgu bitince ise statusbar da "sorgu bitti" diyerek basit bir bilgilendirme yapabiliriz.Bu şekilde sorgu başladığında ve bittiğinde statusbarda basit bilgi veriyor ve bu şekilde kullanıcı sorgulama butonuna birkez basmış olup sorgusunu çalıştırıp çalıştırmadığını görebiliyor.Basit anlamda işinize yarayabilir.Kolay gelsin.

Dim baglan As New ADODB.Connection
Dim kayit As New ADODB.Recordset

Private Sub Form_Load()
Set baglan = New ADODB.Connection
Set kayit = New ADODB.Recordset
End Sub

'Sorgulama Başlıyor
StatusBar1.Panels.Item(1).Text = "Sorgu başladı ve devam ediyor..."
baglan.Open "Provider=OraOLEDB.Oracle.1;Password=test123456;Persist Security Info=True;User ID=test;Data Source=TEL"

kayit.Open "select * from telno_vw where NET_PHONE='" & Trim(Text1.Text) & "' and DAY >= to_date('" & DTPicker1.Value & "','dd.mm.yyyy hh24:mi:ss') and day < to_date('" & DTPicker2.Value & "','dd.mm.yyyy hh24:mi:ss')", baglan, 1, 3
Set DataGrid1.DataSource = kayit
Set kayit = Nothing
Set baglan = Nothing
StatusBar1.Panels.Item(1).Text = "Sorgu bitti"




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin