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
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.