ExecSQL y Insert [ Marcoszorrila ]

[MasterXP]

Empezado por Lepe

sql.Add espera una cadena de texto, pero puedes construir esa cadena directamente sobre la linea, es decir:

Código Delphi [-]
  SQL.Add('INSERT INTO "Empleados.db" (CODIGO, NOMBRE) VALUES  (' + 
 inttostr(spinedit1.asinteger) + ', ' + edit2.Text + ')');

Saludos

Ahora me da un error bastante raro, ejemplo:

imaginemos que el valor del Edit1=5 (el edit 1 es el codigo)
y el valor del edit2='Juan' (el edit2 es el nombre)

cuando se presiona el boton, da un error que dice 'Invalid Field Name Juan '

osea el programa esta entendiendo el valor del edit2 como un campo de la tabla y no como un valor a insertarse en ella...

alguna idea????

[roman]

Empezado por MasterXP

Ahora me da un error bastante raro

El error no tienen nada de raro. Te recomiendo que luego del SQL.Add examines el valor de SQL.Text (ponlo en un memo o muéstralo con un ShowMessage) para que veas cuál es la sentencia que estás mandando al servidor. Compárala con la que tú mismo pusiste con datos estáticos y te darás cuenta de lo que está mal.

Como sugerencia te recomiendo que te tomes un tiempo para pensar qué es lo que está pasando. Poniendo y quitando comillas aquí y allá no es el método adecuado para entender.

También te sugiero que dediques un poco de tiempo a leer la ayuda de Delphi. Busca "Parameters" y encontrarás una sección que habla de consultas SQL parametrizadas. Usar parámetros es mucho más sencillo y legible que tratar de construir la consulta "al vuelo".

// Saludos

[MasterXP]

Roman, voy a tomar tu consejo durare esta noche probando y leyendo...

si me quedo con alguna duda la posteare.

Gracias.

[CCCP]

SQL.Add('INSERT INTO "Empleados.db" (CODIGO, NOMBRE) VALUES (' +
inttostr(spinedit1.asinteger) + ', ' + QuotedStr(edit2.Text) + ')');

[geovany]

El sql quedaria asi :

insert into empleados.bd (campo1, campo2, campon) values (:value1, :value2, :valuen)

y

queryn.ParamByName('value1').AsInteger := StrToInt(edit1.Text);
queryn.ParamByName('value2').AsString := edit2.Text;

etc.

y asi queda para los datos que les kieras mandar

bye
espero y te sirva