Soyez le premier à donner votre avis sur cette source.
Vue 22 100 fois - Téléchargée 4 706 fois
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls; type TForm2 = class(TForm) ADOConnection1: TADOConnection; ars: TADOQuery; Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Label1: TLabel; Button6: TButton; Edit2: TEdit; Button7: TButton; Button8: TButton; procedure Button8Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin ars.SQL.Clear; ars.SQL.Add('Select * from table1'); //ars.SQL.Add('Where Titre='+QuotedStr(CB_Film.Text)); ars.Open; ars.First; edit1.text:=ars.FieldByName('test').AsString; //ars.SQL.close; ars.SQL.Clear; end; procedure TForm2.Button2Click(Sender: TObject); begin // ----------------------------------------Ajout dans une base de donnée access ars.SQL.Clear ; //Version mono ligne ars.SQL.Add('Insert into table1 (test) Values ('+QuotedStr(edit1.Text)+')'); // Version Multi ligne //ars.SQL.Add('Insert into table1 (test)'); //ars.SQL.Add(' Values ('+QuotedStr(edit1.Text)+')'); ars.ExecSQL; ars.Close; end; procedure TForm2.Button3Click(Sender: TObject); begin ars.SQL.Clear; ars.SQL.Add('Select * from table1'); //ars.SQL.Add('Where Titre='+QuotedStr(CB_Film.Text)); ars.Open; ars.next; edit1.text:=ars.FieldByName('test').AsString; //ars.SQL.close; ars.SQL.Clear; end; procedure TForm2.Button4Click(Sender: TObject); begin ars.SQL.Clear; ars.SQL.Add('Select * from table1'); //ars.SQL.Add('Where Titre='+QuotedStr(CB_Film.Text)); ars.Open; ars.last; edit1.text:=ars.FieldByName('test').AsString; //ars.SQL.close; ars.SQL.clear; end; procedure TForm2.Button5Click(Sender: TObject); begin ars.SQL.Clear; ars.SQL.Add('Select * from table1'); //ars.SQL.Add('Where Titre='+QuotedStr(CB_Film.Text)); ars.Open; ars.last; ars.Prior; edit1.text:=ars.FieldByName('test').AsString; ars.close; ars.SQL.Clear; end; procedure TForm2.Button6Click(Sender: TObject); begin (* ne sert pas a grand chause juste a afficher la chaine de connexion *) ADOConnection1.Close; ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.Exename)+'test1.mdb;Mode=ReadWrite;Persist Security Info=False'; label1.Caption:= ADOConnection1.ConnectionString; end; procedure TForm2.FormCreate(Sender: TObject); begin (* a l'ouverture de l'aplication on recherche l'emplacement de l'aplication et on l'affecte a la position de la base ce qui permet de déplacer la base et son aplication ils doivent toutes fois etre dans le meme repertoir dans ce cas ou en tt cas avoir un chemin relatif toujour egal *) edit2.text:= ExtractFilePath(Application.Exename); ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.Exename)+'test1.mdb;Mode=ReadWrite;Persist Security Info=False'; end; procedure TForm2.Button7Click(Sender: TObject); begin ars.SQL.Clear; //ouvrire la table ars.SQL.Add('Select * from table1'); ars.Open; //ce déplacer j'usqu'a l'avant dernier enregistrement ars.last; ars.Prior; //modiffier le champcorrespondant ars.Edit; ars.FieldByName('test').AsString := Edit1.Text; ars.Post; ars.SQL.Clear; end; procedure TForm2.Button8Click(Sender: TObject); begin ars.SQL.Clear; // connexion SQL filtre touts les enregistrement du champ test de la table table1 // et les efface a l'execution de la requette sql ars.SQL.Add('delete * from table1'); ars.SQL.Add('Where test='+QuotedStr(edit1.Text)); ars.ExecSQL end; end.
erreur rencontré "non défini par l'utilisateur"
Comment faire pour que celà fonctionne
Merci
Comment affichier l'enregistrement de database
ou comment en compt l'enregistrement des validations
merci...
Toutes mes excuses encor une fois ...
achille, vire les ~, .dcu, .res et autre fichier inutile, mais remets un dpr !
merci
Mais ca me saoul de faire tout ca donc je lache l'affaire pour cette source. Bientot si ca continue on va fournir juste une image du code et on devra le recopier pour l'essayer. Alors non merci pas pour moi.
Fais un effort foucteau fournit un code complet. Tu enleves le dpr alors que tu fournis les dcu ect... Ou est le gain!!!
++,
JMP77.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.