Discussion :

[Okaryn]

Hello,

J'essaie d'utiliser la fonction ODBC BINDPARAMETER.

Avec un exemple simple d'insertion d'un texte dans le champ LastName j'ai toujours le message "LastName ne peut être une chaine vide" (champ non null).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var
sTexte : String;
lTexte : Integer;
pTexte : Pointer;
 
begin
SQLPrepare(hstmt, Pchar('Insert Into Employees(LastName) Values(?)'),SQL_NTS);
sTexte := 'Toto';
lTexte := Length(sTexte);
pTexte := @sTexte;
SQLBindParameter(hstmt,1,SQL_PARAM_INPUT,SQL_C_CHAR, SQL_VARCHAR, lTexte,0, pTexte , 0, iRet);
SQLExecute(hstmt);

Le code est épuré des controles des fonctions ODBC, le retour est toujours OK sauf pour SQLExecute.

lTexte contient bien 4, mais iRet a en retour la valeur 0 et du coup la requête insère un champ Null au lieu de Toto.

Une idée ?

La requete "Insert Into Employees(LastName) Values(?)" fonctionne bien directement sous Access (demande d'un paramètre).

Merci !

[Okaryn]

Bon, j'ai un peu avancé à force de tests,

Actuellement j'arrive à insérer le 1er caractère en ajoutant la fonction SQLNumParams juste après SQLPrepare et en modifiant

pTexte := @sTexte[1];

Du progrès, mais manque encore des caractères

[Okaryn]

Bon, j'ai fini par trouver.

La variable iRet doit contenir également la longueur des données à transmettre, en l'occurence lTexte.

L'appel à SQLNumParams n'est donc plus nécessaire. En fait je stockais le résultat de cette fonction (valeur 1) dans iRet.

A la place de la longueur, on peut également indiquait des variables comme SQL_NTS si on transmet une chaine de caractère qui se termine par \0.

Voilà, au cas où quelqu'un se poserait la même question un jour