Delphi - Parametros ADO

 
Vista:

Parametros ADO

Publicado por Delfino (11 intervenciones) el 10/02/2003 18:08:53
Saludos muchach@s que tal..
Lo que quiero es me digan como paso los parametros de procedimientos almacenados hecho en SQL Server con ADO store Procedure y como lo ejecuto...

o sea es diferen al storeProce de el BDE..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Parametros ADO

Publicado por Gabriel (8 intervenciones) el 12/02/2003 19:37:16
Mira esta funcion que arme para un prop. General. Chau!
Function IdAutonumerico(Stable,SField:String):Longint;
var
acCMD:TadoCommand;
ApTabla,ApCampo,ApValor: TParameter;
begin
acCmd:=TAdoCommand.Create(nil); //Instanciar el comando
acCmd.Connection:=GConexion; //Conexion que utiliza
acCmd.CommandText:='sp_Autonumerico';
AcCmD.CommandType:=cmdStoredProc;
//Instanciar y agregar los parametros diferencia en VB
apTabla:=accmd.Parameters.CreateParameter('sTable', ftstring, pdInput,50, 0);
apCampo:=accmd.Parameters.CreateParameter('sField', ftstring, pdInput,30, 0);
apValor:=accmd.Parameters.CreateParameter('Autonumerico', ftInteger, pdOutput,30, 0);
// Establecer el valor de los paramentros
apTabla.Value:=stable;
ApCampo.value:=SField;
//Ejhecutar el comando--> procedimiento almacenado
accmd.Execute;
IdAutonumerico:=strtoint(apValor.Value);
//Liberacion de los objetos
apTabla.Destroy;
apcampo.Destroy;
apvalor.Destroy;
acCMD.Destroy;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar