access i veri tabanı olarak kullanmak

[Fuat Şirin]

arkadaşlar access hakkında pek bir bilgim yok ama
access te oluşturulmuş bir tabloyu
veri tabanı olarak kullanarak
vb 6.0 da combobox a verileri nasıl alırım

mesela:

"c:\deneme.mbd" veri tabanım
"ürünler" tablo ismim

ben bunda "BARKOD" yazan sütunu combo1 e nasıl bağlarım

 

[modalı]

Sayın Fuat Şirin,

Sanırım böyle bir şey olması gerekiyor:

Adodc1.ConnectionString =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ariza_Takip.mdb;Persist Security Info=False"
    Adodc1.CommandType =  adCmdText
    Adodc1.RecordSource = "select * from urunler"
    Adodc1.Refresh
For don = 1 To  Adodc1.Recordset.RecordCount
combo1.AddItem  Adodc1.Recordset("BARKOD")
Adodc1.Recordset.MoveNext
Next don

Bir de veritabanı ve alan adlarında Türkçe karakter kullanmamaya dikkat edin. Hata oluşabilir.
Bir de veritabanınızı Access97 ye çevirerek deneyin.(Eğer çalışmaz ise)

İyi çalışmalar

 

[Fuat Şirin]

hocam harikasınız
birde vaktiniz varsa bana temel olması açısından
comboda seçilen satırı text lere alması mümkün mü
cinsi renk no fiyat
gibi

 

[modalı]

Sayın Fuat Şirin,

Pek ezbere çalışmayı sevmem, ama combo box un after update olayına şu kodları yazarak deneyin:

If Trim(combo1.Text)  <> "" Then
Adodc1.RecordSource " SELECT * from urunler Where BARKOD = '"  & combo1.text & "'"
Text1.Text =  adodc1.recordset("cinsi")
Text2.Text =  adodc1.recordset("renk")
Text3.text=adodc1.recordset("no")
Text3.text=adodc1.recordset("fiyat")
Else
MsgBox  "Başka Kayıt Bulunamadı", vbCritical, "Stok"
End If

Burada karşılaşabileceğiniz hatalar, tablodaki verilerin türlerinden oluşabilir.

İyi çalışmalar

 

[Fuat Şirin]

hocam after update olayını bulamadım
change olayına yazdım olmadı ama
başka bir yolu var mıdır

 

[modalı]

Chenge olayında çalışması gerekir.

Ne gibi bir hata oluştu?

 

[ofbalki]

Sayın Fuat Şirin kardeşim, ben de böyle bir veri tabanı kullanmak istiyorum. Örnek alabilmem için, program bitince eklerseniz çok sevinirim. Zira bu konuda yok denecek kadar az bilgim var.

Kullanmak istediğim programın linki veriyorum.

http://www.excel.web.tr/showthread.php?p=307820#post307820

Bayramınız şimdiden mübarek olsun.

 

[Fuat Şirin]

text ler boş
bir şey gelmiyor hocam,
hocam bu o kadar önemli değilde asıl sorum çok değerli vaktiniz varsa
mesela textlere comboya girdiğim verileri
tabana nasıl kaydederim yani
en son dolu satırdan itibaren yeni girişlerimi işleyebilirim

 

[Fuat Şirin]

sn ofbalki istediğiniz şey excelde yapılması mümkün bişey ama bu program üzerinde çalışıyorum şu an yarın akşma büyük ihtimalle sorunuza yanıt yazarım öle zor bişey değil
excelde

 

[ofbalki]

Eyvallah hocam, iyi çalışmalar.

 

[modalı]

Teker teker ilerleyelim. Recordseti açmadan nasıl veri görünür. En başa:

Adodc1.ConnectionString =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Ariza_Takip.mdb;Persist Security Info=False"

Satırını ekleyin.

AddNew komutuyla olur ama dediğim gibi ezbere çalışmayı sevmiyorum.

 

[Fuat Şirin]

hocam ekledim ama
gene aynı
textlerde hareket yok

 

[Fuat Şirin]

birde hocam elle mesela sayı girdiğimde
comple error diye bir hata mesajı geliyor

 

[Fuat Şirin]

hocam bu konuda bana yardımcı olursanız
en azından yeni bir giriş için
bir örnek kod verirseniz çok makbule geçer