Affichage dans grid view

Signaler
Messages postés
4
Date d'inscription
mercredi 3 mars 2010
Statut
Membre
Dernière intervention
21 juin 2012
-
Messages postés
1540
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
1 août 2013
-
bonsoir
j ai utilisé ce code mais ne marche pas il n'affiche pas dans gridview il me donne un erreur merci a vos reponces

For i = 0 To dt.Rows.Count - 1

cmd = New SqlCommand("select " & dt.Rows(i).Item(6) & " from " & dt.Rows(i).Item(5), cn)
da = New SqlDataAdapter(cmd)
da.Fill(ds, "v")
dt1 = ds.Tables("v")
a = 0
Dim b As Double
Dim c As Integer = (dt.Rows(i).Item(7) * 365)
Dim k = dt.Rows(i).Item(8)
For j = 0 To dt1.Rows.Count - 1
b = DateDiff(DateInterval.Day, Today, dt1.Rows(j).Item(0))
Dim s As Integer = b + c
If s < k Then
a = a + 1
End If
Next
TextBox1.Text = a
GridView1.Rows(i).Cells(0).Text = dt.Rows(i).Item(0)
GridView1.Rows(i).Cells(0).Text = dt.Rows(i).Item(4) & a & dt.Rows(i).Item(5)

Next
A voir également:

3 réponses

Messages postés
1540
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
1 août 2013
12
Salut,

mets ton code en forme (avec la balise code) et explicite ton erreur.
Messages postés
4
Date d'inscription
mercredi 3 mars 2010
Statut
Membre
Dernière intervention
21 juin 2012

bonjour,
voici l erreur (L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.
Nom du paramètre : index )
voici le code vb.net
Imports System.Data.SqlClient
Partial Public Class Affichage
Inherits System.Web.UI.Page
Public cn As SqlConnection
Public cmd As SqlCommand
Public da As SqlDataAdapter
Public ds, ds1 As New DataSet
Public dt, dt1, dt2, dt3 As New DataTable
Public cmdb As SqlCommandBuilder
Public Sub connect()
cn = New SqlConnection("Data Source=AM;Initial Catalog=NORTHWND.MDF;Integrated Security=True")
End Sub
Public Sub Alt()
cmd = New SqlCommand("select * from Alertes", cn)
da = New SqlDataAdapter(cmd)
da.Fill(ds, "a")
dt = ds.Tables("a")
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

connect()
Alt()
Dim a As Integer
cmd = New SqlCommand("select " & dt.Rows(i).Item(6) & " from " & dt.Rows(i).Item(5), cn)
da = New SqlDataAdapter(cmd)
da.Fill(ds, "v")
dt1 = ds.Tables("v")
a = 0
Dim b As Double
Dim c As Integer = (dt.Rows(i).Item(7) * 365)
Dim k = dt.Rows(i).Item(8)
For j = 0 To dt1.Rows.Count - 1
b = DateDiff(DateInterval.Day, Today, dt1.Rows(j).Item(0))
Dim s As Integer = b + c
If s < k Then
a = a + 1
End If
Next
TextBox1.Text = a
GridView1.Rows(i).Cells(0).Text = dt.Rows(i).Item(0)
GridView1.Rows(i).Cells(0).Text = dt.Rows(i).Item(4) & a & dt.Rows(i).Item(5)

Next



End Sub


merci
Messages postés
1540
Date d'inscription
lundi 26 mai 2003
Statut
Membre
Dernière intervention
1 août 2013
12
Utilise les balises code, c'est toujours suant à lire ...
Et vu que j'ai pas la ligne de l'erreur ça peut intervenir sur n'importe quel indexer :
- dt.Rows(i)
- dt.Rows(i).Item(6)
- dt.Rows(i).Item(5)
- dt.Rows(i).Item(7)
- dt1.Rows(j).Item(0)
...