Code no longer working.

N

Nathan Guill

I'm not sure where to post this, but here goes...

I am entering information into an Access 2000 database from an outside
program using ADO and a class for ease of use writing the SQL code (this
class is adoutils in case anyone is familiar). Here are the Declarations:

Dim intCustID As Integer
Dim lngIndex As Long
Dim lngpnID As Long
Dim strSketch As String

Here is the code section giving me the problem:

'Enter record into database
With .SmartSQL
.SQLType = SQL_TYPE_ACCESS
.StatementType = TYPE_INSERT
.AddTable "Drawings"
.AddFields "Index", "SketchNum", "CustID", "pnID", "Dwg Rev"
.AddValues lngIndex, strSketch, intCustID, lngpnID, "N/C"
End With
Set rscust = .GetRS(.MySQL)

the SQL this returns is:

INSERT INTO Drawings (Index, SketchNum, CustID, pnID, [Dwg Rev]) VALUES
(12701, '12701', 1774, 5528, 'N/C')

I have verified that the delcaration types (i.e. interger, etc.) are the
same as the field data type. I do not get an error, yet no information is
put into the database. If I take out the field and value for "Index" then
the database is updated, so I know that is the suspect problem. I just
don't see how to fix it.

Any Ideas. Also, if this is not the place to post this, could someone point
me where I should post this? Thanks.
 
N

Nathan Guill

That was it. Thanks. I feel so stupid now....
david epsom dot com dot au said:
try
.AddFields "[Index]", ....

(david)

Nathan Guill said:
I'm not sure where to post this, but here goes...

I am entering information into an Access 2000 database from an outside
program using ADO and a class for ease of use writing the SQL code (this
class is adoutils in case anyone is familiar). Here are the Declarations:

Dim intCustID As Integer
Dim lngIndex As Long
Dim lngpnID As Long
Dim strSketch As String

Here is the code section giving me the problem:

'Enter record into database
With .SmartSQL
.SQLType = SQL_TYPE_ACCESS
.StatementType = TYPE_INSERT
.AddTable "Drawings"
.AddFields "Index", "SketchNum", "CustID", "pnID", "Dwg Rev"
.AddValues lngIndex, strSketch, intCustID, lngpnID, "N/C"
End With
Set rscust = .GetRS(.MySQL)

the SQL this returns is:

INSERT INTO Drawings (Index, SketchNum, CustID, pnID, [Dwg Rev]) VALUES
(12701, '12701', 1774, 5528, 'N/C')

I have verified that the delcaration types (i.e. interger, etc.) are the
same as the field data type. I do not get an error, yet no information is
put into the database. If I take out the field and value for "Index" then
the database is updated, so I know that is the suspect problem. I just
don't see how to fix it.

Any Ideas. Also, if this is not the place to post this, could someone point
me where I should post this? Thanks.
Click to expand...
Click to expand...
 
Top