I have some linked tables in an access database. The tables are in SQL Server 2000. The module looks like the following... When it gets to the .update command I receive an error. (Run-time error '-2147217887 (80040e21)' ODBC--call failed.
'ADO objects
Dim oConn As adodb.Connection
Dim oRsInterchange_Envelope As adodb.Recordset
'OPENS DATABASE CONNECTION
sConn = "Provider=Microsoft.Jet.OL
EDB.4.0; Data Source=" & CurrentProject.Path & "\837_X096A1.mdb;" & _
"Jet OLEDB:System database=I:\Admin\AdminSys
.MDW"
Set oConn = New adodb.Connection
oConn.Open sConn, "zzz", "12345"
'OPEN TABLES
Set oRsInterchange_Envelope = New adodb.Recordset
oRsInterchange_Envelope.Op
en "Interchange_Envelope", oConn, adOpenDynamic, adLockOptimistic
oRsInterchange_Envelope.Ad
dNew
oRsInterchange_Envelope("I
SA000_01_A
uthorizati
on_Informa
tion_Quali
fier").Val
ue = oSegment.DataElementValue(
1)
oRsInterchange_Envelope("I
SA000_02_A
uthorizati
on_Informa
tion").Val
ue = oSegment.DataElementValue(
2)
oRsInterchange_Envelope("I
SA000_03_S
ecurity_In
formation_
Qualifier"
).Value = oSegment.DataElementValue(
3)
oRsInterchange_Envelope("I
SA000_04_S
ecurity_In
formation"
).Value = oSegment.DataElementValue(
4)
oRsInterchange_Envelope("I
SA000_05_I
nterchange
_Id_Qualif
ier").Valu
e = oSegment.DataElementValue(
5)
oRsInterchange_Envelope("I
SA000_06_I
nterchange
_Sender_Id
").Value = oSegment.DataElementValue(
6)
oRsInterchange_Envelope("I
SA000_07_I
nterchange
_Id_Qualif
ier").Valu
e = oSegment.DataElementValue(
7)
oRsInterchange_Envelope("I
SA000_08_I
nterchange
_Receiver_
Id").Value
= oSegment.DataElementValue(
8)
oRsInterchange_Envelope("I
SA000_09_I
nterchange
_Date").Va
lue = oSegment.DataElementValue(
9)
oRsInterchange_Envelope("I
SA000_10_I
nterchange
_Time").Va
lue = oSegment.DataElementValue(
10)
oRsInterchange_Envelope("I
SA000_11_I
nterchange
_Control_S
tandards_I
dentifier"
).Value = oSegment.DataElementValue(
11)
oRsInterchange_Envelope("I
SA000_12_I
nterchange
_Control_V
ersion_Num
ber").Valu
e = oSegment.DataElementValue(
12)
oRsInterchange_Envelope("I
SA000_13_I
nterchange
_Control_N
umber").Va
lue = oSegment.DataElementValue(
13)
oRsInterchange_Envelope("I
SA000_14_A
cknowledgm
ent_Reques
ted").Valu
e = oSegment.DataElementValue(
14)
oRsInterchange_Envelope("I
SA000_15_U
sage_Indic
ator").Val
ue = oSegment.DataElementValue(
15)
oRsInterchange_Envelope("I
SA000_16_C
omponent_E
lement_Sep
arator").V
alue = oSegment.DataElementValue(
16)
oRsInterchange_Envelope.Up
date
Start Free Trial