Pozdrav svima!
Moj problem: Na jednoj formi imam dva DataGrid-a, u prvom trebam prikazati
mjesta u drugom lokacije za isto, po sistemu kada se klikne na naziv mjesta
u prvom DataGrid-u, da pokaže lokacije za njega u drugom DataGrid-u.
To sam rijesio (bolje reći pokušao) sa dva Adodc i prvi DataGrid radi ali drugi
nikako da proradi...
Evo koda:
Problem nastaje u drugom Adodc2 kod Where (((Grad.SifragID) = " & a & "))...
Text1 je definiran kao Number i u njega punim SifragID koji je u tablici Autonumber.
Text1 mi treba u Adodc2 za Where... i tu nastaje problem "neće da radi"
Iz isključenog koda se vidi da sam probao i sa CLng. Očito da upit ne vidi to što bi
trebao nego "nešto drugo" u polju Text1
Molim za pomoć
HVALA
Moj problem: Na jednoj formi imam dva DataGrid-a, u prvom trebam prikazati
mjesta u drugom lokacije za isto, po sistemu kada se klikne na naziv mjesta
u prvom DataGrid-u, da pokaže lokacije za njega u drugom DataGrid-u.
To sam rijesio (bolje reći pokušao) sa dva Adodc i prvi DataGrid radi ali drugi
nikako da proradi...
Evo koda:
Code:
Adodc1.ConnectionString = gConnectionString
Adodc1.RecordSource = "SELECT Grad.Grad, Grad.SifragID FROM Grad " & _
"GROUP BY Grad.Grad, Grad.SifragID ORDER BY Grad.Grad"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
txtMjesto = DataGrid1.Columns(0)
Text1 = DataGrid1.Columns(1)
‘------- Dim a As Long
‘------- a = CLng(Text1)
Adodc2.ConnectionString = gConnectionString
Adodc2.RecordSource = " SELECT Grad.Grad, Lokacija.Lokacija, Lokacija.SifralokID " & _
"FROM Grad INNER JOIN Lokacija ON Grad.SifragID = Lokacija.Sifragrada " & _
"Where (((Grad.SifragID) = " & a & ")) " & _
"GROUP BY Grad.Grad, Lokacija.Lokacija, Lokacija.SifralokID " & _
"ORDER BY Grad.Grad, Lokacija.Lokacija"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
DataGrid2.Refresh
Adodc1.ConnectionString = gConnectionString
Adodc1.RecordSource = "SELECT Grad.Grad, Grad.SifragID FROM Grad " & _
"GROUP BY Grad.Grad, Grad.SifragID ORDER BY Grad.Grad"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
txtMjesto = DataGrid1.Columns(0)
Text1 = DataGrid1.Columns(1)
‘------- Dim a As Long
‘------- a = CLng(Text1)
Adodc2.ConnectionString = gConnectionString
Adodc2.RecordSource = " SELECT Grad.Grad, Lokacija.Lokacija, Lokacija.SifralokID " & _
"FROM Grad INNER JOIN Lokacija ON Grad.SifragID = Lokacija.Sifragrada " & _
"Where (((Grad.SifragID) = " & a & ")) " & _
"GROUP BY Grad.Grad, Lokacija.Lokacija, Lokacija.SifralokID " & _
"ORDER BY Grad.Grad, Lokacija.Lokacija"
Adodc2.Refresh
Set DataGrid2.DataSource = Adodc2
DataGrid2.Refresh
Problem nastaje u drugom Adodc2 kod Where (((Grad.SifragID) = " & a & "))...
Text1 je definiran kao Number i u njega punim SifragID koji je u tablici Autonumber.
Text1 mi treba u Adodc2 za Where... i tu nastaje problem "neće da radi"
Iz isključenog koda se vidi da sam probao i sa CLng. Očito da upit ne vidi to što bi
trebao nego "nešto drugo" u polju Text1
Molim za pomoć
HVALA