Discussion :

[persephone_core]

Bonjour

j'ai une application VB6 qui utilise une base access (.mdb), j'ai eu a modifier un peu le code pour la rendre (l'application) utilisable sur différents SGBDs
Le premier problème qui se pose est que toute modification est impossible à réaliser sur la base (.mdb via ODBC)
le message qui apparait :
Method or data member not found à ce niveau :
.
.
recordset.Edit

Le Read-only est a False, j'ai cherché dans les forums mais je ne sais même pas quelle pourrait être la source de ce problème
A l'aide s'il vous plait

[ProgElecT]

Salut

La création/modification de L'ODBC a t il été modifier en même temps que le code du programme VB6 ?
La case lecture seule de la configuration de cette ODBC est elle bien décochée ?

La connexion à la BDs dans le programme VB6 est elle paramétrée .Mode = adModeReadWrite ?
L'ouverture du recordset quel est le paramètre (LockType) ?
Peux tu nous mettre la ligne de code de la connexion et la ligne de code d'ouverture du recordset qui abouti à cette erreur.

[persephone_core]

L'application passait par DAO (un simple OpenDatabase) pour tout accès, j'ai ajouté tout ce qui touche à ODBC donc le DSN (.mdb dans un premier temps).

Le création du DSN est faite par la fonction SQLConfigDataSource, et j'ai vérifié manuellement que la case été bien décochée

J'utilise toujours DAO pour la connexion ( les directives qu'on m'a imposé), et je pense que le paramètre dont vous parlez est sur ADODB car je ne le trouve pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
' la connexion 
 Set wrksp = CreateWorkspace("MyWrksp", "", "", dbUseODBC)
 Set db = wrksp.OpenDatabase("", False, False, sConnect)
' sConnect = "ODBC;UID=admin;DSN=MS Access 2003;DATABASE=" & App.Path & "\dossiers\" + List1.Text + extension
 
' L'instruction qui aboutit à l'erreur
 
Set rs = db.OpenRecordset("select * from client where [code client] = '" & TxtCodClient & "'   ", dbOpenDynaset)
            If rs.RecordCount <> 0 Then
                rs.Edit

arrivé au rs.Edit ça m'affiche le message cité
Je dois préciser que je débute en VB.