ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Please help with ADO and VBScript! (https://www.excelbanter.com/excel-programming/356854-please-help-ado-vbscript.html)

jenhu[_2_]

Please help with ADO and VBScript!
 

Hi expert,

I have to say that I have no experience in VBscript before, I am a dat
warehouse analyst and need to complete a report out of SQL Server.

I need to have a little excel vbscript with ADO recordset code t
change the first column, when it's starts with first letter 'D', then
will have to replace the cell to a district manager name.

First of all, I need to loop every row in column A only to find an
cell with a 'D' prefixed word, for example, D1009.
Then open a ADO connect to SQL Server and here is the SQL query:
SELECT 'D' + CAST(District_Num AS char(5)) AS DISTRICT, DISTRICT_MGR
FROM micros.Store_Table

As long as I find the cell to match DISTRICT, then it needs to b
replaced by DISTRICT_MGR

Can someone show me the VBScript to complete this task?

Thank you

--
jenh
-----------------------------------------------------------------------
jenhu's Profile: http://www.excelforum.com/member.php...fo&userid=2896
View this thread: http://www.excelforum.com/showthread.php?threadid=52550


MH

Please help with ADO and VBScript!
 
Why not do it in SQL Server using a Stored Procedure?

MH

"jenhu" wrote in
message ...

Hi expert,

I have to say that I have no experience in VBscript before, I am a data
warehouse analyst and need to complete a report out of SQL Server.

I need to have a little excel vbscript with ADO recordset code to
change the first column, when it's starts with first letter 'D', then I
will have to replace the cell to a district manager name.

First of all, I need to loop every row in column A only to find any
cell with a 'D' prefixed word, for example, D1009.
Then open a ADO connect to SQL Server and here is the SQL query:
SELECT 'D' + CAST(District_Num AS char(5)) AS DISTRICT, DISTRICT_MGR
FROM micros.Store_Table

As long as I find the cell to match DISTRICT, then it needs to be
replaced by DISTRICT_MGR

Can someone show me the VBScript to complete this task?

Thank you.


--
jenhu
------------------------------------------------------------------------
jenhu's Profile:
http://www.excelforum.com/member.php...o&userid=28969
View this thread: http://www.excelforum.com/showthread...hreadid=525501





All times are GMT +1. The time now is 04:50 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com