[Delphi] ADOQuery SQL insert

[Verwijderd]

Hallo allen,

Ik probeer via een SQLQuery een record toe te voegen aan een access database. Ik heb hiervoor de onderstaande code geschreven:

code:

with ADOQuery1 do
    begin
      if active then close;
      SQL.clear;
      Parameters[1].Value := ComputernameEdt.Text; //List index out of bounds
      Parameters[1].Name := 'Computername';
      Parameters[2].Value := UsernameEdt.Text;
      Parameters[2].Name := 'username';
      SQL.Add ('INSERT INTO Table1(Computername, Username) VALUES(:computername,:username)');
    end;
end;

Op een een of andere manier als ik deze code uitvoer krijg bij de eerste regels parameters "List Index out of bounds (0)". Ik weet wat deze foutmelding inhoud maar toch krijg ik hem niet weg. Heeft iemand enig idee wat ik fout doe?

moet ik soms eerst nog andere paameters van sqlquery zetten?

alvast bedankt!

[OZ-Gump]

Je spreekt dan ook een parameter aan die er helemaal niet is.....

Probeer dit eens:

Delphi:

with ADOQuery1 do
    begin
      if active then close;
      SQL.clear;
      SQL.Add ('INSERT INTO Table1(Computername, Username) 
                                       VALUES (:computername, :username)');
      Parameters.ParamByName('computername').Value := ComputernameEdt.Text;
      Parameters.ParamByName('username').Value     := UsernameEdt.Text;
    end;
end;

Binnen Delphi wordt namelijk in een ADO query iets dat vooraf gegaan wordt door een : automatisch als parameter opgemerkt.

[ Voor 5% gewijzigd door OZ-Gump op 14-06-2004 10:41 . Reden: Lay & typo ]

[whoami]

Eerst je query 'zetten', en dan pas je parameters toewijzen.
Zie OZ-Gump.
Die parameter is er pas als je de SQL query gezet hebt.

[SysRq]

OZ-Gump schreef op 14 juni 2004 @ 10:39:

Delphi:

with ADOQuery1 do
    begin
      if active then close;
      SQL.TEXT := 'INSERT INTO Table1(Computername, Username) 
                                       VALUES (:computername, :username)';
      ParamByName('computername').AsString := ComputernameEdt.Text;
      ParamByName('username').AsString     := UsernameEdt.Text;
    end;
end;

En op deze manier is de query nog wat overzichtelijker

[OZ-Gump]

@SysRq: nofi, maar je hebt niets aan de query aangepast? En je hebt parameters. weggehaald voor ParamByName, waardoor de code niet meer klopt. Dus voor de TS: die parameters.ParamByname heb je wel nodig, anders werkt het niet.

SysRq, wat is de meerwaarde van jouw post?

[ Voor 3% gewijzigd door OZ-Gump op 14-06-2004 10:48 ]

[SysRq]

oeps, 'tis een ADOQuery...

en dan werkt de aanpassing .Value -> .AsString misschien ook niet? (Ik werk zelf eigenlijk nooit met ADOQuery.
en verder:
.clear en .add heb ik aangepast in .text :=

[ Voor 7% gewijzigd door SysRq op 14-06-2004 10:51 ]

[Verwijderd]

Ik heb nu de onderstaande code geschreven, maar er wordt helemaal geen record toegevoegd aan de database. Wel is het zo dat ik een veld nog niet heb toegewezen. Zou het daar mee te maken hebben, of moet ik eerst nog iets op active stellen of zo?

code:

begin
    with ADOQuery1 do
    begin
      if active then close;
      SQL.clear;
      SQL.Add ('INSERT INTO Table1(Computername, Username) VALUES(:computername,:username)');
      Parameters.ParamByName('computername').Value := ComputernameEdt.Text;
      Parameters.ParamByName('username').Value     := UsernameEdt.Text;
    end;
end;

[Creepy]

SysRq schreef op 14 juni 2004 @ 10:51:
oeps, 'tis een ADOQuery...

en dan werkt de aanpassing .Value -> .AsString misschien ook niet? (Ik werk zelf eigenlijk nooit met ADOQuery.

Die werkt prima, en is ook een vooruitgang. Je weet zelf prima wat voor type je parameter is. Maar waarom het de query duidelijker maakt?

en verder:
.clear en .add heb ik aangepast in .text :=

Waarom heb je dat gedaan? Als je een gigantische query hebt lijkt mij het overzichtelijker deze in losse stukken te voeren m.b.v. .Add en niet rechtstreeks de .text aan te spreken.

Edit:

SecurityRisc: Je *ZOU* de help eens kunnen lezen over TTable en TADOTable. Dan HAD je namelijk gelezen dat je je query nog moet laten uitvoeren (.exec).

[ Voor 16% gewijzigd door Creepy op 14-06-2004 10:55 ]

[whoami]

Je moet je query natuurlijk ook nog uitvoeren....

(En wat bedoel je met, ik heb een veld nog niet toegewezen?)

[ Voor 40% gewijzigd door whoami op 14-06-2004 10:55 ]

[SysRq]

Verwijderd schreef op 14 juni 2004 @ 10:52:
Ik heb nu de onderstaande code geschreven, maar er wordt helemaal geen record toegevoegd aan de database. Wel is het zo dat ik een veld nog niet heb toegewezen. Zou het daar mee te maken hebben, of moet ik eerst nog iets op active stellen of zo?

ADOQuery1.ExecSQL toevoegen

\edit

@Creepy: ik bedoelde de code, niet de query

[ Voor 7% gewijzigd door SysRq op 14-06-2004 10:56 ]

[Verwijderd]

het werkt nu

ik moest er nog ffe een sqlexecute achter zetten

thanks!

[Creepy]

SysRq schreef op 14 juni 2004 @ 10:55:
[...]
@Creepy: ik bedoelde de code, niet de query

Om eerlijk te zijn vindt ik jouw aanpassingen voor de leesbaarheid van de code niks uitmaken.

[SysRq]

Creepy schreef op 14 juni 2004 @ 11:51:
[...]

Om eerlijk te zijn vindt ik jouw aanpassingen voor de leesbaarheid van de code niks uitmaken.

Een .value naar een .AsString omzetten vindt jij niet leesbaarder? Nou ja, ieder zijn meug..

[Creepy]

SysRq schreef op 14 juni 2004 @ 12:03:
[...]


Een .value naar een .AsString omzetten vindt jij niet leesbaarder? Nou ja, ieder zijn meug..

Leg eens uit wat het leesbaarder maakt in dit geval?

[Verwijderd]

Het werkte, maar nu krijg ik ineens de melding

EOleException with message "Read-only property value was not set

Deze melding komt als ik de Connected Property van de ADOConnection op True probeer te zetten.

Ik heb gezocht op deja, maar kan niet echt iets concreete hierover vinden. Ik kan ook nergens een "read only" property vinden.

weet iemand toevallig wat het probleem hietr is?

[SysRq]

Als je hetzelfe sql statement nog hebt zijn de parameters in je query nog niet gevuld. Bijv: een "select * from table1" zal wel werken