Lord-G
02-12-2008, 03:38:24
Un saludo al foro, antes usaba ZeosLib, pero un amigo me recomendo el MyDac, bueno la cuestion es que tengo una tabla con el nombre clientes a la cual mediante un formulario deseo meter ahi la informacion de clientes como su nombre la direccion y telefonos,etc
Con ZeosLib lo habia echo de esta forma y me funcionaba:
******
procedure TForm1.Button1Click(Sender: TObject);
begin
zquery1.Close;
zquery1.SQL.Clear;
zquery1.SQL.Text := 'insert into clientes (nombre,telefono,direccion) values (:nombre, :telefono, :direccion)';
zquery1.ParamByName('nombre').AsString :=edit1.text;
zquery1.ParamByName('telefono').AsString :=edit2.text;
zquery1.ParamByName('direccion').AsString :=edit1.text;
zquery1.ExecSQL;
end;
*******************************
Ahora Con MyDac lo hago asi
procedure TForm1.Button1Click(Sender: TObject);
begin
myquery1.Close;
myquery1.SQL.Clear;
myquery1.SQL.Text := 'insert into clientes (nombre,telefono,direccion) values (:nombre,:casa,:direccion)';
myquery1.ParamByName('nombre').AsString := edit1.Text;
myquery1.ParamByName('telefono').AsString :=edit2.Text;
myquery1.ParamByName('direccion').AsString :=edit3.Text;
myquery1.Execute;
end;
Y no me sirve ya que ejecuto el form meto los datos el nombre , el telefono, y la direccion y cuando le doy pulsar al boton....me indica este error:
#HY000Field 'Fecha_ing' doesn't have a default value
Si tengo un Campo en la Tabla 'Fecha_Ing' pero no entiendo porque me dice que no tiene un valor por defecto si nisiquiera lo estoy utilizando el este formulario de prueba :( :confused:
Por Favor Indicarme que estoy haciendo mal, la verdad estoy con ganas de volver a ZeosLib que como les digo me trabajaba bien, en Cambio MyDac no lo he comprendido.
¿Vale La pena MYDac o es la Misma Cosa usar ZeosLib?
De antemano Muchas Gracias !!
Con ZeosLib lo habia echo de esta forma y me funcionaba:
******
procedure TForm1.Button1Click(Sender: TObject);
begin
zquery1.Close;
zquery1.SQL.Clear;
zquery1.SQL.Text := 'insert into clientes (nombre,telefono,direccion) values (:nombre, :telefono, :direccion)';
zquery1.ParamByName('nombre').AsString :=edit1.text;
zquery1.ParamByName('telefono').AsString :=edit2.text;
zquery1.ParamByName('direccion').AsString :=edit1.text;
zquery1.ExecSQL;
end;
*******************************
Ahora Con MyDac lo hago asi
procedure TForm1.Button1Click(Sender: TObject);
begin
myquery1.Close;
myquery1.SQL.Clear;
myquery1.SQL.Text := 'insert into clientes (nombre,telefono,direccion) values (:nombre,:casa,:direccion)';
myquery1.ParamByName('nombre').AsString := edit1.Text;
myquery1.ParamByName('telefono').AsString :=edit2.Text;
myquery1.ParamByName('direccion').AsString :=edit3.Text;
myquery1.Execute;
end;
Y no me sirve ya que ejecuto el form meto los datos el nombre , el telefono, y la direccion y cuando le doy pulsar al boton....me indica este error:
#HY000Field 'Fecha_ing' doesn't have a default value
Si tengo un Campo en la Tabla 'Fecha_Ing' pero no entiendo porque me dice que no tiene un valor por defecto si nisiquiera lo estoy utilizando el este formulario de prueba :( :confused:
Por Favor Indicarme que estoy haciendo mal, la verdad estoy con ganas de volver a ZeosLib que como les digo me trabajaba bien, en Cambio MyDac no lo he comprendido.
¿Vale La pena MYDac o es la Misma Cosa usar ZeosLib?
De antemano Muchas Gracias !!