dosya yönetimi ve ado

[l_sezer]

sormak istediğim userform içinde bulunan

listview1'e c:\belgelerim dizini içindeki xls uzantılı dosyaları gösterebilirmiyim
ve listview üzerinde mouse ile clik yaptığımda bu dosyanın dosya yolunu userform üzerindeki textbox1'e yazdırmak

ADO ile sorum ise

Const DBpath As String = "C:\Belgelerim\A001.xls"


kodda kırmızı ile işaretli yere userfomda bulunan textbox1 içindeki dosya yolunu ekleyebilirmiyim

yardımcı olan arkadaşlara şimdiden teşekkür eder

formda emeği geçen herkeze SAYGILARIMI sunarım

 

[Ferhat Pazarçevirdi]

listview1'e c:\belgelerim dizini içindeki xls uzantılı dosyaları gösterebilirmiyim
ve listview üzerinde mouse ile clik yaptığımda bu dosyanın dosya yolunu userform üzerindeki textbox1'e yazdırmak

Aşağıdakileri, Userform'un kod bölümüne kopyalayınız.

 Dim dizin As String
Private Sub ListView1_Click()
TextBox1 = dizin & ListView1.SelectedItem
End Sub
Private Sub UserForm_Initialize()
dizin = "C:\belgelerim\"
With ListView1
        .View = lvwReport
        .ListItems.Clear
        .ColumnHeaders.Clear
        .FullRowSelect = True
        .Gridlines = True
        .Sorted = False
        .LabelEdit = lvwManual
            With .ColumnHeaders
              .Add , , "Dosya Adı", 330
            End With
End With
With Application.FileSearch
    .NewSearch
    .LookIn = dizin
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
    If .FoundFiles.Count > 0 Then
       For i = 1 To .FoundFiles.Count
           ListView1.ListItems.Add , , Replace(.FoundFiles(i), dizin, "")
      Next i
    End If
End With
End Sub

Diğer soruda ise;

ADO ile sorum ise

Const DBpath As String = "C:\Belgelerim\A001.xls"


kodda kırmızı ile işaretli yere userfomda bulunan textbox1 içindeki dosya yolunu ekleyebilirmiyim

Bunun ADO ile ilgisi yok veya ben anlamadım.

Belirttiğiniz şekilde bir değer ataması, kodun belirttiğiniz şekliyle mümkün değil. Çünkü Const ile bir sabit (değişmez) tanımlamışsınız. Sizin muhtemelen bir değişkene ihtiyacınız var ama çözemedim.

 

[l_sezer]

dosyaları göstermedi

ve clik yaptığımda hata verdi
HATA KODU " Run Time '91' "


Bu verileri ADO yardımı değilde başka bir komutla almamız mümkün mü?

 

[Ferhat Pazarçevirdi]

Bilgisyarınızda "C:\belgelerim" diye bir dizin var mı?

 

[l_sezer]

var ama kodu yapıştırıken hata yapmışım

bu konuda teşekkür ederim

ADO dışında veri alma konusunda bilgi sahibi olan arkadaşlar
yardımcı olabilecekmisiniz

 

[l_sezer]

form içinde araştırdım farklı bir şekide veri alma var

ama yine sabit'i burda değiştirebilirmiyim

 

[l_sezer]

örnek dosya

dosyayı incelerseniz

dosya ismi kısmını istediğim veriyi yazabiliyorum
ama iş verileri almaya gelince hata veriyor

 

[l_sezer]

sanırım cevap verecek bir arkadaş yok

 

[l_sezer]

örnek gönderdiğim dosya neden hata veriyor

 

[l_sezer]

yardımcı olacak kimse yok mu?

 

[Ferhat Pazarçevirdi]

En son hangi dosya üzerinde işlem yapılacak ? Üç farklı örnek dosya eklemişsiniz ...

 

[l_sezer]

ado_getdata_2_listbox_145 denemesi.rar adlı dosyada

 

[l_sezer]

dosyayı alabildiniz mi?

 

[l_sezer]

ustalarım yardımcı olabilecek misiniz