<![CDATA[Forum PostgreSQL - Wykrycie referencji]]>2008-02-11T10:35:24ZPunBBhttps://forum.postgresql.org.pl/viewtopic.php?id=2<![CDATA[Odp: Wykrycie referencji]]>https://forum.postgresql.org.pl/profile.php?id=82008-02-11T10:35:24Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=18#p18<![CDATA[Odp: Wykrycie referencji]]>https://forum.postgresql.org.pl/profile.php?id=62008-02-10T21:06:24Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=16#p16<![CDATA[Odp: Wykrycie referencji]]>https://forum.postgresql.org.pl/profile.php?id=82008-02-10T19:40:06Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=13#p13<![CDATA[Odp: Wykrycie referencji]]>https://forum.postgresql.org.pl/profile.php?id=62008-02-08T15:51:34Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=11#p11<![CDATA[Odp: Wykrycie referencji]]>https://forum.postgresql.org.pl/profile.php?id=82008-02-08T11:06:20Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=10#p10<![CDATA[Odp: Wykrycie referencji]]>https://forum.postgresql.org.pl/profile.php?id=62008-02-07T21:24:20Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=7#p7<![CDATA[Odp: Wykrycie referencji]]> '' then
begin
SetDB_box.DB_Connect := DB_Connect;
SetDB_box.plik := path_dir +dir_prefs +'\' +file_prefs;
SetDB_box.plik_pack := path_dir +LibPack;
end;
SQL_Command(DB_AdoCommand, baza, zapytanie, SetDB_box);
except; end;
end;
i dalej zapytanie umieszczone w bibliotece DLL:
procedure SQL_Command(DB_AdoCommand : TADOCommand; baza, zapytanie : String; SetDB_box : TSetDB); external LibConnect;
a oto i sama biblioteka:
procedureSQL_Command(DB_AdoCommand : TADOCommand; baza, zapytanie : String; SetDB_box : TSetDB);
begin
if baza <> '' then SetDB(SetDB_box.DB_Connect, SetDB_box.plik, SetDB_box.plik_pack, baza); // aktywuje baze
DB_AdoCommand.CommandType := cmdText;
DB_AdoCommand.CommandText := zapytanie;
try
DB_AdoCommand.Execute;
except
end;
end;
Trochę to pogmatfane ale działa dobrze. Użyłem try except na wypadek wszelkich blędów powodujących wywołaniami bezpośrednio z biblioteki.
mój problem rozwiązałem robiac w ten sposób:
begin
SQL_CommandRun(DB_AdoCommand, db_rksystem +InfoDB.rok, 'DELETE FROM kartoteki.jednostki_miar' WHERE id='''+IntToStr(id)+''';');
if SprawdzMozliwoscZapisu('kartoteki', 'jednostki_miar', 'id='''+IntToStr(id)+'''') > 0 then
begin
Komunikat('Jednostka miary jest przypisana do towaru, i nie ma możliwości usunięcia jej.');
Exit;
end;
end;]]>https://forum.postgresql.org.pl/profile.php?id=82008-02-07T20:58:05Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=5#p5<![CDATA[Odp: Wykrycie referencji]]>https://forum.postgresql.org.pl/profile.php?id=62008-02-07T20:08:24Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=3#p3<![CDATA[Wykrycie referencji]]>https://forum.postgresql.org.pl/profile.php?id=82008-02-07T19:51:41Zhttps://forum.postgresql.org.pl/viewtopic.php?pid=2#p2