Excepción en codigo SQL, UDATE, Delphi 7
 

Buenas:

Pues aqui comentandoles haber si me pueden ayudar, soy nuevo en esto del Delphi (estoy manejando el 7), tengo una aplicación de altas y bajas a una BD de Access y hago la conexion y la consulta, todo bien, solo que quiero , despues de haber hecho una consulta y que me muestre los datos en unos EditBox (No en DBEditBox), yo pueda modificar los EditBox y despues de darle click al boton, me actualize y YA todos felices......Este es el codigo SQL:

procedure TForm1.Button1Click(Sender: TObject);

begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Tprueba SET campo1 = :' + edit2.Text +', campo2 = ' + edit3.Text + ' WHERE Id = '+ Edit1.Text);
ADOQuery1.Open;
end;

Pero OO mi sorpresa cuando lo ejecuto y le doy click me aparece una ventana de "Debugger Exception Notification" la cual dice " Proyect ..blabla ..class EOleException with message 'Objeto Parameter mal definido. Se proporciono informacion incompleta o incoherente' ....bla blaa

O tambien me salia que "El parametro (Lo que haya tecleado en el edit2) no tiene un valor predeterminado"

Una Ayuda Porfa


Saludos
Sergio Alonso Esparza, Chihuahua,Chihuahua,Mex.

Hola alonso.esparza, cuando haces modificacines sobre la BD tienes que utilizar ExecSQL y cuando haces solo consulta Open, ahí esta tu primer error, ahora tu consulta así como esta no necesita los : ya que le estas pasando directamente los parametros.

Debería quedar así:

Código Delphi [-]
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Tprueba SET campo1 = ' +edit2.Text+', campo2 = ' + edit3.Text + ' WHERE Id = '+ Edit1.Text);
ADOQuery1.ExecSQL;

Si tu campo es entero no necesita comillas pero sino si necesitas ponerle comillas, para ello puedes utilizar QuotedStr.

Saluditos

Hola
Deberias de indicarnos los tipos de campo, pero bueno, ahí va la primera prueba.

Código Delphi [-]
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:= 'UPDATE Tprueba SET campo1 = '+edit2.Text+', campo2 = '+edit3.Text+' WHERE Id = '+Edit1.Text);
ADOQuery1.Open;
end;

Saludos

Gracias a los dos ya me funcionó de hecho quedo así:

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Tprueba SET campo1 = ' + QuotedStr(edit2.Text) +', campo2 = ' + QuotedStr(edit3.Text) + ' WHERE Id = '+ Edit1.Text);
ADOQuery1.ExecSQL;

Jajajaja, ya me iba a dar de topes con la pared jaja, Oigan y abusando de su amabilidad
tengo un DBGrid en la forma, y quiero que en cuanto modifique se muestre el cambio en el DBGrid, jjeeje

GRACIAS Deveras

Saludos
atte
Sergio Alonso Esparza

Al Query que esta enlazado a tu DbGrid le Close y luego un Open.

Código Delphi [-]
 Query.Close;
 Query.Open;

Saluditos

Gracias, ya funciona =)

Saludos