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 hazır kodlar » dbgrid seçili olan kartı açan program
Ü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

Kullanıcının hangi sitede olduğunu bulmak

Yazar: SilentBlade
Hangi sitede dolaştığınızı gösteren ufak bi kod


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 № : 6539
Yayın Tar:15.03.2006
Yazar : yongaseti
Hit :2321

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

iki forma Bir Dbgrid, Data koyun

'form 1
Public author_id As Integer

Private Sub DBGrid1_RowColChange(LastRow As Variant, _
ByVal LastCol As Integer)

If LastRow <> "" Then 'ilk girişte açılmasın diye
author_id = Data1.Recordset!Au_ID
Form2.Show
End If

End Sub

'form2
Private Sub Form_Load()
On Error Resume Next
Data1.RecordSource = "Select * from Authors where Au_ID=" & Form1.author_id
Data1.Refresh
End Sub








Yorumlar, eklemeler ve düşünceler
        dbgrid hızlı ama esnek değil
alsana msflexgrid i dbgrid gibi kullanımına örnek hemde renkli
Set sst = Form1.db.OpenRecordset("SELECT * FROM taah where(musteri = '" + rst!deg1 + "' and yer= '" + fir + "')order by tarih ", dbOpenSnapshot)

Form1.MSFlexGrid9.AddItem "" & Chr(9) & sst!tarih & Chr(9) & Format(sst!miktar, "#,##0.00 YTL") & Chr(9) & sst!tur2 & Chr(9) & sst!rno
borc1 = sst!miktar + borc1
If sst!tarih < Date - CVDate(7) Then ' tarihi geçmişler kırmızı
For I = 0 To 4
Form1.MSFlexGrid9.Col = I
Form1.MSFlexGrid9.Row = Val(ss)
Form1.MSFlexGrid9.CellForeColor = &HFF&
Next I
End If
If sst!tarih > Date - CVDate(7) And sst!tarih < Date Then ' tarihi yaklaşanşar yeşil
For I = 0 To 4
Form1.MSFlexGrid9.Col = I
Form1.MSFlexGrid9.Row = Val(ss)
Form1.MSFlexGrid9.CellForeColor = &H8000&
Next I
End If

   finderx, 21.03.2006 00:48
© 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