enregistrer dans une base de données

**pottiez** · 10/07/2006, 14h32

Si ca ne fonctionne toujours pas, essaye en séparant ta requete en deux ligne, certain SGBD l'exige :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Query2->SQL->Clear();
AnsiString requete2 = "INSERT INTO T_User (TpsConnexion) VALUES ('"+(AnsiString)(DateFin - DateDebut)+"')" ;
Query2->SQL->Add(requete2);
requete2 = "WHERE Login='"+LoginZone->Text+"'";
Query2->SQL->Add(requete2);
Query2->ExecSQL();

**liverbird** · 10/07/2006, 14h58

Envoyé par ero-sennin

Salut,

Je ne suis pas sur, mais remplace la ligne correspondante par celle-ci (j'ai rajouté le point-virgule):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AnsiString requete2 = "INSERT INTO T_User (TpsConnexion) VALUES ('"+(AnsiString)(DateFin - DateDebut)+"') WHERE Login='"+LoginZone->Text+"';";

j'ai dèja essayé.
ça me fait une erreur de syntaxe

**liverbird** · 10/07/2006, 15h07

Envoyé par pottiez

Si ca ne fonctionne toujours pas, essaye en séparant ta requete en deux ligne, certain SGBD l'exige :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Query2->SQL->Clear();
AnsiString requete2 = "INSERT INTO T_User (TpsConnexion) VALUES ('"+(AnsiString)(DateFin - DateDebut)+"')" ;
Query2->SQL->Add(requete2);
requete2 = "WHERE Login='"+LoginZone->Text+"'";
Query2->SQL->Add(requete2);
Query2->ExecSQL();

Merci mais il demande toujours un point virgule. ce n'est pas normale?!!!
autant c Builder qui foire? non?

**pottiez** · 10/07/2006, 15h09

Je ne pense pas, lorsque tu envoie ta requete un message revien du SGBD, Borland l'affiche mais c'est bien le SGBD qui a généré l'erreur, maintenant si tu nous montre le message d'erreur en entier on verra peut etre mieux.

**bakaneko** · 10/07/2006, 15h12

et comme ça, ça marche???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Query2->SQL->Clear();
TDateTime Difference = DateFin - DateDebut;
AnsiString requete = "INSERT INTO T_User (TpsConnexion) VALUES ("+QuotedStr(Difference.DateString())+") WHERE Login="+QuotedStr(LoginZone->Text);
Query2->SQL->Add(requete);
Query2->ExecSQL();

**ero-sennin** · 10/07/2006, 15h14

Salut,

Envoyé par pottiez

Si ca ne fonctionne toujours pas, essaye en séparant ta requete en deux ligne, certain SGBD l'exige :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Query2->SQL->Clear();
AnsiString requete2 = "INSERT INTO T_User (TpsConnexion) VALUES ('"+(AnsiString)(DateFin - DateDebut)+"')" ;
Query2->SQL->Add(requete2);
requete2 = "WHERE Login='"+LoginZone->Text+"'";
Query2->SQL->Add(requete2);
Query2->ExecSQL();

Je me demande pas si tu n'as pas oublié le ; à la fin de la requête SQL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

requete2 = "WHERE Login='"+LoginZone->Text+"';";

Peut-être que je me trompe mais bon, je tente

**liverbird** · 10/07/2006, 15h20

dac, voila le codage de mes boutons Annuler, OK et Quitter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
TDate DateDebut;
TDate DateFin;
//AnsiString dateDebut ;
//AnsiString dateFin ;
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AnnulerButtonClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OKButtonClick(TObject *Sender)
{
//ouverture et connexion, bdd et table
Session1->Open();
Database1->Open();
Table1->Open();
//si les champs sont vides ou contiennent des espaces
if(Trim(LoginZone->Text) == "" || Trim(PasswordZone->Text) =="")
 {
 ShowMessage("Veuillez saisir un nom d'utilisateur et un mot de passe svp");
 LoginZone->Text="";
 PasswordZone->Text="";
 }
 else {
// requête SQL
 Query1->SQL->Clear();
  AnsiString requete = "select count(Login) as nbReponse from T_User where Login= '"+LoginZone->Text+"' and Password= '"+PasswordZone->Text+"'";
  Query1->SQL->Add(requete);
  Query1->Open();
int nbrep = Query1->FieldByName("nbReponse")->AsInteger;
if (nbrep>0){  //bon Login, bon Password
             ShowMessage("Bienvenue");
             DateDebut=FormatDateTime("DD/MM/YYYY HH:MM:SS",Now());
             ShellExecute(NULL,"open","winmine.exe","","",SW_SHOWDEFAULT);
             //std::system( "winmine.exe" );
 
 
            }
            else{ ShowMessage("Nom d'utilisateur ou mot de passe invalide");}
Query1->Close();
     }
// fermeture et déconnexion
//Session1->Close();
//Database1->Close();
//Table1->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::QuitterButtonClick(TObject *Sender)
{
DateFin=FormatDateTime("DD/MM/YYYY HH:MM:SS",Now());
ShowMessage("durée = " + (DateFin - DateDebut)) ;
Query2->SQL->Clear();
AnsiString requete2 = "INSERT INTO T_User (TpsConnexion) VALUES ('"+(AnsiString)(DateFin - DateDebut)+"')" ;
Query2->SQL->Add(requete2);
requete2 = "WHERE Login='"+LoginZone->Text+"'";
Query2->SQL->Add(requete2);
Query2->ExecSQL();
}

et voilà l'erreur qui apparait dans une boite de dialogue "Notification d'une exeption du debogueur" :

Le project AccesMEB.exe a provoqué une classe d'exeption EDBEngineError avec le message 'Erreur SQL générale.
[Microsoft][Pilote ODBCMicrosoft Access] Point-virgule absent à la fin de l'instruction SQL.'. Processus stopé...

**liverbird** · 10/07/2006, 15h26

Envoyé par bakaneko

et comme ça, ça marche???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Query2->SQL->Clear();
TDateTime Difference = DateFin - DateDebut;
AnsiString requete = "INSERT INTO T_User (TpsConnexion) VALUES ("+QuotedStr(Difference.DateString())+") WHERE Login="+QuotedStr(LoginZone->Text);
Query2->SQL->Add(requete);
Query2->ExecSQL();

Toujours la même erreur

**pottiez** · 10/07/2006, 15h35

C'est quand même bisard cette erreur, j'ai plusieur projet qui font des requetes SQL sur Access ou d'autres SGBD, mais je n'ai jamais besoin de mettre de ';'

**liverbird** · 10/07/2006, 15h38

et si j'essaie de mettre la requete dans la propriété SQL du composant? ça pourrait marcher ça? qu'est ce qu'il faut écrire ?

**pottiez** · 10/07/2006, 15h40

Bin tu l'écrit déjà dans la propriété SQL, c'est ce que tu fait avec la fonction Add(), cette fonction ajoute une ligne dans la propriété SQL

**ero-sennin** · 10/07/2006, 15h42

Tu peux toujours essayer de coder quelque chose en dur pour voir si déjà cela fonctionne correctement.

Je m'explique lol:
Au lieu de mettre Login->Texte, DureeDebut-DureeMoins, essaie de mettre des valeurs et vois si cela fonctionne.

Moi non plus je ne vois pas trop de où pourrait venir le problème