Hi There,

I am a bit confused as the code stops at "SQLOpen" and
could not get around it.

Pls help



Function HKG()
DatabaseName
= "DBQ=S:\rcamatchee\donthula\FinalHongKongDatabase; DriverI
d=281;FIL=MS Access"
QueryString = "SELECT Category_Code ,
Customer_Number,Customer_Name FROM SalesData2003 WHERE
(Quantity=2000)"
Chan = SQLOpen("DSN=" & DatabaseName)
'Chan = SQLOpen("DSN=MS Access Database" & DatabaseName)
SQLExecQuery Chan, QueryString

Set Output = Worksheets("Sheet2").Range("A1")
SQLRetrieve Chan, Output, , , True
SQLClose Chan

End Function

Just stops? Do you get an error? Is the add-in loaded? Do you even
have the add-in? ...

Microsoft Knowledge Base Article - 288118
XL2002: Add-Ins That Are No Longer Included with Microsoft Excel
http://support.microsoft.com/default...b;en-us;288118

<snip
The following add-ins are no longer included with Microsoft Excel
2002, and are not available for downloading:
• ODBC Add-in
</snip

--


"Rama" wrote in message ...
Hi There,

I am a bit confused as the code stops at "SQLOpen" and
could not get around it.

Pls help



Function HKG()
DatabaseName
= "DBQ=S:\rcamatchee\donthula\FinalHongKongDatabase; DriverI
d=281;FIL=MS Access"
QueryString = "SELECT Category_Code ,
Customer_Number,Customer_Name FROM SalesData2003 WHERE
(Quantity=2000)"
Chan = SQLOpen("DSN=" & DatabaseName)
'Chan = SQLOpen("DSN=MS Access Database" & DatabaseName)
SQLExecQuery Chan, QueryString

Set Output = Worksheets("Sheet2").Range("A1")
SQLRetrieve Chan, Output, , , True
SQLClose Chan

End Function

Picky point, I know, but although this add-in is no longer included with
Microsoft Excel 2002 you can get it from Microsoft by following this link -
http://office.microsoft.com/downloads/2002/xlodbc.aspx

However, as far as I am aware, it is not available for Excel 2003.

--
Regards
Andy Wiggins
www.BygSoftware.com
Home of "Save and BackUp",
"The Excel Auditor" and "Byg Tools for VBA"



"onedaywhen" wrote in message
om...
Just stops? Do you get an error? Is the add-in loaded? Do you even
have the add-in? ...

Microsoft Knowledge Base Article - 288118
XL2002: Add-Ins That Are No Longer Included with Microsoft Excel
http://support.microsoft.com/default...b;en-us;288118

<snip
The following add-ins are no longer included with Microsoft Excel
2002, and are not available for downloading:
. ODBC Add-in
</snip

--


"Rama" wrote in message
...
Hi There,

I am a bit confused as the code stops at "SQLOpen" and
could not get around it.

Pls help



Function HKG()
DatabaseName
= "DBQ=S:\rcamatchee\donthula\FinalHongKongDatabase; DriverI
d=281;FIL=MS Access"
QueryString = "SELECT Category_Code ,
Customer_Number,Customer_Name FROM SalesData2003 WHERE
(Quantity=2000)"
Chan = SQLOpen("DSN=" & DatabaseName)
'Chan = SQLOpen("DSN=MS Access Database" & DatabaseName)
SQLExecQuery Chan, QueryString

Set Output = Worksheets("Sheet2").Range("A1")
SQLRetrieve Chan, Output, , , True
SQLClose Chan

End Function

Andy, You're just after my 'pedant of the week' award, aren't you!
Well, I'm picky too ;-)

--

"Andy Wiggins" wrote in message ...
Picky point, I know, but although this add-in is no longer included with
Microsoft Excel 2002 you can get it from Microsoft by following this link -
http://office.microsoft.com/downloads/2002/xlodbc.aspx

However, as far as I am aware, it is not available for Excel 2003.

--
Regards
Andy Wiggins
www.BygSoftware.com
Home of "Save and BackUp",
"The Excel Auditor" and "Byg Tools for VBA"



"onedaywhen" wrote in message
om...
Just stops? Do you get an error? Is the add-in loaded? Do you even
have the add-in? ...

Microsoft Knowledge Base Article - 288118
XL2002: Add-Ins That Are No Longer Included with Microsoft Excel
http://support.microsoft.com/default...b;en-us;288118

<snip
The following add-ins are no longer included with Microsoft Excel
2002, and are not available for downloading:
. ODBC Add-in
</snip

--


"Rama" wrote in message
...
Hi There,

I am a bit confused as the code stops at "SQLOpen" and
could not get around it.

Pls help



Function HKG()
DatabaseName
= "DBQ=S:\rcamatchee\donthula\FinalHongKongDatabase; DriverI
d=281;FIL=MS Access"
QueryString = "SELECT Category_Code ,
Customer_Number,Customer_Name FROM SalesData2003 WHERE
(Quantity=2000)"
Chan = SQLOpen("DSN=" & DatabaseName)
'Chan = SQLOpen("DSN=MS Access Database" & DatabaseName)
SQLExecQuery Chan, QueryString

Set Output = Worksheets("Sheet2").Range("A1")
SQLRetrieve Chan, Output, , , True
SQLClose Chan

End Function