Difficulté à déboguer une fonction

Premièrement est-ce que ça marche ?
Si tu passes un SQL avec des paramètres, il faut définir ce que tu fais :

Code:

---

Sql= « Select, insert update »

---

Quels champs t’intéressent ?
Sur quel table
Appliques-tu un filtre where
Sont t’ils des paramètres @

Code:

---

Sql= "Select champ1,champ2 from MaTable Where Mochamp1=@MoParam1 and Mochamp2=@MoParam2;"

---

Citation:

---

Envoyé par rdurupt

Premièrement est-ce que ça marche ?
Si tu passes un SQL avec des paramètres, il faut définir ce que tu fais :

Code:

---

Sql= « Select, insert update »

---

Quels champs t’intéressent ?
Sur quel table
Appliques-tu un filtre where
Sont t’ils des paramètres @

Code:

---

Sql= "Select champ1,champ2 from MaTable Where Mochamp1=@MoParam1 and Mochamp2=@MoParam2;"

---

---

Ta solution ne marche pas chez moi.

Dans ma procédure stockée il y a des des if exist, des selection avec des where et il y a bien des paramètres.

La table est History et la procédure stockée est sp_History.

Les champs qui m’intéresse y en a pas mal

Code:

---

1 2 3 4 5 6 7

Dim cmd As New ADODB.Command Dim rs As ADODB.Recordset cmd.CommandType = adCmdStoredProc cmd.CommandText = "sp_History" cmd.Parameters.Append .CreateParameter("@IDAct", adVarChar, adParamInput,70 IDAc) cmd.Parameters.Append .CreateParameter("@Date", adDate, adParamInput, 10,DateExe) Set rs = cmd.Execute

---

Citation:

---

Envoyé par rdurupt

Code:

---

1 2 3 4 5 6 7

Dim cmd As New ADODB.Command Dim rs As ADODB.Recordset cmd.CommandType = adCmdStoredProc cmd.CommandText = "sp_History" cmd.Parameters.Append .CreateParameter("@IDAct", adVarChar, adParamInput,70 IDAc) cmd.Parameters.Append .CreateParameter("@Date", adDate, adParamInput, 10,DateExe) Set rs = cmd.Execute

---

---

Merci pour ton aide mais ça ne marche pas.

J'ai eu une erreur de compilation dans le module caché ThisWorkBook

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset Dim ConnectionString As String ConnectionString = "Driver={SQL Server Native Client 10.0};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;" cn.ConnectionString = ConnectionString cn.Open cmd.ActiveConnection = cn cmd.CommandType = adCmdStoredProc cmd.CommandText = "sp_History" cmd.Parameters.Append.CreateParameter "@IDAct", adVarChar, adParamInput, 70, IDAc cmd.Parameters.Append.CreateParameter "@Date", adDate, adParamInput, 10, DateExe Set rs = cmd.Execute

---