14 replies to this topic

[abraham85]

hola gente como stan? bueno tengo un problema con ste codigo sql
lo he probado en mi gestor de base sql server y anda perfecto
pero cuando lo acomodo en mi query delphi....me sale el error del titulo que le puse al post
asi q le saque la linea :

delphi

' and division.descripcion='+division+'  ';

y ahora anda   
asi q lo unico que me da pensar es que en tiempo de ejecucion no me toma el text del combobox en q stoy parado o algo asi    no tengo idea   
le puse el showmessage para ver que me guardaba ...pero es correcto
tambien cambie esta parte

delphi

  ' and division.descripcion='+division+'  ';

por

delphi

  ' and division.descripcion='+division ;

pero me tira el mismo error 

delphi

procedure TFCarga.ComboBox4Change(Sender: TObject);
begin
    negocio:= DBLookupComboBox1.KeyValue;
    division:=combobox4.text;
      showmessage(division);
      aqtemp.Active:=false;
     AQTemp.SQL.Text := 'select distinct subclase.descripcion  '+
                      'from division  inner join grupo inner join clase inner join subclase ' +
                      'inner join articulo inner join variedad inner join marca inner join negmar ' +
                      'on negmar.idmar=marca.idmarca on marca.variedad=variedad.idvariedad   ' +
                      'on variedad.articulo=articulo.idarticulo on articulo.subclase=subclase.idsubclase  ' +
                      'on subclase.clase=clase.idclase on clase.grupo=grupo.idgrupo    ' +
                      'on grupo.division=division.iddivision where negmar.idneg='+IntToStr(negocio)+'  '+
                      ' and division.descripcion='+division+'  ';
 
     AQTemp.Active := True;
     While not AQTemp.Eof do
     begin
      combobox1.Items.Add(AQTemp.Fields[0].Text);
      AQTemp.Next;
     end;
     AQTemp.Active := False;
 
end;

alguna idea? muchas gracias amigos

[egostar]

Hola

Tuve que hacer unos arreglos porque  no entendia tu query  , lo siento.

Intenta de esta forma.

delphi

procedure TFCarga.ComboBox4Change(Sender: TObject);
begin
  negocio:= DBLookupComboBox1.KeyValue;
  division:=combobox4.text;
  showmessage(division);
  aqtemp.Active:=false;
 
  AQTemp.SQL.Text := ' select distinct subclase.descripcion from division ' +
                     ' inner join grupo on grupo.division = division.iddivision ' +
                     ' inner join clase on clase.grupo = grupo.idgrupo' +
                     ' inner join subclase on subclase.clase = clase.idclase ' +
                     ' inner join articulo on articulo.subclase = subclase.idsubclase ' +
                     ' inner join variedad on variedad.articulo = articulo.idarticulo ' + 
                     ' inner join marca on marca.variedad = variedad.idvariedad ' +
                     ' inner join negmar on negmar.idmar = marca.idmarca ' + 
                     ' where negmar.idneg = :ID_NEG and division.descripcion = :DESCRIP';
 
  AQTemp.ParamByName('ID_NEG').AsInteger := IntToStr(negocio);
  AQTemp.ParamByName('DESCRIP').AsString := division;
 
  AQTemp.Active := True;
  while not AQTemp.Eof do
  begin
    combobox1.Items.Add(AQTemp.Fields[0].Text);
    AQTemp.Next;
  end;
  AQTemp.Active := false;
end;

Salud OS

[abraham85]

hola ego amigo 

bueno estaba probando tu codigo y me sale el error:
"undeclarer identifier:ParambyName" 

al query AQtemp en la opcion Parameters le puse los parametros ID_NEG (integer) y DESCRIP(string)

me stoy olvidando de algo?? 

[egostar]

hola ego amigo 

bueno estaba probando tu codigo y me sale el error:
"undeclarer identifier:ParambyName" 

al query AQtemp en la opcion Parameters le puse los parametros ID_NEG (integer) y DESCRIP(string)

me stoy olvidando de algo?? 

Que componente estas usando, ADOQuery, TQuery, IBQuery, ZQuery......

Salud OS

[abraham85]

bueno ego..bucando un poco por ahi encontre que como stoy usando
ADOquery tengo q ponerlo asi :

