Hvala Ti, nikad na ovaj nacin nisam razmisljao, ali i dalje dobijam iste
poruku o gresci "No value given for one or more required parameter".
Sada zanam da se javlja zbog String promenljive
Code:
Private Sub Form_Load()
DataPath = App.Path & "Vodovod2001.mdb"
Dim AdoConn As ADODB.Connection
Dim ADOrs As ADODB.Recordset
Dim Qry As String
Dim a$
Const mcstrUpit As String = "SELECT * FROM CIJEV WHERE
UNUTRASNJI=<VrednostKljuca> and MATERIJAL='<VrednostImena>'"
Set AdoConn = New ADODB.Connection
AdoConn.ConnectionString = "Provider=Microsoft.JET.OLEDB.4.0;Data
Source=" & DataPath & ";Persist Security Info=False"
AdoConn.Open
a = 150
a$ = "PVC" '********************** !!!!!!!!!!!!!!!!!!
Qry = Replace(mcstrUpit, "<VrednostKljuca>", a)
Qry =
Replace(Qry,"<VrednostImena>",a$)'**********************!!!!!!!!!!!!!!
Set ADOrs = New ADODB.Recordset
ADOrs.Open Qry, AdoConn
Do While Not ADOrs.EOF
List1.AddItem ADOrs.Fields("ULICA")
ADOrs.MoveNext
Loop
Kao da resim problem? Kako da ukljucim da se u upitu mogu menjati OR i
AND?
Hvala ti unapred.