value from sql to letters 
Author Message
 value from sql to letters

What I'm trying to do is convert a value from sql to letters. An
example would be:

1 = kid
2 = house
3 = pants

Below is a sample of me program. Could anyone help me out?

sub divisions()

        division = "exec usp_rd_division"
        set Open_Record_Division = oConn.Execute(division)
        divisionss()
end sub

sub divisionss()
      Do while not Open_Record_Division.EOF

                If division = "'1'" then
                        division = "K"
                        Response.Write division
                elseif division = "'2'" then
                        division = "H"
                        Response.Write (division)
                elseif division = "'3'" then
                        division = "P"
                        Response.Write ("division")
                end if
                        Open_Record_Division.Movenext
      loop
end sub

Sent via Deja.com http://www.*-*-*.com/
Before you buy.



Tue, 15 Apr 2003 04:48:57 GMT  
 value from sql to letters
Why not use the CASE function?

Example:
SELECT
  CASE Division
    WHEN '1' THEN 'k'
    WHEN '2' THEN 'h'
    WHEN '3' THEN 'p'
FROM
  Table

Hope this helps!

Ryan N.
______________
This is madness!!!

Quote:

> What I'm trying to do is convert a value from sql to letters. An
> example would be:

> 1 = kid
> 2 = house
> 3 = pants

> Below is a sample of me program. Could anyone help me out?

> sub divisions()

> division = "exec usp_rd_division"
> set Open_Record_Division = oConn.Execute(division)
> divisionss()
> end sub

> sub divisionss()
>       Do while not Open_Record_Division.EOF

> If division = "'1'" then
> division = "K"
> Response.Write division
> elseif division = "'2'" then
> division = "H"
> Response.Write (division)
> elseif division = "'3'" then
> division = "P"
> Response.Write ("division")
> end if
> Open_Record_Division.Movenext
>       loop
> end sub

> Sent via Deja.com http://www.deja.com/
> Before you buy.



Tue, 15 Apr 2003 06:59:57 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Automatically Assign Sequential Letter Values

2. Making value in upper letter

3. Assign value to each letter in text box

4. Automatic Capital Letter for 1st Letter???

5. Automatic Capital Letter for 1st Letter???

6. Type a word(s) letter by letter???

7. insert letter after letter within a short time vb6

8. A4 letter -> US letter size

9. Using Vbscript and SQL-DMO to connect to SQL Server and run a T-SQL script

10. New in VBScript - I need to intercept a SQL Stored Proc Return value

11. Reading a comma delimited text file and inserting the values into SQL Server table

12. SQL Update - Sending Null values

 

 
Powered by phpBB® Forum Software