AQTemp.Parameters.ParamByName('ID_NEG').value := IntToStr(negocio);
AQTemp.Parameters.ParamByName('DESCRIP').value := division;

asi que lo prove y anda che 

Gracias amigo ego..quedo el problema resulto 

che cual es mas eficente usar??  concatenando o con parametros...

[egostar]

bueno ego..bucando un poco por ahi encontre que como stoy usando
ADOquery tengo q ponerlo asi :

AQTemp.Parameters.ParamByName('ID_NEG').value := IntToStr(negocio);
AQTemp.Parameters.ParamByName('DESCRIP').value := division;

asi que lo prove y anda che 

Gracias amigo ego..quedo el problema resulto 

che cual es mas eficente usar??  concatenando o con parametros...

Personalmente me gusta mas con parámetros ya que estos te permiten pasar el valor de un campo de forma directa, concatenando a veces te encuentras errores de tipo de datos y es una lata.

Solo te recomiendo que los parámetros los pases con su tipo de dato y no con value.

delphi

AQTemp.Parameters.ParamByName('ID_NEG').AsInteger := negocio;
 AQTemp.Parameters.ParamByName('DESCRIP').AsString := division;

Salud OS

[abraham85]

asi tambien lo prove pero me sale el mismo error que antes 

"undeclarer identifier:AsInteger"

no entiendo 

[egostar]

asi tambien lo prove pero me sale el mismo error que antes 

"undeclarer identifier:AsInteger"

no entiendo 

Pues entonces ese campo es un string, así que quedaría de esta forma

delphi

AQTemp.Parameters.ParamByName('ID_NEG').AsString := IntToStr(negocio);
 AQTemp.Parameters.ParamByName('DESCRIP').AsString := division;

Salud OS

[Delphius]

Hola

¿Un ID como string?

Creo que debería revisarse eso. No es una buena práctica, al menos en principio...

Por otro lado, cuando se está empleando ADO es muy recomendable además de pasar el valor, que se defina adecuadamente el tipo mediante DataType, para garantizar de que se asuma el tipo de forma adecuada:

delphi

adoquery1.Parameters.ParamByName('Nombre').DataType := ftXxxx;

Saludos,

[abraham85]

nono...el campo no es un string...

pero de todas maneras si le pongo

delphi

adoquery1.Parameters.ParamByName('Nombre').asstring:= negocio;

o con el .asinteger....me sale mismo error 

solo tengo la opcion value..... tendra q ver algo con q yo le defici en PARAMETERS el tipo??
ftinteger y ftstring....q se yo 

[Delphius]

En ADO no existen las propiedades AsXXX. ADO emplea las clases TPamaters y Paramater para manejarse con parámetros y éstas tienen un manejo distinto al resto de los componentes de acceso a datos, que emplean el tipo TParams y TParam respectivamente.

¿Porqué?, por que ADO es de Microsoft, y bueno.... Microsoft es Micro$ofraude y define su propia estructura.

Creía que quedaba en claro cuando dije:

cuando se está empleando ADO es muy recomendable además de pasar el valor,

Al referirme a la propiedad Value. En resumen el procedimiento es:

delphi

adoquery1.Parameters.ParamByName('Nombre').Value := ....
adoquery1.Parameters.ParamByName('Nombre').DataType := ftXXX;

Con eso debería bastar y solucionar el problema.

Saludos,

[egostar]

Ah vaya, pensé que ADO era un estandar, pero veo que no. 

Ya veo porque no me gusta usarlo 

Salud OS

[Delphius]

Ah vaya, pensé que ADO era un estandar, pero veo que no. 

Ya veo porque no me gusta usarlo 

Salud OS

Pues si, es un estándar amigo. El asunto es que es un estándar que Microsoft ha diseñado y quienes deseen emplearlo deben seguirle la corriente.
El problema es que este estándar ya cuenta con una estructura y tiene su propio manejo de parámetros, su command, su manejo de acceso a fuente de datos, etc.

