05/12/2013, 02:24
Merhaba hocalarım.
Biz yeditane bilgisayarla çalışıyoruz. Her bilgisayarda bir öndosya ve server de de birtane arkadosyamız var. Öndosyamızda 2 tanede arama metin kutumuz var. Bu metin kutuları serverdeki arkadosyadan verileri arayıp buluyor. Ama bulma süresi çok uzun oluyor ve çalışamaz hale geldik. Arama işini nasıl hızlandırabiliriz. Arama kutusuna yazdigim her harf 3-4 saniye sürüyor, 6 harf yazarsam asagi yukari 18-24 saniye arasi sürüyor.
Arkadaşlar şu anda 4.000 tane veri var. Bu veri 100.000 kadar çıkabilir. Bu verilere 6 ayda ulaşabiliyoruz. Altı aydan önceki verileri siliyoruz. Veriler 100.000 de geçmez.
Sorun nerede olabilir. Server mi, Öndosya mı, Arkadosya mı, Kodda mı, Sorguda mı?
Dosya yı aşağıdaki Link ten görebilirsiniz.
https://accesstr.net/konu-sirket-kapisi-...ght=kaleci
Dosyayı tekrar göndermeyeceğim, Formu şişirmek istemiyorum.
VBA daki Kodlar
Sorgu Kodu Tabelle görünüm
Wie "*" & [Forms]![frmKfz]![SuchenVorleufig1] & "*"
Wie "*" & [Forms]![frmKfz]![SuchenVorleufig2] & "*"
Sorgu Kodu Sql görünüm
Sazgılarımla
kaleci
Biz yeditane bilgisayarla çalışıyoruz. Her bilgisayarda bir öndosya ve server de de birtane arkadosyamız var. Öndosyamızda 2 tanede arama metin kutumuz var. Bu metin kutuları serverdeki arkadosyadan verileri arayıp buluyor. Ama bulma süresi çok uzun oluyor ve çalışamaz hale geldik. Arama işini nasıl hızlandırabiliriz. Arama kutusuna yazdigim her harf 3-4 saniye sürüyor, 6 harf yazarsam asagi yukari 18-24 saniye arasi sürüyor.
Arkadaşlar şu anda 4.000 tane veri var. Bu veri 100.000 kadar çıkabilir. Bu verilere 6 ayda ulaşabiliyoruz. Altı aydan önceki verileri siliyoruz. Veriler 100.000 de geçmez.
Sorun nerede olabilir. Server mi, Öndosya mı, Arkadosya mı, Kodda mı, Sorguda mı?
Dosya yı aşağıdaki Link ten görebilirsiniz.
https://accesstr.net/konu-sirket-kapisi-...ght=kaleci
Dosyayı tekrar göndermeyeceğim, Formu şişirmek istemiyorum.
VBA daki Kodlar
Kod:
Private Sub Suchen1_Change()
Me.SuchenVorleufig1 = Me.Suchen1.Text
Me.untFrmKfz.Requery
End Sub
Private Sub Suchen2_Change()
Me.SuchenVorleufig2 = Me.Suchen2.Text
Me.untFrmKfz.Requery
End Sub
Sorgu Kodu Tabelle görünüm
Wie "*" & [Forms]![frmKfz]![SuchenVorleufig1] & "*"
Wie "*" & [Forms]![frmKfz]![SuchenVorleufig2] & "*"
Sorgu Kodu Sql görünüm
WHERE (((AbfKfzPersDE.NameVorname1) Like "*" & Forms!frmKfz!SuchenVorleufig1 & "*") And ((AbfKfzPersDE.Firma & "*" & [KFZ] & "*" & [Ausweisnr1] & "*" & [Datum1]) Like "*" & Forms!frmKfz!SuchenVorleufig2 & "*"))
Sazgılarımla
kaleci