cs_espoir2010
Messages postés3Date d'inscriptionmercredi 3 mars 2010StatutMembreDernière intervention21 juin 2012
-
21 juin 2012 à 01:40
cs_jopop
Messages postés1540Date d'inscriptionlundi 26 mai 2003StatutMembreDernière intervention 1 août 2013
-
21 juin 2012 à 14:33
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)
cs_espoir2010
Messages postés3Date d'inscriptionmercredi 3 mars 2010StatutMembreDernière intervention21 juin 2012 21 juin 2012 à 11:41
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)
cs_jopop
Messages postés1540Date d'inscriptionlundi 26 mai 2003StatutMembreDernière intervention 1 août 201312 21 juin 2012 à 14:33
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)
...