Por ello cuando se definió en la VCL las clases, se tuvo que recurrir a dos clases paralelas: TParameter y TParam. La primera para tener compatibilidad con ADO, y la segunda la "universal", propuesta por Borland y es la que emplean el resto de los componentes para abstraerse y transparentar el acceso a datos mediante parámetros.
TParameter no cuenta con las propiedades AsXXX, sino que tiene a Value y como éste es de tipo Variant debe indicarte el tipo en DataType.

TParam, por su parte cuenta con estas propiedades AsXXX y hacen la conversión y asignación del tipo (DataType) de forma transparente y automática (cuando hacemos una escritura... o settler; aunque hay que aclarar que en realidad el dato "físicamente" sigue siendo un variant).

En donde se unifica ambas ramas es el manejo de campos: TField. Y este, como bien sabemos, cuenta con sus respectivos AsXXX. Además, naturalmente, en la manera de comunicarse y enlazarse a las fuentes de datos (DataSet/DataSource).
Internamente, los componentes ADO hacen uso de este estándar y su estructura.

Es la gran maravilla que tiene la VCL, los ingenieros a cargo de su diseño se han esmerado muchísimo en diseñar un framework realmente poderoso que nos permite abstraernos y manejar los componentes con cierta uniformidad. Han sabido unir las cosas de un modo que les facilite las cosas.

Se que no me he explicado del todo bien, pero al menos espero que se entienda mejorcito.

Saludos,

[poliburro]

En ADO no existen las propiedades AsXXX. ADO emplea las clases TPamaters y Paramater para manejarse con parámetros y éstas tienen un manejo distinto al resto de los componentes de acceso a datos, que emplean el tipo TParams y TParam respectivamente.

¿Porqué?, por que ADO es de Microsoft, y bueno.... Microsoft es Micro$ofraude y define su propia estructura.

Creía que quedaba en claro cuando dije:

cuando se está empleando ADO es muy recomendable además de pasar el valor,

Al referirme a la propiedad Value. En resumen el procedimiento es:

delphi

adoquery1.Parameters.ParamByName('Nombre').Value := ....
adoquery1.Parameters.ParamByName('Nombre').DataType := ftXXX;

Con eso debería bastar y solucionar el problema.

Saludos,

Siendo puntuales. Con Ado La clase TField soporta el As(Datatype). La clase TParameter no soporta el As(datatype) Pero ofrece el Value como propiedad de tipo variant para asignar valores o tomar los valores en los parámetros.

[egostar]

Pues si, es un estándar amigo. El asunto es que es un estándar que Microsoft ha diseñado y quienes deseen emplearlo deben seguirle la corriente.

El problema es que este estándar ya cuenta con una estructura y tiene su propio manejo de parámetros, su command, su manejo de acceso a fuente de datos, etc.

Por ello cuando se definió en la VCL las clases, se tuvo que recurrir a dos clases paralelas: TParameter y TParam. La primera para tener compatibilidad con ADO, y la segunda la "universal", propuesta por Borland y es la que emplean el resto de los componentes para abstraerse y transparentar el acceso a datos mediante parámetros.

TParameter no cuenta con las propiedades AsXXX, sino que tiene a Value y como éste es de tipo Variant debe indicarte el tipo en DataType.

TParam, por su parte cuenta con estas propiedades AsXXX y hacen la conversión y asignación del tipo (DataType) de forma transparente y automática (cuando hacemos una escritura... o settler; aunque hay que aclarar que en realidad el dato "físicamente" sigue siendo un variant).

En donde se unifica ambas ramas es el manejo de campos: TField. Y este, como bien sabemos, cuenta con sus respectivos AsXXX. Además, naturalmente, en la manera de comunicarse y enlazarse a las fuentes de datos (DataSet/DataSource).
Internamente, los componentes ADO hacen uso de este estándar y su estructura.

Es la gran maravilla que tiene la VCL, los ingenieros a cargo de su diseño se han esmerado muchísimo en diseñar un framework realmente poderoso que nos permite abstraernos y manejar los componentes con cierta uniformidad. Han sabido unir las cosas de un modo que les facilite las cosas.

Se que no me he explicado del todo bien, pero al menos espero que se entienda mejorcito.

Saludos,

Entiendo perfectamente, pero sigo pensando que deberían tener el AsXXXXX, digo, que les costaba, nos hacen escribir más código

Por lo pronto no soy afecto a ADO

Salud OS