kod deposu

[aksoyahmet1]

arkadaşlar aşağıdaki aktif arama örneğinde
bir tablodan arama yapılıyor ve çok işime yaradı.
merak ettiğim bir şey var bu örnek tek tablodan arama yapıyor.
bunu çoklu tablodan arama yaptırabilirmiyiz .
mesela iki tablomuz var ve tarihe göre arama yaptırıcaz
nasıl yapabiliriz.yardımlarınız için şimdiden teşekkür ederim.



önce bir liste kutusu eklenir ve özelliği tablo sorgu yapılır sonra active x lereden metin kutusu eklenir ve ubdated özelliğine bu kod yapıştırılır

Private Sub TextBox7_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![TextBox7]

If Not IsNull(Me![TextBox7]) Then
strSQL = "SELECT [PERSONEL].[PERSONEL NO],[PERSONEL].[ADI SOYADI] FROM [PERSONEL] "
strSQL = strSQL & "WHERE (([PERSONEL].[ADI SOYADI]) Like '" & txtSearchString & "*') "

End If

Me!Liste12.RowSource = strSQL
End Sub

 

[tamer42]

Arkadaşlar Merhaba;
ben de bu konuyla benzer uzun zamandır düşündüğüm bir hususu sorabilirmiyim.

strSQL = "SELECT [PERSONEL].[PERSONEL NO],[PERSONEL].[ADI SOYADI] FROM [PERSONEL] "
strSQL = strSQL & "WHERE (([PERSONEL].[ADI SOYADI]) Like '" & txtSearchString & "*') "

burada [PERSONEL] adlı tablo o anda açık olan çalıştığımız mevcut database de ("db1.mdb")

bu tablonun farklı bir databese (db2.mdb) içerisinde olması durumunda nasıl ifade edebiliriz. bu sırada "db2.mdb" kapalıda olabilir.

Yardımlarınız için şimdiden teşekkürler..
İyi Çalışmalar.

 

[beab05]

Merhaba;

SELECT tablo.alan1, tablo.alan2, tablo.alan3

FROM tablo IN 'C:\Documents and Settings\user\Desktop\db2.mdb';

Dosya yoluna dikkat edin yeter, gayet güzel bağlanıyor..

 

[tamer42]

Sn beab05 ilginize teşekkürler,

verdiğiniz yöntemi deniyordum;

SELECT tablo.alan1, tablo.alan2, tablo.alan3

FROM tablo IN 'C:\Documents and Settings\user\Desktop\db2.mdb';

Aşağıdaki şekilde oluşturmaya çalıştım ama başarılı olamadım,

LkPath = "'C:\MyAccess\db2.mdb'"

strSQL3 = "SELECT tablo.alan1, tablo.alan2, tablo.alan3 FROM tablo IN" & LkPath
strSQL3 = strSQL3 & "WHERE (tablo.alan1 Like '" & tSearchString & "*') "

nasıl çözebilirim.

İyi Çalışmalar.

 

[modalı]

Sayın aksoyahmet1,

SQL deyimleri insanın başına bela açıyor. Bir boşluk bir parantez işi bozuyor.

 [LEFT]LkPath = "'C:\MyAccess\db2.mdb'"

strSQL3 = "SELECT tablo.alan1, tablo.alan2, tablo.alan3 FROM tablo IN " & LkPath
strSQL3 = strSQL3 & " WHERE tablo.alan1 Like '" & tSearchString & "*'"[/LEFT]

Olarak bir deneyin. Ben çalıştırmadan önce sql cümlesini bir ileti kutusunda açıp bakıyorum. Aradaki boşluklar bir tane olmalı 2 boşlukta çalışmıyor ve hata üretiyor. Bir de form üstünden alınan bilgiler tam olarak görünüyor.

İyi çalışmalar​