Ver Mensaje Individual
  #1  
Antiguo 02-12-2008
Avatar de Lord-G
Lord-G Lord-G is offline
Registrado
 
Registrado: dic 2008
Ubicación: Costa Rica
Posts: 8
Reputación: 0
Lord-G Va por buen camino
Guardar datos en MySql con MyDac

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

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 !!
Responder Con Cita