Da li si probala neki krajnje jednostavan upit - da vidiš da li uopšte funkcioniše veza sa konkretnom bazom? Možda parametri nisu dobri?
Ako nisi probaj - pa javi.
Ako jesi probaj da debaguješ i vidiš gde je greška.
Uvedi jednu string promenljivu u kojoj ćeš da čuvaš upit - dakle kod bi bio:
Code:
Dim sSQL AS String
sSQL = "SELECT"SELECT CRVW.project_name, CRVW.item_type, CRVW.approved_date, CRVW.change_date, " & _
"CRVW.change_issue, CRVW.change_number, exp_CRVW.completion_date, exp_CRVW.cost, " & _
"CRVW.from_vendor, CRVW.required_date, CRVW.responded_date, CRVW.start_date, " & _
"CRVW.status, CRVW.spec_section, CRVW.title, CRVW.to_vendor, PROJ.company_name, " & _
"PROJ.job_number, PROJ.project_number, PROJ.project_title FROM CRVW, Item, PROJ, VNMT " & chr(13) & _
"WHERE (ITEM.module_name=CNTE) And (CRVW.project_name=PROJ.project_name) And " & chr(13) & _
" (CRVW.item_type=ITEM.acronym) And (PROJ.company_abbrev=VNMT.vendor_abbrev) And " & chr(13) & _
"(CRVW.project_name=DEMO) And (VNMT.project_name='DEMO') Or (exp_ITEM.module_name Is Null) And " & chr(13) & _
"(CRVW.project_name=PROJ.project_name) And (CRVW.item_type=TEM.acronym) And " & chr(13) & _
"(PROJ.company_abbrev=VNMT.vendor_abbrev) And (CRVW.project_name=DEMO) And (VNMT.project_name=DEMO) "
Set oRS = oConn.Execute(sSQL )
Stavi breakpoint na liniju Set oRS ... i proveri šta se nalazi u sSQL promenljivoj (najlakše iz Imediate window otkucaj ?sSQL), proveri da li je to OK - probaj da tako dobijeni upit izvršiš iz sqlklijenta da vidiš rezultat.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?