Ver Mensaje Individual
  #2  
Antiguo 27-01-2020
webmasterplc webmasterplc is offline
Miembro
 
Registrado: mar 2008
Posts: 275
Reputación: 17
webmasterplc Va por buen camino
lo estaba intentando asi haciendo pruebas

Código Delphi [-]
var
    connexion: TMyConnection;


{$R *.res}
function conectar (server,usuario,clave,base:string;puerto:Integer):Boolean;

    begin

      connexion.Create(nil);
      connexion.Server:=server;
      connexion.Username:=usuario;
      connexion.Password:=clave;
      connexion.Database:=base;
      connexion.Port:=puerto;
      connexion.Connected:=True;

    end;
procedure guardar (dato1,dato2:string);stdcall;
  var
  consulta:TMyQuery;
    begin
    conectar('127.0.0.1','root','0000','finanzas',3305);
    with consulta do
    begin
      Create(nil);
      connexion:=connexion;
      SQL.Add('insert into (conf_agente,config_rif)');
      SQL.Add('values (dato1,dato2)');
      ParamByName('pdato1').AsString:=dato1;
      ParamByName('pdato2').AsString:=dato2;
      Execute;
    end;
    consulta.Free;
    connexion.Free;
    end;
exports guardar;
Responder Con Cita