Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Error de Parametros IBX (https://www.clubdelphi.com/foros/showthread.php?t=71185)

Chaja 05-12-2010 21:19:05

Error de Parametros IBX
 
Hola Señores:
Bien, mi tema es el siguiente. Estoy pasando todo mi sistema del modelo de coneccion con BDE a IBX, lo cual es bastante trabajos.
Tengo alguas cosas que no me andan, cosas que si andaban con el BDE.
Por ejemplo tengo la sigte. Query

Código Delphi [-]
  if BExacta.Checked Then
    Modo:=' = '
  Else
    if BComienzaCon.Checked Then
      Modo:=' Like '
    else
      if BIncluye.Checked Then
        Modo:=' containing ';


CDSClientes.CommandText:='select c.codigo,c.nombre,c.razon_social,c.direccion_comercial, '+
                    'c.nro_de_cuit,c.nrodocumento,C.telefono_comercial_1,C.telefono_comercial_2,'+
                    'C.telefono_celular, c.limite_credito,c.sucursal,c.activo,c.localidad '+
                    'from clientes c '+
                    'where '+
                    '( c.activo in ( '+tipo+' )) and ' +
                    '( c.sucursal = :suc  or  :suc = -1 )and ' +
                    'c.'+NombreCampo[cbCampos.ItemIndex]+Modo+':dato '+
                    'order by c.'+NombreCampo[cbCampos.ItemIndex];

  CDSClientes.Params.ParamByName('SUC').Clear;
  CDSClientes.Params.ParamByName('DATO').Clear;


  CDSClientes.Params.ParamByName('SUC').Value  :=cbSucursal.KeyValue;
  CDSClientes.Params.ParamByName('DATO').Value :=edDato.Text;

  if BComienzaCon.Checked Then
    if (NombreCampo[cbCampos.ItemIndex]='CODIGO') Then
      CDSClientes.Params.ParamByName('DATO').Value:=''+copy(edDato.Text,1,8)+'%'
    else
      CDSClientes.Params.ParamByName('DATO').Value:=''+edDato.Text+'%';

  CDSClientes.Open;

pero cuando se ejecuta sinmandar parametros nuevo la hace, si le mando de nuevo la cosnulta me tira este error

TDBXTypes.String value type cannot be accessed as TDBXTypes.String value type

no se por que pasa esto, tengo otra query que es casi igual, pero no me tira este error. Lo que me molesta es que con el bde todo funcionaba bien, y desde que empece pasar a IBX los problemas me persiguen. Era tan malo el BDE???

Bueno , buscque en embarcadero, con el mensaje de erro, pero no habia respuesta posible. Algun guru tendra una respuesta??

Gracias

Luis Roldan
Mar del Plata
Argentina

Casimiro Notevi 05-12-2010 21:37:55

Amigo Chaja, con casi 100 mensajes que llevas y todavía no usas las etiquetas para formatear código ;) ???

Imagen extraida de la firma del compañero Neftalí :) -->

Chaja 06-12-2010 02:04:32

Perdon... nunca lo utilice por que no sabia para que era,,..... para la proxima ya se

Bye

Luis Roldan
Mar del Plata
Argentina

Casimiro Notevi 06-12-2010 04:12:04

Tranquilo, nadie nace sabiendo :)


La franja horaria es GMT +2. Ahora son las 08:31:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi