🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #93084

Lazarus i SQLQuery.

#93084
From: Koriolan
Date: Sat, 31 Jul 2010 19:43
26 lines
1443 bytes
Jak zmusić SQLQuery do zmian ? Update, Insert itp.
Szukałem po necie ale przykłady mi nie działąją.
Nie chcę tu opisywać co mi się nie udało ale np.

==============
With SQLQuer ...

       UpdateSQL.Clear;  //Clear Update SQL Statement if Any
       UpdateSQL.Add('update pit_tmp_zm'); 
                   //
       UpdateSQL.Add('set kod_gl=''101010'' ');   //Create SQL
       UpdateSQL.Add('where pit_id= 10;'); 
            //
       ExecSQL;
       Edit; //Put Query in Edit(Update) Mode
       Post;
       ApplyUpdates; //Post and Apply Updates
       Close;
       SQLTrans1.CommitRetaining;
       ....

================

Nie działa :-(
Generalnie czepia się, że nie ma SQL (jest Update) ExecSQL zamiast Open
też nie chodzi :-(
Technical Details
Message-ID: <i31ucq$74m$2@speranza.aioe.org>
Path: mbox-mo1.pugleaf.net!border1.nntp.ams.giganews.com!nntp.giganews.com!news.musoftware.de!wum.musoftware.de!news.mixmin.net!aioe.org!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!border1.nntp.ams.giganews.com!nntp.giganews.com!news.musoftware.de!wum.musoftware.de!news.mixmin.net!aioe.org!not-for-mail
From: Koriolan <koriolan_new@o2.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Lazarus i SQLQuery.
Date: Sat, 31 Jul 2010 21:43:26 +0200
Organization: Aioe.org NNTP Server
Lines: 26
Message-ID: <i31ucq$74m$2@speranza.aioe.org>
NNTP-Posting-Host: 8nm4LRxlE89iGi9d0vL7Vg.user.speranza.aioe.org
Mime-Version: 1.0
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.2
User-Agent: Thunderbird 2.0.0.24 (Windows/20100228)
Bytes: 1484
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit