Db Express

03/02/2003

0

Oi, pessoal,

Estou acessando um banco de dados SQL Server por Db Express.
Sendo que, quando eu coloco um TSQLQuery , especifico uma instrução SQL e mando abrir, ocorre um EAccessViolation. Quando eu tento , em tempo de projeto, adicionar os campos ao Fields Editor, o Delphi 7 fecha sem dar nenhuma mensagem. A Instrução SQL é a seguinte :

SELECT F.SBSARH200, F.SBSARH201, F.SBSARH204, F.SBSARH205, F.SBSARH206,F.SBSARH202, F.SBSARH203, ´0´ AS SEQ, F.SBSARH244,
C.SBSARH2TF6 AS NIVELCARGO, N.SBSARH2TG5 AS VALORCARGO, F.SBSARH245, C1.SBSARH2TF6 AS NIVELCC, N1.SBSARH2TG5 AS VALORCC,
F.SBSARH232, F.SBSARH263, F.SBSARH272, F.SBSARH252, F.SBSARH253, F.SBSARH254, F.SBSARH255, F.SBSARH256, F.SBSARH257, F.SBSARH258,
F.SBSARH259, F.SBSARH291, F.SBSARH210, F.SBSARH226, F.SBSARH238, F.SBSARH267, F.SBSARH284, F.SBSARH236, F.SBSARH237, F.SBSARH239,
F.SBSARH242, F.SBSARH243, F.SBSARH269, F.SBSARH277, F.SBSARH278, F.SBSARH280, F.SBSARH281, F.SBSARH283, F.SBSARH233, ´1´ AS SBSARH2TB17,
0.00 AS SBSARH2TB18, E.SBSARH121, F.SBSARH270, S.SBSARH2TK7, S.SBSARH2TK8, E.SBSARH140, F.SBSARH262, F.SBSARH292, F.SBSARH293, F.SBSARH295 FROM
SBSARH2 F LEFT OUTER JOIN SBSARH2TF C ON (F.SBSARH244 = C.SBSARH2TF3) AND (F.SBSARH200 = C.SBSARH2TF0) AND (F.SBSARH201 = C.SBSARH2TF1)
LEFT OUTER JOIN SBSARH2TF C1 ON (F.SBSARH245 = C1.SBSARH2TF3) AND (F.SBSARH200 = C1.SBSARH2TF0) AND (F.SBSARH201 = C1.SBSARH2TF1)
LEFT OUTER JOIN SBSARH2TG N ON (C.SBSARH2TF0 = N.SBSARH2TG0) AND (C.SBSARH2TF1 = N.SBSARH2TG1) AND (C.SBSARH2TF6 = N.SBSARH2TG2)
LEFT OUTER JOIN SBSARH2TG N1 ON (C1.SBSARH2TF0 = N1.SBSARH2TG0) AND (C1.SBSARH2TF1 = N1.SBSARH2TG1) AND (C1.SBSARH2TF6 = N1.SBSARH2TG2)
LEFT OUTER JOIN SBSARH2TK S ON F.SBSARH241 = S.SBSARH2TK0, SBSARH1 E WHERE F.SBSARH200 = :EMP AND F.SBSARH201 = :FILIAL AND E.SBSARH100 =
F.SBSARH200 AND E.SBSARH101 = F.SBSARH201 AND F.SBSARH238 Like :TIPOPAG AND F.SBSARH203 LIKE :STATUS1 AND F.SBSARH205 LIKE :MAT
AND (F.SBSARH205 LIKE :MAT1 OR F.SBSARH205 LIKE :MAT2 OR F.SBSARH205 LIKE :MAT3)
UNION
SELECT SBSARH2TB00 AS SBSARH200, SBSARH2TB01 AS SBSARH201,SBSARH2TB05 AS SBSARH204, SBSARH2TB03 AS SBSARH205, SBSARH2TB06 AS SBSARH206,
´01´ AS SBSARH202, SBSARH2TB02 AS SBSARH203, SBSARH2TB04 AS SEQ, F.SBSARH244, C.SBSARH2TF6 AS NIVELCARGO, N.SBSARH2TG5 AS VALORCARGO,´´
AS SBSARH245, ´´ AS NIVELCC, 0 AS VALORCC, SBSARH2TB21 AS SBSARH232, ´´ AS SBSARH263, ´´ AS SBSARH272, ´0´ AS SBSARH252,
´0´ AS SBSARH253, ´0´ AS SBSARH254, ´0´ AS SBSARH255, ´0´ AS SBSARH256, ´0´ AS SBSARH257, ´0´ AS SBSARH258, ´0´ AS SBSARH259,
´´ AS SBSARH291, ´´ AS SBSARH210, ´´ AS SBSARH226, ´1´ AS SBSARH238, ´0´ AS SBSARH267, ´0´ AS SBSARH284, 0 AS SBSARH236, 0 AS SBSARH237,
0 AS SBSARH239, 0 AS SBSARH242, 0 AS SBSARH243, 0 AS SBSARH269, ´00´ AS SBSARH277, ´00´ AS SBSARH278, ´00´ SBSARH280, ´00´ SBSARH281, ´00´ AS
SBSARH283, 0 AS SBSARH233, SBSARH2TB17, SBSARH2TB18, E.SBSARH121, 0 AS SBSARH270, ´´ AS SBSARH2TK7, 0 AS SBSARH2TK8, E.SBSARH140, ´0´ AS SBSARH262,
´1´ AS SBSARH292, 30 AS SBSARH293, 0 AS SBSARH295 FROM SBSARH1 E, SBSARH2TB LEFT OUTER JOIN SBSARH2 F ON SBSARH2TB00 = F.SBSARH200 AND SBSARH2TB01 = F.SBSARH201 AND
SBSARH2TB03 = F.SBSARH205 LEFT OUTER JOIN SBSARH2TF C ON F.SBSARH200 = C.SBSARH2TF0 AND F.SBSARH201 = C.SBSARH2TF1 AND F.SBSARH244 = C.SBSARH2TF3
LEFT OUTER JOIN SBSARH2TG N ON C.SBSARH2TF0 = N.SBSARH2TG0 AND C.SBSARH2TF1 = N.SBSARH2TG1 AND C.SBSARH2TF6 = N.SBSARH2TG2 WHERE SBSARH2TB02 <> ´6´ AND
SBSARH2TB00 = E.SBSARH100 AND SBSARH2TB01 = E.SBSARH101 AND SBSARH2TB00 = :EMP AND SBSARH2TB01 = :FILIAL AND SBSARH2TB20 Like :TIPOPAG AND SBSARH2TB02 <> ´9´
AND SBSARH2TB02 LIKE :STATUS2 AND SBSARH2TB03 LIKE :MAT AND (SBSARH2TB03 LIKE :MAT1 OR SBSARH2TB03 LIKE :MAT2 OR SBSARH2TB03 LIKE :MAT3)

Desde já agradeço a atenção de todos. Obrigado


Anonymous

Anonymous

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar