Syntax error

[Sillygirl]

Can you find the syntax error here??

Dim externdb As Database 'this is the odtagdb database
Dim sql As String
Dim Rows As Integer
Dim today As Variant

today = Now
'update odtagdb

If Not opt = "0" Then
Set externdb = OpenDatabase("", False, False, "ODBC;DSN=ODTAGSQL;DB=tagging")

If Not opt = "4" Then

sql = "Insert into super_change (Location, supervisor, opt, part_Code, id, time_stamp)"
sql = sql + "values ('" + pc + "', "
sql = sql + "'" + super + "', "
sql = sql + "'" + opt + "', "
sql = sql + "'" + Partc + "', "
sql = sql + "' ', "
sql = sql + "'" + Format(Now, "General Date") + "')"

' , VBDA_SQLPASSTHROUGH
Rows = externdb.Execute sql <--- blowinup here

 

[Foada]

Try using # around the date variable instead of '

If you choose to battle wits with the witless be prepared to lose.

 

[Sillygirl]

Thats not the line that is blowing up. THe line that is blowing up is:

Rows = externdb.Execute sql

 

[jjames]

Maybe...

Rows = externdb.Execute (sql)

 

[Foada]

The if the table column is formated for a date variable(#) and you are trying to insert a text variable(') the Execute() command will blow up.

If you choose to battle wits with the witless be prepared to lose.

 

[gmmastros]

It looks like your 5th column is an integer (guessing by the name of the field ID). You sql string is trying to insert a space in for this character.

          sql = "Insert into super_change (Location, supervisor, opt, part_Code, id, time_stamp)"
          sql = sql + "values ('" + pc + "', "
          sql = sql + "'" + super + "', "
          sql = sql + "'" + opt + "', "
          sql = sql + "'" + Partc + "', "
          sql = sql + "NULL, "
          sql = sql + "'" + Format(Now, "General Date") + "')"

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[johnwm]

The concatenation operator in VB is & not +

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first.
'If we're supposed to work in Hex, why have we only got A fingers?'
Drive a Steam Roller