Running Bear
11-11-2002, 10:53 AM
Can anyone tell me whether it is possibe to use the ADO method 'AddNew' with Oracle?
At the moment I'm having trouble assigning the primary key (see bold below). I'm getting a type mismatch error??? .... Help! ;)
Set cn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
' Open the Oracle Connection using an ODBC DSN
cn.open "DSN=fastcont;uid=fcontdba;pwd=harare"
' Set the cursor type & Location
rs.CursorType = 3 ':adOpenStatic, 2 ':adOpenDynamic, 1 ':adOpenKeyset
rs.LockType = 4 ':adLockBatchOptimistic
' Open the Recordset
rs.Open "MyTestTable", cn
rs.AddNew
rs.Fields("MyTestTable_ID") = "MyTestTable_ID.nextval"
rs.Fields("ANumber") = 1
rs.Fields("SomeText") = "This is"
rs.AddNew
rs.Fields("MyTestTable_ID") = "MyTestTable_ID.nextval"
rs.Fields("ANumber") = 2
rs.Fields("SomeText") = "some text"
rs.UpdateBatch
Cheers Al
At the moment I'm having trouble assigning the primary key (see bold below). I'm getting a type mismatch error??? .... Help! ;)
Set cn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")
' Open the Oracle Connection using an ODBC DSN
cn.open "DSN=fastcont;uid=fcontdba;pwd=harare"
' Set the cursor type & Location
rs.CursorType = 3 ':adOpenStatic, 2 ':adOpenDynamic, 1 ':adOpenKeyset
rs.LockType = 4 ':adLockBatchOptimistic
' Open the Recordset
rs.Open "MyTestTable", cn
rs.AddNew
rs.Fields("MyTestTable_ID") = "MyTestTable_ID.nextval"
rs.Fields("ANumber") = 1
rs.Fields("SomeText") = "This is"
rs.AddNew
rs.Fields("MyTestTable_ID") = "MyTestTable_ID.nextval"
rs.Fields("ANumber") = 2
rs.Fields("SomeText") = "some text"
rs.UpdateBatch
Cheers Al