|
|
Strona 1 z 1
|
[ Posty: 4 ] |
|
Przekazanie wartości z SQL do View
Autor |
Wiadomość |
LegendarnyZiom
Rejestracja: 2014-06-01, 13:35 Posty: 20
|
Przekazanie wartości z SQL do View
Kod: string SQL string ZMIENNA
Form "Wpisz dokładny numer faktury", 375, 170 ed1=Edit "", ZMIENNA, 20, 30, 255, 18 Button "&OK", 50, 80, 150, 23, 3 Button "&Anuluj", 230, 80, 70, 23, -1 If ExecForm == -1 Then Error ""
SQL = "SELECT DP.lp MZ " SQL += "inner JOIN MG " SQL += "ON MG.id = MZ.super " SQL += "inner JOIN DK " SQL += "ON MG.idhandl = DK.id " SQL += "inner JOIN DP " SQL += "ON DP.super = DK.id " SQL += "WHERE MG.kod = '"+ZMIENNA+"%' " SQL += "AND MZ.idtw <> DP.idtw " SQL += "ORDER BY DP.lp DESC "
Popup(0,"Zbieranie danych") Popup(1,"Proszę czekać ....")
con.CommandTimeout = 1000
Form "Brakujace pozycje", 380, 230 View "LP:", SQL, 130, 20, 210, 60 Button "&Anuluj", 220, 160, 100, 24, -1 Button "O&K", 60, 160, 100, 24, 2 ExecForm Error "" Zamiast podać że nie ma LP 3,2 Daje zapytanie SQL jako tekst, jak to poprawić?
|
2015-08-24, 11:41 |
|
|
Autor |
Wiadomość |
Mix-soft.pl
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3994 Pomógł: 447
|
Re: Przekazanie wartości z SQL do View
A gdzie jest recordset do, którego przekazujesz wynik zapytania?
|
2015-08-24, 12:46 |
|
|
LegendarnyZiom
Rejestracja: 2014-06-01, 13:35 Posty: 20
|
Re: Przekazanie wartości z SQL do View
Kod: string faktura string sConStr sConStr = "Driver={Pervasive ODBC Client Interface};ServerName=ADMIN-3FF462258;ServerDSN=power"
Dispatch con dispatch hm string SQL
int nx2=260 int ny=130 int x,y,dx,dy
#define adOpenStatic 3 hm = "ADODB.Recordset" con = "ADODB.Connection" con.ConnectionString = sConStr con.Open IORec ior
Form "",nx2, ny x=10 : y=10 : dx=nx2-30 : dy=47 Group "AUTOR: ",x,y,dx,dy Edit "", faktura, x+10,y+20, dx-20, 19 button "&OK",nx2-99,ny-60,80,25,2 button "Anuluj",nx2-199,ny-60,80,25,-1 if ExecForm == 2 then
SQL = "SELECT TW.id from TW " SQL += "INNER JOIN DP " SQL += "ON DP.idtw = TW.id " SQL += "INNER JOIN DK " SQL += "ON DK.id = DP.super " SQL += "INNER JOIN MG " SQL += "ON MG.idhandl = DK.id " SQL += "INNER JOIN MZ " SQL += "ON MZ.super = MG.id " SQL += "WHERE DK.kod = '"+faktura+"' " SQL += "AND MZ.idtw <> DP.idtw " SQL += "ORDER BY DP.idtw DESC "
con.CommandTimeout = 1000
hm.open( SQL, con, adOpenStatic) while !hm.eof ior.SetField("id",using "%.f",hm.fields("id").value) hm.movenext() wend hm.close endif con.close() showlistwindow(ior,"TW") nooutput()
Zmieniłem na taka wersje, jednak otwieranie TW nic mi nie daje, wolałbym poprzednią wersje i żeby pokazał LP z bazy DP Nie widzie w dokumentacji recordset tylko record, jednak dalej nie wiem jak to połączyć z SQL.
|
2015-08-24, 14:14 |
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3994 Pomógł: 447
|
Re: Przekazanie wartości z SQL do View
No to po co pokazujesz towary zamiast wypisać pozycje Kod: hm.open( SQL, con, adOpenStatic) while !hm.eof //ior.SetField("id",using "%.f",hm.fields("id").value) print hm.fields("dp.lp"),hm.fields("dp.kod"),lf hm.movenext() wend hm.close endif con.close() //showlistwindow(ior,"TW") //nooutput()
|
2015-08-25, 08:49 |
|
|
|
Strona 1 z 1
|
[ Posty: 4 ] |
|
Kto jest online |
Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 13 gości |
|
Nie możesz tworzyć nowych tematów Nie możesz odpowiadać w tematach Nie możesz zmieniać swoich postów Nie możesz usuwać swoich postów Nie możesz dodawać załączników
|
|
|
|