Hola a todos. Trabajo con Delphi 7 y Sql Server 2000. Utilizo para conectarme a la base de datos sql server los componentes de la paleta ADO. Tengo el siguiente problema: he diseñado tres procedimientos almacenados con la finalidad de actualizar un campo de una de las tablas de la base de datos con la cual trabajo. Los procedimientos almacenados tienen el siguiente código:
Código SQL
[-]
CREATE PROCEDURE spDebitarCheque
(@IdCheque int,
@FechaDebito datetime)
AS UPDATE [Cheque].[dbo].[Cheques]
SET [FechaDebito] = @FechaDebito
WHERE IdCheque =@IdCheque
GO
El segundo tiene el siguiente código
Código SQL
[-]
CREATE PROCEDURE [sp_Debitar_Cheques]
(@FechaEmision datetime,
@FechaDebito datetime)
AS UPDATE [Cheque].[dbo].[Cheques]
SET [FechaDebito] = @FechaDebito
WHERE FechaEmision =@FechaEmision
GO
El tercero tiene el siguiente código:
Código SQL
[-]
CREATE PROCEDURE spDebitarRango
(@FechaEmision datetime,
@FechaEmision1 datetime,
@FechaDebito datetime)
AS UPDATE [Cheque].[dbo].[Cheques]
SET [FechaDebito] = @FechaDebito
WHERE (FechaEmision >=@FechaEmision AND FechaEmision <=@FechaEmision1)
GO
Que persigo con esto, actualizar en dependencia de varios criterios el campo FechaDebito de la tabla cheques. He probado cada uno de estos procedimientos almacenados en sql server y funcionan a la perfección.
Ahora cuando voy a delphi y trato de que esto funcione vienen los problemas.
Tengo un formulario con los siguientes componentes. Un radiogroupbox con las siguientes opciones Debitar un cheque, Debitar varios cheques y Debitar por rango de fechas. Además tengo un Panel, dos Groupbox. En el Panel tengo colocado un edit para poner el número del cheque que se quiere debitar, en uno de los groupbox tengo dos datetimepicker para establecer el rango de fecha para los cheques a los cuales se quiere actualizar su FechaDebito. En el evento onclick del radiogroupbox puse lo siguiente:
Código Delphi
[-]
begin
with RGDebitarCheques do
begin
CriteriodeSeleccion.Caption := Format('%S',[Items[ItemIndex]]);
case ItemIndex of
0:begin
Panel1.Visible := True;
ADOSPDebCheque.Close;
ADOSPDebCheque.Parameters.ParamByName('@IdCheque').Value := EditNoCheque.Text;
ADOSPDebCheque.Parameters.ParamByName('@FechaDebito').Value := DTPFechaDebitoPanel.Date;
ADOSPDebCheque.ExecProc;
end;
Solamente para probar si funciona la actualización de la tabla con la primera opción pero esto me genera una excepción en la EoleException. Cuando hago click en la primera opción del componente radiogroupbox se levanta dicha Excepción en esa clase que traducida al español me dice que la palicación está usando un valor de tipo incorrecto y se detiene en la línea de código siguiente:
Código Delphi
[-]
ADOSPDebCheque.Parameters.ParamByName('@FechaDebito').Value := DTPFechaDebitoPanel.Date;
He revisado cual podría ser la causa de este error pero nada, no doy con ella. Además de eso tengo un adotable en el formulario que muestra los registros de la tabla cheque, y quesiera que cuando se actualizen dicho campo (FechaDebito), este se actaulize y me muestre los resultados. Como se haría esto. Muchas gracias, disculpen lo denso de mi mensaje, pero enso es el código, a lo mejor todo está mal concevido, espero que alguién pueda ayudarme.