kapalı dosya veri alma hata

[Fuat Şirin]

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public SQLStr As String
Sub DBON()
On Error Resume Next
Set DB = New ADODB.Connection
MyPath = Application.ThisWorkbook.Path & "\" & "1.XLS"
DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & MyPath
End Sub
Sub DBOFF()
On Error Resume Next
DB.Close
Set DB = Nothing
End Sub
Sub RSON()
On Error Resume Next
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
End Sub
Sub RSOFF()
On Error Resume Next
RS.Close
Set RS = Nothing
End Sub
Sub KayitBul()
On Error Resume Next
DBON
RSON
[a8:g1000].ClearContents
SQLStr = "SELECT [SIRA],[ADI],[SOYADI],[CINSI],[RENK], [NO] FROM [DATA$] "
RS.Open SQLStr, DB, 1, 3
Range("a8").CopyFromRecordset RS
[a1].Select
RSOFF
DBOFF
End Sub

bu kodlarla kapalı dosyadan veri alıyorum fakat
ekteki dosyadan veri alamıyorum
bu konuda yardımcı olursanız sevinirim...
en azından hata nerde onu belirtirseniz çok makbule geçer

 

[Fuat Şirin]

ark bu konuda yardımcı olacak kimse yok mu

 

[tamer42]

Sub KayitBul()
On Error Resume Next
DBON
RSON
[a8:g1000].ClearContents
[B]SQLStr = "SELECT [SIRA],[ADI][color=red],[SOYADI],[CINSI],[RENK], [NO] [/color]FROM [DATA$] "[/B]

..........

Yukarıda kırmızı ile boyalı alanları silin; çünkü bu alanlar dosyada yok

SQLStr = "SELECT [B][SIRA],[ADI][/B] FROM [DATA$] "

şeklinde deneyin.

 

[Fuat Şirin]

hocam çok teşekkür
istediğim gibi oldu

 

[Fuat Şirin]

peki hocam comboboxta excel dosyaları alıp
seçtiğimiz kapalı dosyadan veri nasıl alırız
örneğin seçtiğimiz müşt bilgilerini almak gibi

 

[tamer42]

Örnek eklermisiniz.

 

[Fuat Şirin]

hocam bir örnek hazırlamadım ama
comboboxta seçilen xls dosyasını (kapalı olan )
sayfa1 e getirse mesela
olur mu

 

[tamer42]

Öncelikle combobox' a Dosya adlarını yükleyeceksin;

daha Sonra

Sub DBON()
Set DB = New ADODB.Connection
MyFile=ComboBox1.Value & ".xls"
MyPath = Application.ThisWorkbook.Path & "\" & MyFile
DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & MyPath
End Sub

aralığına ComboBox1 değerini dosya adı olarak al

Private Sub ComboBox1_Change()

KayitBul

End Sub

Yine dediğim gibi, bir örnek yollarsan, onun üzerinde bakmak daha yerinde olur.

İyi Çalışmalar.

 

[Fuat Şirin]

evet hocam buydu istediğim

hocam bu eklediğim dosyadaki
küsürlü sayıları
almıyor neden olabilir

6,7 gibi sayılar
aktarılmıyor
7
8
10 gibi sayılar aktarılıyor

 

[Fuat Şirin]

hocam ek bilgi olarak veriyim ben bu
verileri barkodla el terminalinden alıyorum

 

[tamer42]

küsürlü sayıları almıyor derken ComboBox' a mı almıyor diyorsun?

Aşağıdaki kodları denermisiniz.

For r = 1 To 23

a = Cells(r, 6)

ComboBox1.AddItem a

Next r

 

[Fuat Şirin]

yok hocam
sayfaya almıyor
7

6


6
6

6
7

6
6
7
6

7

6
0
6
6


sutunu bu şekilde alıyor
aradaki boşlar
6,7 gibi sayılar
olunca boş geçiyor

 

[tamer42]

Bu verileri nereden almaya çalışıyorun?

kapalı bir dosyadan mı?