Prikazi cijelu temu 12.02.2017 13:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Search SQL
Kod mene sve ove rade perfektno.
Mozda je stvarno do grida.
Evo isprobaj.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub pret1_Change()
  2.     Dim MySQL As String, Rekord As String
  3.     Dim Kriterij As String, Uslov As String
  4.    
  5.         Uslov = Me.pret & "%"
  6.     MySQL = "SELECT * FROM tblArtikli WHERE "
  7.     Kriterij = "Artikal_Ime Like '" & Uslov & "' OR "
  8.     Kriterij = Kriterij & "Artikal_BarKod Like '" & Uslov & "' OR "
  9.     Kriterij = Kriterij & "Artikal_Sifra Like '" & Uslov & "'"
  10.     Rekord = MySQL & Kriterij
  11.     Me.Adodc1.RecordSource = Rekord
  12.  Adodc1.Refresh
  13. End Sub
  14.  
  15. Private Sub pret3_Change()
  16.  Dim MySQL As String, Rekord As String
  17.     Dim Kriterij As String, Uslov As String
  18.  
  19.     Uslov = Me.pret.Text & "%"
  20.     MySQL = "SELECT * FROM tblArtikli WHERE "
  21.     Kriterij = "Artikal_Ime Like '" & Uslov & "'"
  22.     Rekord = MySQL & Kriterij
  23.     rs.Open Rekord, conn
  24.    If Not rs.EOF And Not rs.BOF Then
  25.     Me.Adodc1.RecordSource = Rekord
  26.     Me.Adodc1.Refresh
  27.     GoTo Kraj
  28.     Else
  29.     rs.Close
  30.     Kriterij = "Artikal_BarKod Like '" & Uslov & "'"
  31.     Rekord = MySQL & Kriterij
  32.     End If
  33.    
  34.     rs.Open Rekord, conn
  35.     If Not rs.EOF And Not rs.BOF Then
  36.     Me.Adodc1.RecordSource = Rekord
  37.     Me.Adodc1.Refresh
  38.     GoTo Kraj
  39.     Else
  40.     rs.Close
  41.     Kriterij = "Artikal_BarKod Like '" & Uslov & "'"
  42.     Rekord = MySQL & Kriterij
  43.     End If
  44.     Kriterij = "Artikal_Sifra Like '" & Uslov & "'"
  45.     Rekord = MySQL & Kriterij
  46.     Me.Adodc1.RecordSource = Rekord
  47.     Me.Adodc1.Refresh
  48. Exit Sub
  49. Kraj:
  50. rs.Close
  51. End Sub
  52. Private Sub pret2_Change()
  53.  Dim MySQL As String, Rekord As String
  54.     Dim Kriterij As String, Uslov As String
  55.  
  56.     Uslov = Me.pret.Text
  57.     MySQL = "SELECT tblartikli.* From tblartikli " _
  58.     & "WHERE InStr(CONCAT(Artikal_Sifra,Artikal_BarKod,Artikal_Ime),'" & Uslov & "')>0"
  59.     Me.Adodc1.RecordSource = MySQL
  60.     Me.Adodc1.Refresh
  61. End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.