mcsebas
25-01-2010, 08:56:16
Holas a todos nuevamente resulta que estoy haciendo un programa y utilizo MySQL como gestor de base de datos, hasta ahi todo bien, pero a la hora de insertar datos en una tabla de la base de datos no puedo agregarlos.
Utilizo los componentes ZConnection y ZQuery. Mi consulta es:
¿Como puedo hacer la insercion con estos dos componentes o se necesita de un data source o ztable?
Este es el codigo que utilizo:
try
Conexion:=TZConnection.Create(nil);
with Conexion do
begin
User:='root';
Password:='mcsebas';
HostName:='localhost';
Database:='despacho';
Protocol:='mysql-5';
Port:=3306;
Connected:=true;
end;
ComInsertar:=TZQuery.Create(nil);
with ComInsertar do
begin
Connection:=Conexion;
SQL.Clear;
SQL.Text:='insert into reparticion (idrep, nomreparticion, codrep) values (null,:NombreRep,:CodigoRep);';
ParamByName('NombreRep').AsString:=txtNombre.Text;
ParamByName('CodigoRep').AsString:=txtCodigo.Text;
Active;
ExecSQL;
end;
Except
on e:Exception do
end;
Gracias :)
Utilizo los componentes ZConnection y ZQuery. Mi consulta es:
¿Como puedo hacer la insercion con estos dos componentes o se necesita de un data source o ztable?
Este es el codigo que utilizo:
try
Conexion:=TZConnection.Create(nil);
with Conexion do
begin
User:='root';
Password:='mcsebas';
HostName:='localhost';
Database:='despacho';
Protocol:='mysql-5';
Port:=3306;
Connected:=true;
end;
ComInsertar:=TZQuery.Create(nil);
with ComInsertar do
begin
Connection:=Conexion;
SQL.Clear;
SQL.Text:='insert into reparticion (idrep, nomreparticion, codrep) values (null,:NombreRep,:CodigoRep);';
ParamByName('NombreRep').AsString:=txtNombre.Text;
ParamByName('CodigoRep').AsString:=txtCodigo.Text;
Active;
ExecSQL;
end;
Except
on e:Exception do
end;
Gracias :)