Soyez le premier à donner votre avis sur cette source.
Snippet vu 15 674 fois - Téléchargée 28 fois
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
Utilisation la plus basic du DataReader.
trop de code pour rien.
Pas de test de parametre et pas de gestion d'exception.
Tu pourrais, nous mettre un code plus propre quand meme
gerer les erreurs ? et si ta requete ne renvoie rien, il se passe quoi ? ben ca plante ...
tu dis que c'est le rst.read qui t'as fait mettre ta source, ok, mais il sert à quoi ? à l'avenir essaye de donner un minimum d'explication :)
Cyril
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.