Como Empezar??

[jhonny]

Es gracioso como un codigo sencillo nos haga cometer tantos errorsillos de sintaxis

Empezado por Lepe

Debe decir:

Código Delphi [-]
ADOQuerry.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo = ('+ filtro+')';

Si te fijas bien en el codigo sql que acabas de colocar haz cometido tambien un errorsillo de sintaxis y es que en lugar de "=" debe ir "in" , y debe ser asi:

Código Delphi [-]
ADOQuerry.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo in ('+ filtro+')';

Y bueno aun asi podria seguir un error, en caso de que el ADQuerry en realidad si este mal escrito

[[Lepe]]

jhonny es que nuestro[modo EGO=on] nivel de abstracción es muy elevado... eso son nimiedades[/modo EGO=off]

En serio, este tipo de errores son los que nos vuelven locos, siempre pensamos que son otras cosas de más envergadura.

Saludos

[MikyVato]

Vaya, el Error del principio es tipografico pero esta solo en el Foro, tanto el "=" como el Querry, voy a colocar el código tal cual lo tengo en mi Soft (Nada como Copiar y Pegar)

Código Delphi [-]
var
 filtro:string;
 i:integer;
begin
   filtro := EmptyStr;

   if OpenArch.Execute then
     begin
       MArch.Lines.LoadFromFile(OpenArch.FileName);
       MArch.Enabled := False;
     End;
   
   for i:=0 to MArch.Lines.count -1 do
      filtro := filtro +', '+QuotedStr(MArch.lines[i]);
   delete(filtro,1,1);

   DMRomaneo.ADOQArticulos.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo in ('+ filtro+')';
   DMRomaneo.ADOQArticulos.Open;
end;

Tiene que ir en el MEMO por una cuestion de Control, es como dice jhonny, el TXT es generado por otro porg y debe ser comparado con la DB.

Esto es solo a modo aclarativo ya que los primeros errores mensionados ya estan solucionados, faltaba el signo "+" al final, una vez solucionado mi prog corre pero larga un error de ODBC

"no coinciden los tipos de datos en la Expresion de criterio"

Creo que se refiere a que los campos de la Tabla no coinciden, pero lo he verificado y la verdad coinciden hasta con las letras mayusculas, o es por que los tipos no coinciden integer y otro tipo string??

Prometo prender belas y colgar mi proyecto en este hilo solo tiene que funcionar............

Gracias Totales x la buena Onda

[jhonny]

Empezado por MikyVato

o es por que los tipos no coinciden integer y otro tipo string??

Tu lo haz dicho , en ese caso debes quitar las comillas sencillas del codigo otorgado por Lepe osea que la cosa quedaria asi (Y espero no equivocarme de nuevo en la sintaxis ):

Código Delphi [-]
for i:=0 to MArch.Lines.count -1 do
      filtro := filtro +', '+MArch.lines[i];
   delete(filtro,1,1);
   DMRomaneo.ADOQArticulos.SQL.Text := 'select Codigo,Descripcion from Articulo where Codigo in ('+ filtro+')';
   DMRomaneo.ADOQArticulos.Open;

[MikyVato]

Jhonny no veo la diferencia, a que te refieres con eso de poner comillas?? .
La verdad no me imagino como hacer un StrToInt en una consulta SQL , menos como hacer para convertir la cadena completa uno a uno, cada eslabon???........

Me quedo una duda Caral?? como le haces para insertar la consulta directamente en el DBGRID o sea como hago para buscar los 58 registros que necesito en la DB y mostrarlos directamente me explico?? (Consulto por curiosidad)

[MikyVato]

Lo que hice fue probar si es que el codigo funciona utilizando otro campo de la DB que sea tipo string y a que no saben si funciona de maravilla casi saltan lagrimas de la emocion, entonces el prob ahora es cambiar el tipo de dato en la consulta???

Espero todo este embrollo sirva de algo para alguien mas, Gracias por la inmensa pasciencia.........

[[Lepe]]

el código que ha puesto jhonny, es casi igual que el original... pero le falta el QuotedStr ... es decir quitar las comillas para que el sql quede:

Código SQL [-]
select * from tabla where codigo in (3, 4, 55,612,3)

Al pasar cada elemento dentro de los paréntesis sin estar encerrados entre comillas simples, SQL lo interpreta como números enteros, y como el campo codigo también es de tipo entero, ya no tendras problemas.

Saludos