Rendre Une Fonction Parametrable

Version imprimable

bonjour,
oila je dispose du code suivant:

Code:

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
 
        Dim conn As New OracleConnection(oradb)
        Dim cmd As New OracleCommand
        cmd.Connection = conn
        cmd.CommandText = "SELECT PR_CLIENT FROM COTE.PRETS"
        cmd.CommandType = CommandType.Text
        'Dim LaRequete As String
        Dim sdaRequetes As New OracleDataAdapter
        sdaRequetes.SelectCommand = cmd
        Dim dsRequete As New DataSet
 
        Try
            conn.Open()
            sdaRequetes.Fill(dsRequete, "TOTO")
            conn.Dispose()
        Catch ex As OracleException
 
        End Try
        Dim a As Integer
        'Dim element As New DataTable
        Dim entetePrets As String = readParamSql("enteteprets")
        Dim entete() As String
        entete = Split(entetePrets, ";")
        '**recuperation des données du dataset
        Dim fs As New System.IO.FileStream(Me.TextBoxFichier3D.Text, IO.FileMode.Create, IO.FileAccess.Write)
        Dim sw As New System.IO.StreamWriter(fs)
 
        For a = 0 To dsRequete.Tables(0).Rows.Count - 1
            'MsgBox(dsRequete.Tables("COTE.PRETS").Rows(a).Item("PR_CLIENT"))
 
            For i As Integer = 0 To entete.LongLength - 1 'element.Rows.Count - 1
                sw.Write(dsRequete.Tables("TOTO").Rows(a).Item(entete(i)) & vbCrLf) '.Item("PR_CLIENT"))
 
            Next
        Next
        MsgBox("ok")

et je cherche a faire une classe parametrable a parti de cette fonction
j'ai commence par ca:

Code:

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
Public Class extractOracle
 
    Private strNomFichier As String
    Private strEnteteFichier As String
    Private strSQLOracle As String
    Private strCmdText As String
 
    Public Sub setNomFichier(ByVal param As String)
        strNomFichier = param
    End Sub
    Public Sub setEnteteFichier(ByVal param As String)
        strEnteteFichier = readParamSql(param)
    End Sub
    Public Sub setSQLOracle(ByVal param As String)
        strSQLOracle = param
    End Sub
    Public Sub setCmdText(ByVal param As String)
        strCmdText = param
    End Sub
 
    Public Function extraction()
        Try
 
 
        Catch ex As Exception
 
        End Try
 
    End Function
End Class

esque quelqu'un peut me donner un coup de main??? merci

06/06/2007, 11h39
alaa_85

j'ai pas bien pigé ta question.
tu veut mettre le 1ere code dans la fonction extraction ? oui bien quoi ?
06/06/2007, 11h49
khayate

je veux creer une classe ki reprend les parametres de ma fonction:
comme la commandtext,nom de fichier...comme ca l'utilisateur n'aura pas à toucher la fonction.
06/06/2007, 11h50
Pol63

si j'ai bien compris ce qu'il veut c'est à peu près ca :

il a le code
msgbox ("toto")
et il voudrait
private vartexte as string
settext(param as string) => vartexte = param
sub affichemessage

et donc il y aurait juste à faire msgbox vartexte dans la sub
je ne vois pas ou tu bloques
comme le coup du vbcrlf, y a juste à comprendre le code ...
06/06/2007, 12h02
khayate

je sais ke ca doit te paraitre parfois debile les kestions ke je pose mais moi ca ne fait kun mois ke je fais du vb.net8O

ah oui :lol: j'ai compris maintenant ça c'est l'encapsulation:

Code:

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
Public Class extractOracle
 
    Private _strNomFichier As String
    Private _strEnteteFichier As String
    Private _strSQLOracle As String
    Private _strCmdText As String
 
  Property strNomFichier() As String
 
        Get
            Return _strNomFichier 
        End Get
        Set(ByVal value As String)
            _strNomFichier = value
        End Set
    End Property
 
    Property strEnteteFichier() As String
        Get
            Return _strEnteteFichier 
        End Get
        Set(ByVal value As String)
            _strEnteteFichier = value
        End Set
    End Property
....
End Class

C'est bon ?

06/06/2007, 12h04
Pol63

moi ca fait un mois et demi ... :lol:
06/06/2007, 12h06
alaa_85

pas grave on est tous là pour Apprendre et donner ce qu'on a ... ;)
06/06/2007, 12h37
alaa_85

Resolut ??
06/06/2007, 14h23
khayate

pas encore je n'arrive pas faire marcher ca