View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] julied@consultant.com is offline
external usenet poster
 
Posts: 6
Default WinSQL Query - Syntax for use in Excel

Hi All

I have this SQL query which works fine in WinSQL

select oqrout as "Route", oqdlix as "Delivery #", oaortp as "Order
Type",
oborno as "CO #", oacuno as "Customer #", okcunm as "Customer", obponr
as "Line #",
obitno as "Item #", mmitds as "Description", oborst as "Line Status",
oborqt as "Qty",
oarldt as "Requested Delv Dt", obdsdt as "Sched Delv Dt"
From mvxcdtprod.ooline
inner join mvxcdtprod.mitmas on mmitno = obitno
inner join mvxcdtprod.mhdisl on urridn||digits(urridl) = oborno||'0'||
digits(obponr)||digits(obposx)
inner join mvxcdtprod.mhdish on oqdlix = urdlix and oqinou in (1,3)
inner join mvxcdtprod.oohead on oaorno = oborno and oaortp in
('1CR','1CS','1CU','1DS','1EX','1NO','1NP','1PU')
inner join mvxcdtprod.ocusma on okcuno = oacuno
where obdsdt <= '20090305'
and oborno '2000052540'
and oborst between 44 and 47
and oaoblc < '6'
and (oqrout = '611CPU' or oaortp = '1PU')
group by oqrout, oqdlix, oaortp, oborno, oacuno, okcunm, obponr,
obitno, mmitds, oborst, oborqt, oaortp, oarldt, obdsdt

I am trying to incorporate it into an Excel vba program and I can't
seem to get the syntax correct.

this is what i currently have:

mysql = "select oqrout as ""Route"", oqdlix as ""Delivery #"",
oaortp as ""Order Type"", " & _
"oborno as ""CO #"", oacuno as ""Customer #"", " & _
"okcunm as ""Customer"", obponr as ""Line #"", obitno as
""Item #"", " & _
"mmitds as ""Description"", oborst as ""Line Status"",
oborqt as ""Qty"", " & _
"oarldt as ""Requested Delv Dt"", obdsdt as ""Sched Delv
Dt"", obposx as ""Posx"" " & _
" From mvxcdtprod.ooline " & _
"inner join mvxcdtprod.mitmas on mmitno = obitno " & _
"inner join mvxcdtprod.mhdisl on uurridn||digits(urridl) =
oborno||'0'||digits(obponr)||digits(obposx) " & _
"inner join mvxcdtprod.mhdish on oqdlix = urdlix and
oqinou in (1,3) " & _
"inner join mvxcdtprod.oohead on oaorno = oborno and
oaortp in ('1CR','1CS','1CU','1DS','1EX','1NO','1NP','1PU') " & _
"inner join mvxcdtprod.ocusma on okcuno = oacuno " & _
" where obdsdt <= '" & Format(Date, "yyyymmdd") & "' " & _
"and oborno '2000052540' " & _
"and oborst between 44 and 47 " & _
"and oaoblc < '6' " & _
"and (oqrout = '611CPU' or oaortp = '1PU') " & _
" group by oqrout, oqdlix, oaortp, oborno, oacuno, okcunm,
obponr, obitno, mmitds, oborst, oborqt, oaortp, oarldt, obdsdt,
obposx"


when i run it i get a "General OBDC error".

Would appreciate any help.
Thanks
Julie