Discussion :

[chapeau_melon]

Bonjour,

J'ai besoin de vos lumières...car ceci me dépasse largement...
J'ai besoin d'accéder à un BDD d'une société...mais elle ne me laisse qu'y accéder par Stored Procedures...

Comment faire...j'ai besoin d'aide et d'explications...
La société m'a envoyé un exemple écrit en C#...

Je dois apparement lancé une sorte de requête paramétré etc...et comment récuperer le résultat?

BAV

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
public partial class Form1 : Form
{
private OdbcConnection myConnection;
private OdbcCommand myCommand;
 
public Form1()
{
    InitializeComponent();
    //
    myConnection = new OdbcConnection();
    myCommand = new OdbcCommand();
    //
    myConnection.ConnectionString = "DSN=C2MEXT01;UID=GZAEXTUSR01;PWD=EXTUSR";
    myCommand.Connection = myConnection;
}
 
private void button1_Click(object sender, EventArgs e)
{
    try
    {
        myConnection.Open();
        //
        myCommand.CommandType = CommandType.StoredProcedure;
        //myCommand.CommandText = "CALL C2MV5_SA.gva_odbc_PatientAdminData_O";
        myCommand.CommandText = "{CALL C2MV5_SA.gva_odbc_PatientAdminData_O(?,?)}";
        //
        OdbcParameter param1 = new OdbcParameter();
        param1.ParameterName = "ContactNr";
        param1.OdbcType = OdbcType.VarChar;
        param1.Size = 16;
        param1.Direction = ParameterDirection.Input;
        param1.Value = "9361429";
        //
        OdbcParameter param2 = new OdbcParameter();
        param2.ParameterName = "PatName";
        param2.OdbcType = OdbcType.VarChar;
        param2.Size = 128;
        param2.Direction = ParameterDirection.Output;
        //
        myCommand.Parameters.Add(param1);
        myCommand.Parameters.Add(param2);
        //
        myCommand.ExecuteNonQuery();                
        //                
        textBox1.Text = param2.Value.ToString();                
       //
        myConnection.Close();
    }
    catch (Exception e1)
    {
        MessageBox.Show("exception : " + e1.Message);
        if (myConnection.State == ConnectionState.Open)
        {
            myConnection.Close();
        }
    }
}
}

[klbsjpolp]

Je suis pas un expert mais HExécuteProcédure me semble prometteuse sinon il y a une syntaxe avec HExécuteRequêteSQL.

[chapeau_melon]

merci mais cela ne m'aide pas vraiment...

[Emmanuel Lecoester]

c'est de l'objet pour de l'ODBC, donc tous les paramètres sont décrits "à la main"
Avec WinDev c'est lui qui se charge de ces déclarations. Pour moi tu ne devrais pas rencontrer trèops de difficulté avec les fonctions ODBC fournies.

[chapeau_melon]

Bon...

J'ai des connaisances basics de SQL et SELECT etc... mais là

Qu'est qu'une stored procedure à la base?
Comment l'appeler?
Comment l'exécuter?
Comment récuperer les données?

[klbsjpolp]

Qu'est qu'une stored procedure à la base?

Une procédure présente sur le serveur et qui permet de faire des manipulations plus complexe qu'avec du sql ou qui permet de cacher la structure de la base de données.

Comment l'appeler?

HExécuteProcédure ou HExécuteRequêteSQL

Comment l'exécuter?

Même chose.

Comment récuperer les données?

HExécuteRequêteSQL rempli une source de données et HExécuteProcédure retourne une valeur.

La page de code en vb ne devrait pas te prendre plus de 3 ou 4 lignes en Windev.

[chapeau_melon]

Est-ce que pourais demander à l'un de vous de me traduire justement cette exemple ? Pour avoir un template de travail...

BAV et déjà super pour les réponses...

[chapeau_melon]

Est-ce que ce serait simple comme ainsi ou je me trompe ?

Code :

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

1
2
 
SQLConnecte("C2MEXT01", "GZAEXTUSR01", "EXTUSR", "", "ODBC")

Code :

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

SQLExec("CALL C2MV5_SA.gva_odbc_PatientAdminData_O(?,?)","request")

Mais comment passer le input ? :

Code :

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

1
2
 
OdbcParameter param1 = new OdbcParameter();         param1.ParameterName = "ContactNr";         param1.OdbcType = OdbcType.VarChar;         param1.Size = 16;         param1.Direction = ParameterDirection.Input;         param1.Value = "9361429";

Le output se lirait par SQLpremier ?

BAV

[tpruvot]

beaucoup plus simple que ca :

Code :

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

1
2
3
4
5
6
7
 
SI SQLExec("CALL C2MV5_SA.gva_odbc_PatientAdminData_O('9361429')","req1") ALORS
  SQLPremier("req1")
  Info(SQLCol("req1",1))
  ...
FIN
SQLFerme("req1")

Essaie de remplacer CALL par EXEC ou EXECUTE sinon...
Il se peut qu'il n'y ait pas de parentheses aussi...

[chapeau_melon]

la connexion est ok mais le call ne fonctionne pas, meme en utilasant les variantes... des idees?

[chapeau_melon]

J'ai reçu les codes d'erreurs de mon client chez qui tourne la procédure stockée:

pour : CALL C2MV5_SA.gva_odbc_PatientAdminData_O('9361429')
erreur: S1000 ORA-06553-PLS-306 - wrong number or types of arguments

pour d'autre versions il y a aussi les erreurs :
CALL C2MV5_SA.gva_odbc_PatientAdminData_O('9361429','')
erreur : 07001-ORA-06577 - output parameter not a bind variable

CALL C2MV5_SA.gva_odbc_PatientAdminData_O('9361429',?)
erreur : 07001-ORA-01008 - not all variables bound

Pourriez-vous m'aider ?

BAV

[klbsjpolp]

9361429 c'est un nombre ou une chaîne? Si c'est un nombre peut être essayer sans les ''.

[chapeau_melon]

C'est un nombre...mais je pense que mon client a essayé sans et cela donne aussi une erreur...

Le problème est plus à chercher dans le OUT(PUT) je pense ? Mais comment ?