Ver Mensaje Individual
  #10  
Antiguo 17-06-2014
gdlrinfo gdlrinfo is offline
Miembro
 
Registrado: may 2007
Posts: 131
Reputación: 18
gdlrinfo Va por buen camino
Adostored

Cita:
Empezado por Disnier Ver Mensaje
suponiendo que ya tienes un ADOConnection1 a la base de datos que esta trabajando.

tienes que tener un ADOStoredProc que se conecte a ese procedemiento almacenado y luegos llamas a ese procedimiento almacenado desde delphi pasando los parametros que tienes.. esto serai un ejemplo asi.. por ejemplo esto es un procedimiento almacenado que me inserta en una tabla pasando esto paramentros que cojo de un formulario de delphi asi es como lo hago.
Código Delphi [-]
      DataModule2.ADOStoredProcInsertarTestadoMed.Connection:= DataModule1.ADOConnection1; // para conectarme a la base de dato porque lo tengo dinamico
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[0].Parameters.ParamValues['@IdTestMed']:= co;
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[1].Parameters.ParamValues['@Nome']:=trim(suiEdit1.Text);
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[2].Parameters.ParamValues['@Edad']:=suiEdit5.Text;
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[3].Parameters.ParamValues['@IdS']:=suiDBLookupComboBox1.KeyValue;
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[4].Parameters.ParamValues['@Data']:=DateTimePicker2.Date;
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[5].Parameters.ParamValues['@CantDia']:=suiEdit4.Text;
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[6].Parameters.ParamValues['@NRHC']:=suiEdit3.Text;
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[7].Parameters.ParamValues['@IdTestServ']:=suiDBLookupComboBox2.KeyValue;
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[8].Parameters.ParamValues['@Empresa']:=trim(suiEdit7.Text);
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[9].Parameters.ParamValues['@Diag']:=trim(suiEdit2.Text);
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[10].Parameters.ParamValues['@Recomienda']:=trim(suiMemo1.Text);
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[11].Parameters.ParamValues['@Cod_Medico']:=Form12.cod;
      DataModule2.ADOStoredProcInsertarTestadoMed.Parameters[12].Parameters.ParamValues['@Ver']:=val;
      DataModule2.ADOStoredProcInsertarTestadoMed.Open; // mando ejecutar el procedimiento almacenado
      DataModule2.ADOStoredProcInsertarTestadoMed.Close;// lo cierro

asi es como lo hago.. los insert update, select y delete espero que me entiendas.. saludos disnier
Si lo del ADOStored ya esta puesto si miras figura como Proc, igual lo que yo quiero hacer es que en sql me lo tira como en distintas grillas yo quiero ver todas las grillas en una en Delphi gracias saludos
Responder Con Cita