ADO, Delphi 6 personnelle et Execute method
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 :
Code:
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; |
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 :
"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 !
