Bonjour,
J'ai lu le tuto sur l'utilisation de ADO avec delphi 6 version personnelle et me voila lancé dans l'aventure de faire un p'tit programme qui utilise une BD Acces.
Je souhaite simplement faire fonctionner un code du genre :
Tout se passe pour le mieux en apparence, ma ligne est correctement ajoutée, mais quant je ferme mon application. Un message d'erreur apparait :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button10Click(Sender: TObject); var Cnx : Connection15 = nil; begin Cnx := CoConnection.Create; Cnx.Open('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=EveMarket.mdb;', 'admin', '', -1 ); cnx.Execute('INSERT INTO MyItem(TypeID) VALUES(''45'')',Emptyparam,0); Cnx.Close; Cnx := nil; end;
"Le projet EveMarket.exe a provoqué une classe d'exeption EVariantError avec le message 'Opération de variant incorrecte'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer."
suivi par :
"Runtime error 217 at 004050F0"
et l'application se ferme.
Qu'ai je fais de travers ?
Merci d'avance !
Partager