Ayuda para introducir datos a Acces
Publicado por Mijail (11 intervenciones) el 19/07/2007 02:20:10
Trabajo en Delphi 7, tengo una base de datos en Acces y cuando trato de introducir datos a mi tabla, me presenta un error de "error en la instruccion INTO"..., aki les proporciono el codigo para el que me pueda ayudar... Hay dos variables: sql1 y sql2...
adoquery1.close;
adoquery1.sql.clear;
sql1:='insert into Usuarios (IdUsuario, Contraseña, Nombre, Apellidos, Cédula, Dirección, Sexo, Teléfono, Fecha_Nac, E-mail, Cargo, Activo)';
sql2 := ' values(:a, :b, :c, :d, :e, :f, :g, :h, :i, :j, :k, :l)';
adoquery1.sql.add(sql1);
adoquery1.sql.add(sql2);
Adoquery1.parameters.parambyname('a').value := Nombre1.text;
Adoquery1.parameters.parambyname('b').value := Contra.text;
Adoquery1.parameters.parambyname('c').value := Nombre1.text;
Adoquery1.parameters.parambyname('d').value := Apellidos1.text;
Adoquery1.parameters.parambyname('e').value := Cedula1.text;
Adoquery1.parameters.parambyname('f').value := Direccion1.text;
Adoquery1.parameters.parambyname('g').value := Sexo1.text;
Adoquery1.parameters.parambyname('h').value := Telefono1.text;
Adoquery1.parameters.parambyname('i').value := Fecha_Nac1.Text;
Adoquery1.parameters.parambyname('j').value := Email1.text;
Adoquery1.parameters.parambyname('k').value := Cargo1.text;
Adoquery1.parameters.parambyname('l').value := True;
adoquery1.execsql;
showmessage ('El Usuario ha sido ingresado');
IngUs (sender);
Nombre1.SetFocus;
Gracias, Saludos
adoquery1.close;
adoquery1.sql.clear;
sql1:='insert into Usuarios (IdUsuario, Contraseña, Nombre, Apellidos, Cédula, Dirección, Sexo, Teléfono, Fecha_Nac, E-mail, Cargo, Activo)';
sql2 := ' values(:a, :b, :c, :d, :e, :f, :g, :h, :i, :j, :k, :l)';
adoquery1.sql.add(sql1);
adoquery1.sql.add(sql2);
Adoquery1.parameters.parambyname('a').value := Nombre1.text;
Adoquery1.parameters.parambyname('b').value := Contra.text;
Adoquery1.parameters.parambyname('c').value := Nombre1.text;
Adoquery1.parameters.parambyname('d').value := Apellidos1.text;
Adoquery1.parameters.parambyname('e').value := Cedula1.text;
Adoquery1.parameters.parambyname('f').value := Direccion1.text;
Adoquery1.parameters.parambyname('g').value := Sexo1.text;
Adoquery1.parameters.parambyname('h').value := Telefono1.text;
Adoquery1.parameters.parambyname('i').value := Fecha_Nac1.Text;
Adoquery1.parameters.parambyname('j').value := Email1.text;
Adoquery1.parameters.parambyname('k').value := Cargo1.text;
Adoquery1.parameters.parambyname('l').value := True;
adoquery1.execsql;
showmessage ('El Usuario ha sido ingresado');
IngUs (sender);
Nombre1.SetFocus;
Gracias, Saludos
Valora esta pregunta


0