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 makaleleri » Kestirmeden DB uygulaması
Ü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

en basitinden vb' de grafik çizimi

Yazar: eypiyu
Pek çok arkadaşın karşılaşabileceği (ben karşılaştım) gibi vb de grafik çizimine ihtiyaç duyulur bunun için en basit grafik çizimini örnek olarak gönderiyorum. Aşağıdaki kodu formunuza pic1 isimli bir PictureBox ve lbl_denklem adında bir label ekleyerek aynen yapıştırın ve grafiğinizi görün. Benim verdiğim örnekte 4. derece bir fonksiyonun grafiği çizilmektedir siz kafanıza göre uyarlayın elbette :).
Daha sonra grafik çizimi hakkında farklı örneklerde vereceğim özellikle benimde bitirme tezimde olan ve makina mühendisliği için çok gerekli çizim programlarını sizlerle buluşturacağım :).


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 № : 1505
Yayın Tar:07.12.2004
Yazar : _fatih_
Hit :6488

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

Basit bir telefon programı uygulaması. access da db ye kisiler tablosu açılır. idx,ad,soyad,telefon,adres alanları açılır.
formda listview -listw adıyla- kontrolu kullanılmıştır. diğer nesneler zaten tanıdık şeyler.

Prefence den
Microsoft DAO 3.6 Object Library
tanıtırız.

formun başına
'option explicit 'iyi bir programcı tanımları kullanmalıdır -ayrıca bu vb nin çalışmasını hızlandıracaktır-

RS As ADODB.Recordset

Sub tanimlar()
dbroot = "C:projedbdatabase.mdb" ' veya programın kurulu olduğu yer için App.Path & "dbdatabase.mdb"

Set conn = CreateObject("adodb.connection")
Set RS = CreateObject("ADODB.RecordSet")
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)}; "
dsnpath = dsnpath & "DBQ=" & dbroot
conn.Open dsnpath 'burada mdb dosyamız açılmış durumda
End Sub


Sub lwrefresh()
sqlstr = "SELECT * FROM kisiler where pozisyon='Arkadaş' order by ad;"

RS.Open sqlstr, conn, 1, 3
listw.ListItems.Clear
For sayac = 1 To RS.RecordCount
listw.ListItems.Add , , sayac

With listw.ListItems(listw.ListItems.Count)
.SubItems(1) = RS("ad")
.SubItems(2) = RS("soyad")
.SubItems(3) = RS("telefon")
.SubItems(4) = RS("adres")
End With
RS.MoveNext
Next
RS.Close
End Sub


Private Sub Form_Load()

With listw.ColumnHeaders
.Add , , "SIRA", 600, lvwColumnLeft
.Add , , "ADI", 1600, lvwColumnLeft
.Add , , "SOYADI", 1600, lvwColumnRight
.Add , , "TELEFONU", 1400, lvwColumnRight
.Add , , "ADRESİ", 1400, lvwColumnRight
End With
call lwrefresh
End Sub

Private Sub listw_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With listw 'burda listview i sutun ustune clickleyince sutuna gore sıralıyoz
.SortKey = ColumnHeader.Index - 1
.SortOrder = lvwAscending
.Sorted = True
End With
End Sub


Private Sub cmd_kaydet_Click()
If tidx = "" Or tidx = "tidx" Then 'bu gizli bi textbox kayıt open yapınca index nosu yazılır
sqlstr = "SELECT * FROM stok;"
RS.Open sqlstr, conn, 1, 3
RS.AddNew 'eğer kayıt yoksa
Else
sqlstr = "SELECT * FROM kisiler where idx =" & tidx & ";"
RS.Open sqlstr, conn, 1, 3
End If

RS("ad") = text(1)
RS("soyad") = text(2).Text
RS("telefon") = text(3).Text
RS("adres") = tstok(4).Text
RS("kayit_tarih") = Date
RS("kayit_saat") = Time
RS.Update
RS.Close
Call lwrefresh()
End Sub

Private Sub cmd_sil_Click()
If tstok(1) = "" Then
MsgBox "Önce Kişi Seçmelisiniz"
Exit Sub
End If

sor = MsgBox("Kaydı Silmek İstiyormusunuz? ", vbYesNo, "Kayıt Silme Onay") ' 6 yes 7 no
If sor = 6 Then 'evet ise
Set RS = conn.Execute("DELETE * FROM kisiler WHERE idx =" & tidx)
Call bosalt
lwrefresh ()
End If
End Sub

Sub bosalt()
for sayac=1 to 4
text(sayac).Text = ""
next
End Sub




Yorumlar, eklemeler ve düşünceler
        Prefence den
Microsoft DAO 3.6 Object Library
tanıtırız.

formun başına
'option explicit 'iyi bir programcı tanımları kullanmalıdır -ayrıca bu vb nin çalışmasını hızlandıracaktır-

RS As ADODB.Recordset


demişsinki DAO yu tanıtın ama ADO komutu kullanmışsın benim kafam karıştı dao mu ado mu dao recortseti tanıyomu ??

   muratcenk007, 21.01.2009 23:51
© 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