veritabanı

[mbagcaci]

Excelde sayfa1'de beş kolondan oluşan bir listem var.Sayfa3'e bu listeden sayfa2'de verdiğim kriterlere göre bilgi almak istiyorum. Yani sayfa2'de belirttiğim kriterleri makro içinde sql sorgusu ile kullanarak sayfa3'e almak istiyorum. ---kolonlar : ad, soyad, doğ_tarihi, tel, ücret kriterler ise adı murat, doğ_tarihi 01.01.1980 ve üstü olup 300 YTL ve üstü maaş olanların listesi--- v.b.
yardımlarınız için teşekkür ederim.

 

[Tarkan VURAL]

Ã?rnek dosyayı açıklamalı sıkıştırarak yollar mısınız?

 

[mbagcaci]

veritabanı örnek dosyası

sayfa1 'de veriler, sayfa2'de ise sorgu kriterleri var.
makro içerisinde sql kodu kullanarak sayfa2'de belirttiğim kriterlere göre sayfa3'e rapor almak istiyorum. Yardımlarınıza teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki linki incelemenizi tavsiye ederim.

http://www.excel.web.tr/viewtopic.php?t=7516&highlight=s%FCz

 

[mbagcaci]

otomatik süz işleminin handikapı 1000 satırdan sonrası için (1000 rakamı tam doğru olmayabilir ama 1000 diye hatırlıyorum) çalışmaması.
burda asıl amaç excel'in makrosunda sql cümleciğini kullanabilmek. tabi aynı dosya içindeki sayfalar arasında.

 

[ALPEN]

inceleyiniz.

 

[Tarkan VURAL]

otomatik süz işleminin handikapı 1000 satırdan sonrası için (1000 rakamı tam doğru olmayabilir ama 1000 diye hatırlıyorum) çalışmaması.
burda asıl amaç excel'in makrosunda sql cümleciğini kullanabilmek. tabi aynı dosya içindeki sayfalar arasında.

Bilgi olsun diye söylüyorum, ben 59 bin küsür satırlık bir dosyada verileri süzerken hiç sorunla karşılaşmadım.

Selamlar;
:hey:

 

[bezl]

çok yüksek miktardaki veriyi süzdüğünüzde süzme listesinde bütün verileri görmeyebilirsanız benim karşılaştığım bu ama bir şeyi göster dediğinizde bir sorun olmuyor sadece ok'a tıklayınca gelen liste herşeyi göstermiyor.

 

[Tarkan VURAL]

Sayın bezl;
o konuda demek istediğinizi şimdi anladım, haklısınız.

 

[mbagcaci]

alpen'in gönderdiği dosya (sql.rar) işime çok yaradı. teşekkür ederim. fakat sorgu sonucu elde edilen bilgiler listbox'a yazılmış. Sorgu sonucu elde edilen bilgileri excelin istenilen herhangibir sayfasına yazdırmayı bir türlü yapamadım. Yardım ederseniz sevinirim.

 

[veyselemre]

deneyerek birşeyler yapmaya çalıştım
[vb:1:8de7c38018]Private Sub CommandButton1_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim satir As Long
Dim yol As String
yol = ActiveWorkbook.Path

Set db = OpenDatabase(yol & "\sql.xls", False, False, "Excel 8.0")
Set rs = db.OpenRecordset(TextBox1)
With rs
.MoveLast
satir = .RecordCount
.MoveFirst
End With
ListBox1.ColumnCount = rs.Fields.Count
ListBox1.Column = rs.GetRows(satir)
rs.MoveFirst
For X = 1 To rs.RecordCount
For Y = 0 To rs.Fields.Count - 1
[Sayfa3].Cells(X + 1, Y + 1) = rs.Fields(Y)
Next
rs.MoveNext
Next

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub[/vb:1:8de7c38018]

 

[mbagcaci]

[Sayfa3].Cells(X + 1, Y + 1) = rs.Fields(Y) satırına
"run time error 1004 Geçerli kayıt yok" hatası veriyor.
zannedersem hatanın sebebide rs.fields ifadesinde.
rs recordsetinde fieldslara ilişkin value değeri bulamıyor.
bende denemelerimde bu hatayla karşılaştım fakat bir türlü bu sorunu aşamadım.
yardımlarınıza teşekkür ederim.

 

[veyselemre]

bende çalışıyor

 

[mbagcaci]

haklısınız çalışltırmayı başardım. ben kodu bir fonksiyonun içinde çalıştırıyordum. yordamdan bu fonksiyonu çağırıyordum. zannedersem bundan dolayı hata veriyordu. kodu yordamın altına alınca çalıştı. çok teşekkür ederim.