Usar Update de SQL en delphi
Publicado por Carlos (6 intervenciones) el 30/03/2005 00:05:53
Hola amigos de la web, deseo hacer actualizacions en varias tablas donde se utiliza un nombre de usuario (nombre propio de la persona) y un login name, deseo hacer estos cambios dinamicamente pero me marca un error en el token "update" mi codigo es el siguiente
Query1.SQL.Clear;
//**********Alumno
Query1.SQL.Add('update alumno set Institucion = '+QuotedStr(dbComboBox1.Text));
Query1.SQL.Add('where Nombre = '+QuotedStr(':'+label1.Caption));
Query1.SQL.Add('update alumno set TotalCapturas ='+DBEdit2.Text);
Query1.SQL.Add('where Nombre = '+QuotedStr(':'+label1.Caption));
Query1.SQL.Add('update alumno set Nombre = '+QuotedStr(dbedit6.Text));
Query1.SQL.add('where Nombre = '+QuotedStr(':'+label1.Caption));
Query1.ExecSQL;
Asi para cada una de las tablas que manejo, donde se encuentra mi error??, las sentencias SQL las puedo agregar todas y ejecutarlas todas al mismo tiempo despues o tengo que hacer un ExeqSQL por tabla??
Query1.SQL.Clear;
//**********Alumno
Query1.SQL.Add('update alumno set Institucion = '+QuotedStr(dbComboBox1.Text));
Query1.SQL.Add('where Nombre = '+QuotedStr(':'+label1.Caption));
Query1.SQL.Add('update alumno set TotalCapturas ='+DBEdit2.Text);
Query1.SQL.Add('where Nombre = '+QuotedStr(':'+label1.Caption));
Query1.SQL.Add('update alumno set Nombre = '+QuotedStr(dbedit6.Text));
Query1.SQL.add('where Nombre = '+QuotedStr(':'+label1.Caption));
Query1.ExecSQL;
Asi para cada una de las tablas que manejo, donde se encuentra mi error??, las sentencias SQL las puedo agregar todas y ejecutarlas todas al mismo tiempo despues o tengo que hacer un ExeqSQL por tabla??
Valora esta pregunta


0