ADO ile listboxtan seçtiğimiz dosyaya veri girme

[ikikan]

Arkadaşlar formda çok aradım ama bulamadım bir userform üzerinde 2 listbox var
biri klasörler içindeki dosyaları sıralıyor diğeri ise yapmasını istediğim

1. listbox1 de seçim yaptıgımız zaman kitap içindeki bilgileri 2. listbox2 de bilgilerin aktarılmasını ve değişmesini kayıt yapılmasını saglamalı bunu yapılması mümkünmü ekte örnek bir dosya gönderiyorum

 

[ikikan]

Arkadaşlar yapmak istediğim Listbox1 da sectigim dosyanın içeriğini listbox2 görmek ve bu seçim yapılmış dosyaya kayı yapmak bir örnek dosya gönderiyorum şimdiden teşekürler

 

[ikikan]

ADO ile listboxtan seçtiğimiz kapalı dosyalara veri girme

yapmak istediğim arkadaş listbox1 de seçtiğim dosyanın içeriğini listbox2 de görmek ve bu dosyay veri girişi yapabilmek bu mümkünmüdür acaba ?

ekte bir örnek dosya gönderiyorum

 

[ikikan]

kapalı dosyalardan listbox a veri alma ve değiştirme

Yapmak istediğim arkadaş listbox1 de seçtiğim dosyanın içeriğini listbox2 de görmek ve bu dosyay veri girişi yapabilmek bu mümkünmüdür acaba ?

 

[Murat OSMA]

Aynı konu için neden 4 farklı konu açtınız acaba ? :roll:

http://www.excel.web.tr/f48/kapaly-dosyalaradan-bilgi-almak-t104329.html#post568169
http://www.excel.web.tr/f48/ado-ile-listboxtan-sectioimiz-dosyaya-veri-girme-t104331.html#post568173
http://www.excel.web.tr/f48/kapaly-dosyalardan-listbox-a-veri-alma-ve-deoi-t104335.html#post568186

Tek bir mesajınız kalsın ki, aynı konu için farklı arkadaşlar sorunuza yanıt için vakit kaybetmesinler.
Bu şekilde sürekli aynı konuyu açtığınızda bence kimsenin içinden size yanıt vermek gelmiyordur...

Haksız mıyım ?

İyi akşamlar.

 

[halit3]

Konuların hepsi tarafımca birleştirilmiştir.

 

[Murat OSMA]

Teşekkürler Halit Bey...

 

[ikikan]

kusura bakmayın

farketmeden oldu yonetiçi onaylı yayınlanan bir konu olduğunu farketiğimde hata veriyor sanıp bir kackere aynı konuyu göndermiştim kusura bakmayın

 

[ikikan]

neden kod hata veriyor yardım edebilirmisiniz


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglanti As ADODB.Connection
Dim yol As ADODB.Recordset
Set baglanti = New ADODB.Connection
Set yol = New ADODB.Recordset

ListBox2.Clear
yer = ("E:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\")
dosya = "" & ListBox1.Value & ".xlsx"
baglanti.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= yer & dosya & ;Extended Properties=""Excel 12.0 Macro;HDR=YES';"""
yol.Open "SELECT * FROM [Sayfa1$];", baglanti, adOpenStatic, adLockReadOnly
yol.MoveFirst

Do Until yol.EOF
ListBox2.AddItem yol(1)
ListBox2.ColumnCount = 10
yol.MoveNext
Loop
baglanti.Close


End Sub

 

[ikikan]

neden value degeri atıyamıyorum

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglanti As Object, yer As Object, sayfa As Object
Set baglanti = New ADODB.Connection
Set yer = New ADODB.Recordset

acab kaplı dosyaları acmak için neden value degeri belirliyemiyorum

ListBox2.Clear
baglanti.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
ThisWorkbook.Path & "\KartP\" & ListBox1.Value & ".xlsx ;Extended Properties='Excel 12.0 Macro;HDR=YES';"
yer.Open "Select * From [Sayfa1$];", baglanti, 1, 1
With ListBox2
.AddItem
.ColumnCount = 1
.List(0, 0) = yer(0)
End With
Label1.Caption = ""
Label1.Caption = ListBox1.Value
yer.Close
baglanti.Close
End Sub