tab(0)=(reader.GetInt32(0)).toString()
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:
ça me souligne ces 2 lignes en me disant: la propriété 'Chars' est 'Read Only'
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 tableau(0) = reader.GetString(1) tableau(1) = reader.GetString(2)
voiçi mon code:
merci pour tous ce qui me répondent...
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
Tu définis pas un tableau là
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim tableau As String
ah merçi, je n'avais pas fais attention !
merçi beaucoup !
Partager