Utilisation du sqldatareader et affichage dans des zones de texte

Commenter

Contenu du snippet

j'ai juste eu une inatention sur :
rst.Read() 'tres important c'est ce qui m'a d'ailleur poussé a publier ce bout de code
et donc je recevais un message d'erreur a chaque fois
je suppose que plusieurs ont cette petite inatention alors bon developpement

Source / Exemple : 


Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlDataReader

Public Class modif_dateContratTele
    Inherits System.Web.UI.Page

#Region " Code généré par le Concepteur Web Form "

    'Cet appel est requis par le Concepteur Web Form.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label

    'REMARQUE : la déclaration d'espace réservé suivante est requise par le Concepteur Web Form.
    'Ne pas supprimer ou déplacer.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
        'Ne le modifiez pas en utilisant l'éditeur de code.
        InitializeComponent()
    End Sub

#End Region
    Dim ConnString As String = "Integrated Security=SSPI;Initial Catalog=mediascan;Data Source=Kalou2"

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Placez ici le code utilisateur pour initialiser la page
        Dim cxn As New SqlConnection
        Dim rst As SqlDataReader
        Dim cmd As SqlCommand
        cxn.ConnectionString = ConnString
        cxn.Open()
        Dim idcontrat1 As Integer
        idcontrat1 = Request.QueryString("ID")
        Dim sSQL3 As String = "SELECT TelePub_Id,Agence_Id,TeleContrat_Debut,TeleContrat_Fin FROM TeleContrat where TeleContrat_Id=" & idcontrat1
        cmd = New SqlCommand(sSQL3, cxn)
        rst = cmd.ExecuteReader()
        rst.Read() 'tres important c'est ce qui m'a d'ailleur poussé a publier ce bout de code
        TextBox1.Text = idcontrat1
        TextBox2.Text = "" & Trim(rst("TelePub_Id"))
        TextBox3.Text = "" & Trim(rst("Agence_Id"))
        TextBox4.Text = rst("TeleContrat_Debut")
        'TextBox4.Text = rst("TeleContrat_Fin")

        cxn.Close()
        cxn = Nothing

    End Sub

End Class

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.