Discussion :

[lutecefalco]

tab(0)=(reader.GetInt32(0)).toString()

[michael_MS]

ok..merci beaucoup pour votre réponse..

Au même sujet,

j'ai un code qui marche très bien...mais il y a un petit problème...et je l'ai identifié.

ça me souligne ces 2 lignes:

Code :

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

1
2
            tableau(0) = reader.GetString(1)
            tableau(1) = reader.GetString(2)

ça me souligne ces 2 lignes en me disant: la propriété 'Chars' est 'Read Only'


voiçi mon code:

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
    Sub generer_start_end_date()
        Dim conn As New SqlConnection
        Dim reader As SqlDataReader
        Dim serverName As String = "basemaster"
        Dim variable1 As String = dropdownlist1.SelectedItem.Text
        Dim variable2 As String = dropdownlist2.SelectedItem.Text
 
        'Dim request As String = "SELECT dbo.MEETINGS.MTG_REF, dbo.MEETINGS.START_DATE, dbo.MEETINGS.END_DATE, dbo.technical_body.TB_KEY1, dbo.technical_body.TB_KEY2, dbo.MEETINGS.MTGS_CODE FROM dbo.MEETINGS INNER JOIN dbo.technical_body ON dbo.MEETINGS.TB_ID = dbo.technical_body.TB_ID WHERE (((dbo.MEETINGS.MTG_REF)='PLT#49') AND ((dbo.technical_body.TB_KEY1)='PLT') AND ((dbo.MEETINGS.MTGS_CODE)='PREPARATION'));"
        Dim request As String = "SELECT dbo.MEETINGS.MTG_REF, dbo.MEETINGS.START_DATE, dbo.MEETINGS.END_DATE, dbo.technical_body.TB_KEY1, dbo.technical_body.TB_KEY2, dbo.MEETINGS.MTGS_CODE FROM dbo.MEETINGS INNER JOIN dbo.technical_body ON dbo.MEETINGS.TB_ID = dbo.technical_body.TB_ID WHERE (((dbo.MEETINGS.MTG_REF)='" +variable2 + "') AND ((dbo.technical_body.TB_KEY1)='" + variable1 + "') AND ((dbo.MEETINGS.MTGS_CODE)='PREPARATION'));"
 
        conn.ConnectionString = "packet size=4096;user id=wpmreports;pwd=welcome;data source=""" & serverName & """;persist security info=False;initial catalog=DSDB"
 
        conn.Open()
 
        Dim cmd As SqlCommand
        cmd = Nothing
 
        cmd = New SqlCommand(request, conn)
 
        reader = cmd.ExecuteReader
 
        Dim tableau As String
        While reader.Read
            tableau(0) = reader.GetString(1) 'start date
            tableau(1) = reader.GetString(2) 'end date
        End While
 
        reader.Close()
        conn.Close()
        Return tableau
    End Sub

merci pour tous ce qui me répondent...

[lutecefalco]

Code :

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

Dim tableau As String

Tu définis pas un tableau là

[michael_MS]

ah merçi, je n'avais pas fais attention !

merçi beaucoup !