Discussion :

[GroMoche]

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 :

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;

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 !

[GroMoche]

Ne cherchez plus, j'ai trouvé... J'ai remplacé "Emptyparam" par une variable de type "OLEVariant".

Merci qd mm.

^_^