AccessTr.neT

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.