AccessTr.neT

Tam Versiyon: Accessten excel bağlantıda kod hatası
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba arkadaşlar. Acces formda bir adet list bir adet butonum var. Butona tıklanınca c: sürücümde bulunan Excel dosyamdan bilgileri çekmesini istiyorum. Fakat yazdığım kod çalışmadı. yardımcı olursanız sevinirim. Yazdığım kod şu şeklide ;

Option Compare Database
Dim baglan As ADODB.Connection
Dim komut As ADODB.Command
Dim kayıt As New ADODB.Recordset
Set baglan=new ADODB.Connection
Set komut=new ADODB.Command
Dim veri As String
Private Sub Komut0_Click()
baglan.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\FIK_04.xls;Extended Properties=Excel 8.0;HDR=Yes"
baglan.Open
veri = "Select * from FIK_04"
kayıt.Open veri, baglan, 1, 1
Liste1.AddItem (veri)
baglan.Close
End Sub

kırmızı ile yazdığım yerde hata veriyor.
ben çok anlamam da bir şey dikkatimi çekti. dosya masa üstünde diyorsunu ama kırmızı yerde sanki direk C nin içinden bakıyormuş gibi geldi bana (C:\FIK_04.xls)
aslında öylede mesajı yazarken uzun olmasın diye c: yazmıştım orayı değiştirmeyi unutmuşum.
Örnek dosya eklerseniz çok daha iyi olur.