Discussion :

[IBRAHIM MR]

Bonjour à tous,
J'ai un grand problème,j'ai configuré ma base de données sur Microsoft Acces avec ADOQurey.
Lorsque je veux ajouter plusieurs informations en même temps( dans la même table ) ça marche pas, exemple si je souhaite ajouter les contenus d’une table qui contient des champs qui occupent des edit1……edit81, delphi7 me signal un error fatal sur le fait qu’il y a beaucoup de caractères sur la ligne.

Voici le code :

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
With  ADOQuery1 do 
begin 
    close; 
SQL.Text:='insert  into  Notes1  values('''+ComboBox1.Text+''','''+ComboBox2.Text+''', 
'''+combobox3.Text+''', 
'''+Edit1.Text+''','''+ComboBox6.Text+''','''+ComboBox4.Text+''','''+Edit3.Text+''','''+Edit4.Text+''','''+Edit5.Text+''','''+DateToStr(DateTimePicker1.Time)+''', 
        '''+Edit6.Text+''','''+ComboBox5.Text+''','''+Edit7.Text+''','''+Edit8.Text+''','''+Edit9.Text+''','''+Edit10.Text+''','''+Edit11.Text+''','''+Edit12.Text+''','''+Edit13.Text+''','''+Edit14.Text+''','''+Edit15.Text+''','''+Edit16.Text+''','''+Edit17.Text+''', 
        '''+Edit18.Text+''','''+Edit19.Text+''','''+Edit20.Text+''','''+Edit21.Text+''','''+Edit22.Text+''','''+Edit23.Text+''','''+Edit24.Text+''','''+Edit25.Text+''','''+Edit26.Text+''','''+Edit27.Text+''','''+Edit28.Text+''','''+Edit29.Text+''','''+Edit30.Text+''',
        '''+Edit31.Text+''','''+Edit32.Text+''','''+Edit33.Text+''','''+Edit34.Text+''','''+Edit35.Text+''', 
'''+Edit36.Text+''','''+Edit37.Text+''','''+Edit38.Text+''','''+Edit39.Text+''','''+Edit40.Text+''', 
'''+Edit41.Text+''','''+Edit42.Text+''','''+Edit43.Text+''', 
        '''+Edit44.Text+''','''+Edit45.Text+''','''+Edit46.Text+''','''+Edit47.Text+''','''+Edit48.Text+''', 
'''+Edit49.Text+''','''+Edit50.Text+''','''+Edit51.Text+''','''+Edit52.Text+''','''+Edit53.Text+''', 
'''+Edit54.Text+''','''+Edit55.Text+''','''+Edit56.Text+''', 
      '''+Edit57.Text+''','''+Edit58.Text+''','''+Edit59.Text+''','''+Edit60.Text+''','''+Edit61.Text+''', 
'''+Edit62.Text+''','''+Edit63.Text+''','''+Edit64.Text+''','''+Edit65.Text+''','''+Edit66.Text+''', 
'''+Edit67.Text+''','''+Edit68.Text+''','''+Edit69.Text+''', 
        '''+Edit70.Text+''','''+Edit71.Text+''','''+Edit72.Text+''','''+Edit73.Text+''','''+Edit74.Text+''', 
'''+Edit75.Text+''','''+Edit76.Text+''','''+Edit77.Text+''','''+Edit78.Text+''','''+edit79.text+''', 
'''+edit80.text+''','''+edit81.text+''')'; 
ExecSQL; 
with ADOQuery1 do 
begin 
    close; 
    SQL.Text:='select*from Notes1'; 
    Open; 
end; 
end;

Ma question est comment faire pour ajouter toutes informations simultanément dans la même table?
Je vous remercie pour vos réponse favorables et détails.

[guillemouze]

Je crois que tu trouvera difficilement de l'aide avec un code source aussi foireux illisible.
Pour commencer, évites les editXX, qui apportent autant de clareté au code que ton indentation.
Pourquoi ne pas utiliser une stringGrid ? Je ne sais pas à quoi ressemble ton interface, mais je suis sûr qu'il y a moyen de faire beaucoup plus clair (au pire, créer les edit en dynamique).

[tourlourou]

delphi7 me signale l'erreur fatal suivant : line too long

ce doit être une limitation de l'EDI, surmontable comme ceci :

Code :

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

1
2
3
4
SQL.Text:='insert  into  Notes1  values('''+ComboBox1.Text+''','''+ComboBox2.Text+''','''+combobox3.Text+''',';
SQL.Text:=SQL.Text+Edit1.Text+''','''+ComboBox6.Text+''','''+ComboBox4.Text+''','''+Edit3.Text+''','''+Edit4.Text+''',''';
SQL.Text:=SQL.Text+Edit5.Text+''','''+DateToStr(DateTimePicker1.Time)+''','''+Edit6.Text+''','''+ComboBox5.Text+''','''+Edit7.Text;
// etc.

Quant à la qualité du code, qui suis-je pour lancer la première pierre ? En même temps, ce n'est plus la première !

[SergioMaster]

Bonjour,

il serait quand même mieux de faire une jolie requête paramétrée
ce qui aurait au moins 3 avantages une SQL String pas trop longue
une lecture plus facile du code
le passage des valeurs chiffres et dates facilitées

Code :

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

1
2
3
4
5
6
 
SQL.Text:='INSERT INTO NOTES1 VALUES (:V1,:V2,:V3, .......)';
parameters.parambyname('v1').value:=ComboBox1.Text;
parameters.parambyname('v2').value:=ComboBox2.Text;
paramameters.parambyname('v3').asString:=ComboBox3.Text;
...

il doit aussi y avoir moyen de passer les paramétres par parameters.param[n].value mais je ne suis pas assez ADO pour me souvenir de la syntaxe exacte