Discussion :

[valoji]

Bonjour,

Voilà j'ai ma chaine A: ''champ1','chp2','ch3''.

Je voudrais faire un insertrecord([a]), le problème c'est qu'il m'insere toute ma chaine dans le champ1.

Comment faire pour avoir ce résultat insertrecord(['champ1','chp2','ch3']), en gardant ma variable A ?

Merci pour votre aide

valoji

[Rayek]

Tu ne peux pas.

InsertRecord attend un tableau de valeur, toi tu lui mets un string simple, donc il considère que ce string fait partie du tableau de valeur.

a mon avis (a tester) :

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
 
var
  A : Array of string;
begin
  SetLength(a,3);
  a[0] := QuotedStr('Champ1');
  a[1] := QuotedStr('Champ2');
  a[2] := QuotedStr('Champ3);
 
  With TonCompoDb do
  begin
{    InsertRecord(VarArrayof(a));
// ou
    InsertRecord([a]);}
  end;
end;

A tester bien sur ...

[Bruno75]

une autre idée est de faire une fonction intermédiaire qui va te splitter ta chaîne de caractères en morceaux.

typiquement

Code :

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

1
2
3
4
5
6
7
 
ArrString = array of string;
 
function Split(Args: string): ArrString 
begin
         // là tu utilise l'unité StrUtils avec les fonctions Pos, LEftStr et RightStr 
end;

ensuite tu as ta procédure qui insère un record à partir d'un ArrString

Code :

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

1
2
3
4
5
6
7
 
procedure InsertRecord(ACommand: TADOCommand; Args: ArrString)
   for each Arg 
    Acommand.Parameters[i].Value := Args[i]
  end
  ACommand.Execute
end;

et enfin tu appelles tout ça avec

Code :

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

1
2
 
  InsertRecord(MyCommand, ''champ1','chp2','ch3'')

maintenant pour les détails faudrait au moins que tu dises quels composants tu utilises.