Forum: Datenbanken
Delphi
by Mario,
10. Feb 2004
Die beiden Routinen habe ich mir im DataModul hinterlegt:
function TDataModuleServer.GetCommandValue(Commando: String): Variant;
var rs: _Recordset;
begin
WITH TADOCommand.Create(Self) DO
TRY
Connection := ADOConnection????;
CommandText := Commando;
rs := Execute;
IF (rs <> NIL) AND
Forum: Datenbanken
Delphi
by Mario,
9. Feb 2004
Fast genau so sollte es gehen. Und wenn Du statt der AdoQuery noch AdoCommand nimmst, ist es perfekt. Das sollte dann ca. so aussehen (jetzt nicht kompiliert, sondern nur so getippt):
dmDbTools.qryTubes.CommandText := 'UPDATE tubes SET name=:Pname '+
'WHERE article_id=:Particle;');
dmDbTools.qryTubes.Parameters.ParamByName('Pname').Value := name;...