asked on

I need help formatting a SSN field in VB6

Hi Experts,
I need help formatting an SSN field in my VB6 application.
Currently, the SSN's stored in my database have dashes in them. I want to replace the dashes.
I also want to make sure the SSN's are always 9 characters long.

This is a sample of what some SSN's look like in my database:
589-05-9945
28-25-1525

What I want the SSN's to look like after the formatting:
589059945
028251525

How can I accomplish this?

Thanks in advance,
mrotor

aikimark

Probably the easiest way is to execute an update query like this:

Update MyTable
Set SSN = Right("000000000" & Replace(SSN, "-", ""), 9)

Open in new window

mainrotor

ASKER

I need to do it in VB6. I don't want to update the whole table. How can I do it in VB6?

mrotor

Dan Craciun

I'll leave the "get data from db" and "write data to db" to you :)

Dim oldSSN As String = "28-25-1525"
Dim newSSN As String

newSSN = Replace(oldSSN, "-", "")
newSSN = newSSN.PadLeft(9, "0")

Open in new window

HTH,
Dan

SOLUTION

aikimark

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

aikimark

@Dan

PadLeft is a .Net method and not applicable to mainrotor's VB6 run-time environment.

Dan Craciun

Yup. I always get them mixed up.
If you don't use them often you quickly forget the difference between VB, VBS, VBA, VB.NET...

ASKER CERTIFIED SOLUTION

HooKooDooKu

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Martin Liss

I've requested that this question be closed as follows:

Accepted answer: 500 points for aikimark's comment #a40005868

for the following reason:

This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.