VB6 -> FoxPro 9 Data Type Issues

VladamirJP · July 18th, 2006, 03:36 PM

I am using the following string to send values from VB6 to the FoxPro database. My problem is that some of the values in FoxPro must be numeric data types. I can not figure out how to format my string to get this to happen. I figured out that the {} symbols are used for declaring a date type, but can not figure out the numeric type.

test = "INSERT INTO inspdrwg VALUES ('" & swModelName & "' , '" & dbRev & "', '" & dbDim & "' , '" & dbDimName & "' , '" & dbInsp & "', ' {dbTolMax} ', '" & dbTolMin & "', '" & dbTolName & "', '" & dbMaterial & "', '" & dbSurfArea & "', '" & dbSheetNo & "', {dbDate})"

Any help will be greatly appreciated.

BrianWren · July 19th, 2006, 04:55 PM

I would think:

Code:

    test = "INSERT INTO inspdrwg " & _
            "VALUES ('" & swModelName & "', '" & dbRev & "',      " & _
            "        '" & dbDim & "' ,      '" & dbDimName & "',  " & _
            "        '" & dbInsp & "',      " & dbTolMax & ",     " & _
            "         " & dbTolMin & ",     '" & dbTolName & "',  " & _
            "        '" & dbMaterial & "',  '" & dbSurfArea & "', " & _
            "        '" & dbSheetNo & "',   " & dbDate & "        )"

The . . . '" & var & "', . . . turns into . . . '$$$$', . . . when the statement is evaluated (wherein the dollar signs represent whatever the value of your different variables are). The leading and trailing single quotes delimit all that is between them as a literal string to the SQL engine. To have something interpreted as a number, it must not have the âmark-upsâ that signify it as a string. I don't know what the {}s do for you, but I don't think it is in fact type conversion, nor type declaration.

So what you need to wind up sending to the SQL engine would be something like:

Code:

   "INSERT INTO inspdrwg " & _
    "VALUES ('Alpha Baby',     'A',      " & _
    "        '2.34cm' ,        'Ear Height',  " & _
    "        'My Inspiration', 345.297,     " & _
    "        24.5,             'Nose Flair',  " & _
    "        'Flesh',          '15 Sq m', " & _
    "        'Sh 12',          12589.2589        )"[/