Discussion :

[thierry007]

Bonjour, j'ai posé la question coté SQL Server, mais je crois qu'il sera plus juste de la poser de ce coté

Voici une Classe que j'utilise pour le requetes SQL ( en parametre: la String SQL , le nom de la table et la connexion. elle me Retourne un dataset: tout fonctionne tres bien

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
Public FUNCTION Getdatas(ByRef StringSql AS String, ByRef TableName AS String, ByRef Connexion AS String) AS DataSet
            Dim Ds AS DataSet
            Dim Da AS SqlDataAdapter
            Dim ConnexionData AS SqlConnection
            Dim StrSql AS String = Nothing
            Dim ErrorSource AS String = Nothing
 
            Try
                  ConnexionData = New SqlConnection(Connexion)
                  ConnexionData.Open()
                  Da = New SqlDataAdapter(StringSql, Connexion)
                  Ds = New DataSet
                  Da.Fill(Ds, TableName)
                  ConnexionData.Close()
 
                  RETURN Ds
 
            Catch ex AS Exception
 
                  ErrorSource = Environment.MachineName
                  SendEmail(My.Application.Info.ProductName & "@sender.be", "moi@monEmail.eu", ErrorSource & " - Error Program ", ex.Message & vbCrLf & StringSql)
                  Call AnormalFin(0, "Error on table " & TableName, ex.Message)
 
                  RETURN Nothing
 
            End Try
 
      End FUNCTION

Je souhaite maintenant pourvoir utiliser des requetes paramètrées afin d'éviter la malveillance de certaines personnes
J'ai trouvé un tuto sur le sujet, mais je ne vois pas comment l'implémenter dans la requete que je passe en paramètre
Si quelqu'un a une idée ou un bout de code assez explicatif, je suis preneur

Merci bien

[Pol63]

Code :

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

1
2
3
4
5
6
7
8
Public FUNCTION Getdatas(ByRef StringSql AS String, ByRef TableName AS String, ByRef Connexion AS String, paramarray params() as dbparameter) AS DataSet
 
 
  for each p as dbparameter in params
 
  next
 
...

[thierry007]

Mais encore....
quels sont les paramètres a passés a la fonction et quel est ce qui est a récupérer?

[Pol63]

Code :

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

1
2
3
4
5
dim rq as string = "SELECT * FROM table WHERE champ1 = @valeurchamp1"
dim p as new system.Data.sqlclient.sqlparameter("@valeurchamp1",type du champ)
p.value = montextbox.text
 
dim ds as dataset = Getdatas(rq,"table",maconnexion,p)

paramarray permet de dire qu'on va ajouter en 0 et x choses du meme type, en l'occurence des sqlparameter puis il suffit de les donner au moment de l'appel de la fonction

[thierry007]

Si je ne me trompe, alors je défini et j'assigne les valeurs des textbox et autres a p.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dim p(0) as new system.Data.sqlclient.sqlparameter("@valeurchamp0",type du champ)
dim p(1) as new system.Data.sqlclient.sqlparameter("@valeurchamp1",type du champ)
 
Rq="Update MaTable SET Champs0=@valeurchamp0,Champs1=@valeurchamp1"
 
p(0).value = montextbox0.text
p(1).value = montextbox1.text
 
'Appel de la fonction
GetData.Getdatas(rq,"table",maconnexion,p)

Le but étant de passer les valeurs saisies par le Array et de les récupérer par la requete, dans la fonction


Si je me fais bien comprendre dans mon français

Je laisse dormir cela jusqu'a demain et j'essaye

encore merci à sperot51 et les autres

[Pol63]

pas tout compris

mais tu peux aussi faire

Code :

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

1
2
3
4
5
6
7
dim pMachin as parameter ...
dim pTruc as parameter...
 
pMachin.value = 
pTruc.value = 
 
GetData.Getdatas(rq,"table",maconnexion,pMachin,pTruc)

paramarray permet de passer soit un tableau du type, soit plein d'instances du types (parfois plus lisible de faire plusieurs instances parce que p(0) c'est moins explicite que paramDateDebut par exemple
dans la fonction ca ressort un tableau dans les 2 cas par contre