Affichage résultats (VB.NET ; ASP.NET)

NiTrOuS · le 30 janvier 2006

Bonjour à tous.

Voilà, j'ai une base de données SQL server 2000.

J'utilise Visual Studio pour faire mon programme.

J'ai un fichier WebForm1.aspx.vb dans lequel je me connecte à ma base de données et j'exécute une requête SELECT. Je test ma requete en affichant le résultat via Debug.Write

Tout marche parfaitement.

Maintenant, j'ai une page WebForm1.aspx dans laquelle je voudrais afficher les résultats obtenus de ma requete (ceux que j affiche via Debug.Write). Mais je ne sais pas du tout comment m y prendre.

Voici le code du fichier WebForm1.aspx.vb:

Imports System.Data.SqlClient

Public Class WebForm1
Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
	'CODEGEN: This method call is required by the Web Form Designer
	'Do not modify it using the code editor.
	InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	Try
		Dim connectString As String = "database=***;server=***;User ID=***;pwd=***"
		Dim connection As SqlConnection = New SqlConnection(connectString)
		connection.Open()
		Dim command As SqlCommand = New SqlCommand("SELECT prenom,nom FROM client", connection)
		Dim reader As SqlDataReader = command.ExecuteReader
		Dim row As Object() = Nothing
		While reader.Read
			If row Is Nothing Then
				row = New Object(reader.FieldCount) {}
			End If
			reader.GetValues(row)
			Dim i As Integer = 0
			While i < row.GetLength(0)
				If Not row(i) Is Nothing AndAlso Not (row(i) Is DBNull.Value) Then
					System.Diagnostics.Debug.Write(row(i).ToString())
				Else
					System.Diagnostics.Debug.Write("NULL")
				End If
				If i < row.GetUpperBound(0) Then
					System.Diagnostics.Debug.Write(" | ")
				End If
				i = i + 1
			End While
			System.Diagnostics.Debug.Write(vbCrLf)
		End While
		reader.Close()
		connection.Close()
	Catch ex As Exception
		System.Diagnostics.Debug.WriteLine(ex.ToString())
	End Try
End Sub

End Class

Et voici le code de la page WebForm1.aspx: (je n'y ai encore rien fait)

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="WebApplication1.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
 <head>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name=vs_defaultClientScript content="JavaScript">
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
 </head>
 <body MS_POSITIONING="GridLayout">

<form id="Form1" method="post" runat="server">

</form>

 </body>
</html>

Merci à celui qui pourra m'aider.

Pour l'affichage, je compte utiliser les tableaux HTML si possible

NiTrOuS · le 30 janvier 2006

J'ai réussi en partie en faisant ceci:

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<html>
<script language="VB" runat="server">

Sub Page_Load(Sender As Object, E As EventArgs) 

	Dim DS As DataSet
	Dim MyConnection As SqlConnection
	Dim MyCommand As SqlDataAdapter

	MyConnection = New SqlConnection("database=***;server=***;User ID=***;pwd=***")
	MyCommand = New SqlDataAdapter("select * from client", MyConnection)

	DS = new DataSet()
	MyCommand.Fill(ds, "client")

	MyDataGrid.DataSource=ds.Tables("client").DefaultView
	MyDataGrid.DataBind()
End Sub

</script>

<body>
<div align="center">
<h1>Résultats de la requête SELECT sur la table client</h1>

 <ASP:DataGrid id="MyDataGrid" runat="server"
Width="700"
BackColor="#ccccff" 
BorderColor="black"
ShowFooter="false" 
CellPadding=3 
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaaadd"
EnableViewState="false"
 />
</div>
</body>
</html>

Mais bon, je me vois mal recréer une connection à chaque requête, donc comment pourais-je faire pour créer ma connection dans un fichier VB et appeler cette connection à partir de mon fichier aspx ???

Connexion

Affichage résultats (VB.NET ; ASP.NET)

Messages recommandés

NiTrOuS

Lien vers le commentaire

Partager sur d’autres sites

NiTrOuS

Lien vers le commentaire

Partager sur d’autres sites

Archivé

Naviguer

Activité