J
Julie
Guest
Salut,
j'essaie de mettre a jour une base de donnee Oracle via une application VBA,
la propriete updatable du recordset est False !,,,malgres que cote base de donnee le user julie a tous les droit sur la table dont la structure est la suivante:
le nomde la table :"test" avec: (col1 number,col2 number,col3 number)
s'il vous plait voyez ce qui ne va pas dans la portion de programme suivante ainsi que le message d'erreur en piece attachee , merci d'avance:
Sub addnewrecord()
Dim conodbc As Connection
Dim rstoper As Recordset
Dim wrkMain As Workspace
Set wrkMain = CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
Set conodbc = wrkMain.OpenConnection("fenix", _
dbDriverNoPrompt, False, _
"ODBC;DATABASE=plum;UID=juliette;PWD=juliette;DSN=fenix")
MsgBox "Connection sur Fenix is done . . ."
Set rstoper = conodbc.OpenRecordset("select * from tester", dbOpenDynaset)
''''la propriete du recordset updatable est false?'''''''''''''''''''
Debug.Print "Opening dynaset recordset updatable=" & rstoper.Updatable
' Add record a la table test
With rstoper
.AddNew
!col1 = 1
!col2 = 2
!col3 = 3
.Update
End With
wrkMain.Close
rstoper.Close
conodbc.Close
End Sub
j'essaie de mettre a jour une base de donnee Oracle via une application VBA,
la propriete updatable du recordset est False !,,,malgres que cote base de donnee le user julie a tous les droit sur la table dont la structure est la suivante:
le nomde la table :"test" avec: (col1 number,col2 number,col3 number)
s'il vous plait voyez ce qui ne va pas dans la portion de programme suivante ainsi que le message d'erreur en piece attachee , merci d'avance:
Sub addnewrecord()
Dim conodbc As Connection
Dim rstoper As Recordset
Dim wrkMain As Workspace
Set wrkMain = CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
Set conodbc = wrkMain.OpenConnection("fenix", _
dbDriverNoPrompt, False, _
"ODBC;DATABASE=plum;UID=juliette;PWD=juliette;DSN=fenix")
MsgBox "Connection sur Fenix is done . . ."
Set rstoper = conodbc.OpenRecordset("select * from tester", dbOpenDynaset)
''''la propriete du recordset updatable est false?'''''''''''''''''''
Debug.Print "Opening dynaset recordset updatable=" & rstoper.Updatable
' Add record a la table test
With rstoper
.AddNew
!col1 = 1
!col2 = 2
!col3 = 3
.Update
End With
wrkMain.Close
rstoper.Close
conodbc.Close
End Sub