Thread: Re: MS SQL Migration

Re: MS SQL Migration

From

Dave Page

Date:

11 January 2002, 07:55:24


> -----Original Message-----
> From: futrzak [mailto:futrzak@archie.dhs.org]
> Sent: 11 January 2002 09:22
> To: Dave Page
> Subject: Re: MS SQL Migration
>

Hi Artur,

Further to my previous email, I've updated the code to:

        ' AM 20020110
        ' driver don't returns correct values - setting to default 18,4
        If szTemp2 = "numeric" Then
          If
catLocal.Tables(lstData.List(X)).Columns(newColumnArray(Y)).Type = adNumeric
Then
            szTemp2 = szTemp2 & "(" &
catLocal.Tables(lstData.List(X)).Columns(newColumnArray(Y)).Precision & ","
& catLocal.Tables(lstData.List(X)).Columns(newColumnArray(Y)).NumericScale &
")"
          Else
            szTemp2 = szTemp2 & "(" & "18" & "," & "4" & ")"
          End If
        End If

Does that look good to you?

Regards, Dave.