Prikazi cijelu temu 05.06.2017 23:00
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Query od vise tabela
Ja sam ova pretraga resio ovako:
Napravio tabela u koja u jednoj koloni upusem Naziv Polja od tabele a u drugoj koloni sta se trazi u toj koloni.
Podatci u uvoj tabeli se pune iz list boxova

I na kraju napravio sam procedura koja iscitava ovu tabelu i od njoj stvara se sql koj se upise u RecordSurce na subformi u koja se prikazuju rezultae.

Evo coda od proceduri.
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim rsUslov As ADODB.Recordset
  2.      Set cn = CurrentProject.Connection
  3.      Set rsUslov = New ADODB.Recordset
  4.          rsUslov.CursorLocation = adUseClient
  5.          rsUslov.Open "SELECT * FROM tblTempSQL", cn, adOpenForwardOnly, adLockOptimistic
  6.       If rsUslov.RecordCount = 0 Then SQLSearch = "SELECT tblTemp.* FROM tblTemp"
  7.              
  8.          SQLSearch = "SELECT tblTemp.* FROM tblTemp WHERE (("
  9.             rsUslov.MoveFirst
  10.          Do While Not rsUslov.EOF
  11.             SQLSearch = SQLSearch & "(tblTemp." & rsUslov.Fields("Pole") & ")=" & Chr(34) & rsUslov.Fields("SeBara") & Chr(34) & " OR "
  12.             rsUslov.MoveNext
  13.          Loop
  14.          SQLSearch = Left(SQLSearch, Len(SQLSearch) - 3) & "))"
  15.          Me.frmTemp_Subform.Form.RecordSource = SQLSearch
  16.          Me.frmTemp_Subform.Requery

Treba mi bolji kod za pretraga od ovaj koj se izvrsava na onChange na text pole.

PreuzmiIzvorni kôd (Visual Basic):
  1.  Dim SQLSearch As String
  2.    SQLSearch = "SELECT * FROM tblTemp WHERE Broj_No LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  3.              & " OR Godina_kad_je_verovatno_stvoren LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  4.              & " OR Broj_Kopija LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  5.              & " OR Format LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  6.              & " OR Grupa LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  7.              & " OR Naziv LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  8.              & " OR Moja_Firma LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  9.              & " OR pnfPrezime LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  10.              & " OR pnfIme LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  11.              & " OR Njihova_Firma LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  12.              & " OR ppPrezime LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  13.              & " OR ppIme LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  14.              & " OR Mesto_Gdje_Je_Stvoren LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  15.              & " OR Mesto_Kog_Se_Tice LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  16.              & " OR Osobe_Ime LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  17.              & " OR Osobe_Prezime LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  18.              & " OR Akcija LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
  19.              & " OR Opis LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34)
  20.     Me.frmTemp_Subform.Form.RecordSource = SQLSearch
  21.     Me.frmTemp_Subform.Requery