[ADO] Problème de mise à jour d'un record

Version imprimable

29/06/2007, 21h32
yamino

[ADO] Problème de mise à jour d'un record
Bonjour à tous,

J'ai une erreur assez bizarre. J'ai un dbgrid avec une liste de fournisseur. Dans l'événement OnCellClick j'ai mis :

Code:

edit1.Text := monADODataSet.FieldByName('name').AsString

Jusque là pas de problème...
Maintenant dans mon edit1 dans l'événement OnExit :
Code:

1 2 3 4 5 6 with monADODataSet do begin Edit; FieldByName('Fournisseur').AsString := edtName.Text; Post; end;
Je n'ai aucun soucis si je change la valeur dans mon edit, par contre si je ne change rien et que je sors j'ai l'erreur suivante :
Le projet a déclenché la classe d'exception EOleException avec le message 'La ligne n'a pas pu être trouvée pour la mise à jour. Certaines valeurs ont peut-être changé depuis leur dernière lecture'.

Pour info je suis avec Delphi 2007 et je me connecte à une base de données MySQL via ADO

Merci
30/06/2007, 11h21
ProgD

Essayé plutot sa

if edtName.Text<>'' then
Begin
with monADODataSet do
begin
Edit;
FieldByName('Fournisseur').AsString := edtName.Text;
Post;
end;
end
Else
Abort;

Bonnes continuations
30/06/2007, 11h29
yamino

Bonjour ProgD et merci de ta réponse

J'ai essayé ta solution mais toujours le même problème.
En fait j'ai qqch dans mon edit1, si je ne le modifie pas et que je fais un post ça plante, par contre si je fais la moindre modif ça fonctionne.
Même si je mets un espace puis que je le supprime ça plante, donc il n'aime pas que je remplace la valeur par une valeur identique... Quid ???
30/06/2007, 11h40
Cl@udius

Salut

Une question comme ca ! Pourquoi tu ne travailles pas avec DBEdit ?

Il me semble que tu aurais moins de soucis. Surtout que tu cherches à reproduire le comportement un DBEdit.

@+ Claudius
30/06/2007, 11h56
yamino

je m'attendais à cette question :mouarf:

Et c'est vrai que je pourrais le faire mais je me pose quand même la question de savoir pourquoi ça ne fonctionne pas...
30/06/2007, 12h05
Cl@udius

Re,

Citation:

Envoyé par yamino

Dans l'événement OnCellClick j'ai mis :

Code:

edit1.Text := monADODataSet.FieldByName('name').AsString

Personnellement je ne mettrais pas à jour le TEdit sur le OnCellClick du DBGrid, mais sur l'AfterScroll de l'ADODataSet.

Supposition car je n'ai pas vérifié, je ne suis pas certain que ton ADO soit déjà sur le bon enregistrement au moment du CellClick.

A vérifier !

@+ Claudius
30/06/2007, 13h22
yamino

Ca marche pas :calim2:

Même avec un dbEdit ça ne fonctionne pas... le pire c'est que je suis toujours sur le bon enregistrement...

Bon... j'ai changé le paramètre de connection

de ceci :

Code:

1
2
3
4
5
6
    ConnectionString :=
      'Provider=MSDASQL.1;' +
      'Persist Security Info=False;' +
      'User ID=User;' +
      'Password=Pass;' +
      'Data Source=ODBCCmaDB';

je suis passé à ceci :

Code:

1
2
3
4
5
6
7
ConnectionString :=
      'Driver={MySQL ODBC 3.51 Driver};' +
      'server=localhost;' +
      'Database=maDB;' +
      'User=User;' +
      'Password=Pass;' +
      'Option=3;';

et ça fonctionne...
Si qqun sait pourquoi ça m'intéresse ;)