Discussion :

[Argonz]

Bonjour à tous.

Voila le problème.
J'ai une base de donnée access que je manipule par ADO.

j'ai notament une procédure dans access qui reçoit un apramètre et me retourne un sellect en fonction de ce paramètre.

le probème c'est que depuis delphij'arrive ouvrir mon objet ADOStoredProc en lui passant une première fois le paramètres, mais lorsque je repasse un autre paramètre le DataSet n'est pas mis à jour. Je fait pourtant tout de manière conventionnelle et je usis certain que mon problème ne vien pas de ma procédure sotckée access.

Voila le code :

Code :

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

1
2
3
4
5
6
 
if MyADOStoredProcDisciplineByCompetition.Active then
 MyADOStoredProcDisciplineByCompetition.Close;
  MyADOStoredProcDisciplineByCompetition.Parameters.ParamByName('CompetitionParam').Value :=  GuidToString(CompetitionParam);
 
MyADOStoredProcDisciplineByCompetition.Open;

le problème c'est qu'il m'est impossible de mettre à jour mon DataSet ave cun nouveau paramètre.

quelqu'un a - t -il une idée de ou se situe mon problème ??

Je travail sur Delphi 2005. et Access 2003

Voila d'avance merci a ceux qui essaieront de m'aider

[Chaps]

Bonjour,

1) Probablement un problème de passage de param. En général, les paramêtres sont préfixés avec "@" :
ParamByName('@CompetitionParam').Value

2) Sinon voici un exemple passant par "SqlCommand" avec "CommandType.StoredProcedure" :

function TDiscussionDB.GetTopLevelMessages(moduleId: Integer): SqlDataReader;
var
connection1: SqlConnection;
command1: SqlCommand;
parameter1: SqlParameter;
begin
connection1 := SqlConnection.Create(ConfigurationSettings.AppSettings.Item['connectionString']);
connection1.Open;
command1 := SqlCommand.Create('Portal_GetTopLevelMessages', connection1);
parameter1 := SqlParameter.Create('@ModuleID', SqlDbType.Int, 4);
command1.CommandType := CommandType.StoredProcedure;
parameter1.Value := system.object(moduleId);
command1.Parameters.Add(parameter1);
Result := command1.ExecuteReader(CommandBehavior.CloseConnection);
end;