VB6 AddNew avec ADO sur une base ACCESS = PB

Question

Bonjour amis vbistes, 

Je n'ai que 2 mot à dire "Au secour" 

Utilisant VB occasionnellement.. 
J'essaie vainement d'accéder à une base Access pour y stocker le contenu de fichiers Excel à l'aide de VB6 Express et ADO. 

Mais je tombe sur une erreur 
"overload resolution failed because no accessible 'Fields' accepts this number of argument" 
Je n'arrive pas à voir le problème!! 

D'expérience je sais que souvent plus une erreur est grosse moins on la voit, mais là ca fait 4 jour que j'epluche les tutoriels sans résultat et je deviens fou !! 

Voici plutôt mon code : 


'ADO 
'Instanciation des variables 
cnx = New ADODB.Connection 
cmd = New ADODB.Command 
prm1 = New ADODB.Parameter 
rst = New ADODB.Recordset 

'Connexion à la base de données 
cnx.Provider = "Microsoft.Jet.OLEDB.4.0" 
cnx.ConnectionString = TFichier.Text 
cnx.Open() 

'Préparation de l'objet Command 
rst.Open("select NumSemaine1 from Cadencier", cnx, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic) 


'Jusqu'ici ca va !! (enfin je crois) 

rst.AddNew() 
rst![NumSemaine1]=31  'ICI JE TOMBE SUR L'ERREUR MENTIONNEE !!! 
rst.Update() 


SVP, j'ai besoin de vos neuronnes fraîches car les miennes sont grillées !!! 
D'avance merci

Renfield · Answer

pourquoi ne pas faire propre :

rst.Fields("NumSemaine1").Value = 31


Renfield - Admin CodeS-SourceS - MVP Visual Basic

VB6 AddNew avec ADO sur une base ACCESS => PB

1 réponse

Votre réponse

Discussions similaires