Connexion sql serveur + listbox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 988 fois - Téléchargée 36 fois

Commenter

Contenu du snippet

C'est parti pour le .net aussi je posterai de temps en temps des astuces pour bien démarrer en .net car j'ai un brin galéré pour débuter, comme beaucoup je présume.

Pour commencer on va s'attaquer à la connexion d'une base de données en quelques lignes. Dans l'exemple vous avez la déclaration d'une base SQL serveur et on va en profiter pour remplir un ListBox à partir d'une base SQL serveur, ben tieng on va se gêner :)

Source / Exemple : 


' dans le web.config :
' ==============================================================
<?xml version="1.0" encoding="utf-8" ?> 

<configuration> 

<system.web> 
   <customErrors mode="Off"/> 
</system.web> 

<appSettings> 
   <add key="SqlServer" value="Server=IP_serveur;Initial Catalog=Nom_de_la_base;uid=user_sql;password=password_sql"/> 
</appSettings> 
    
</configuration>
' ==============================================================

' dans index.aspx (par exemple)
' ==============================================================
<%@ Page Explicit="True" Language="VB" Debug="True" %> 
<%@ import Namespace="System.Data.SqlClient" %> 
<script runat="server"> 

' connexion BDD 
Dim conSQL As New SqlConnection(ConfigurationSettings.AppSettings("SqlServer")) 

dim ttl as integer 

Sub Page_Load(sender As object,e As eventargs) 

        if not isPostBack ' à faire une fois au démarrage 

            conSQL.open() 
            dim rs as SQLCommand = conSQL.CreateCommand() 
            dim myreader as SQLDataReader 

            ' remplissage d'un listBox 
            rs.CommandText = "select * from TOTO;" 
            myreader = rs.ExecuteReader() 
            do until not myreader.Read() 
                nd_ext.Items.Add( New ListItem( trim(myReader("VALEUR_TOTO")),trim(myReader("NOM_TOTO")) ) ) 
               ' permet de différencier la valeur de son nom dans le ListBox 
            loop 
            myreader.close() 

            ' calcul du nombre de lignes 
            rs.CommandText = "select COUNT(ID_TOTO) from TOTO;" 
            ttl = rs.ExecuteScalar() 
            showTtl.Text = ttl 
            myreader.close() 

            conSQL.close() 

        end if 

End Sub 

Sub button_click_nd(sender as object, E as EventArgs) 
        Dim s_nd_pos as Integer     = nd_ext.SelectedIndex ' position 
        Dim s_nd_ext as string      = nd_ext.SelectedItem.Text ' valeur 
End Sub 

</script> 
<html> 
<head> 
    <title></title> 
</head> 
<body> 
<form runat="server"> 

<p><asp:listbox id="nd_ext" runat="server" rows=1></asp:listbox>&nbsp;<asp:button id="Button1" onclick="button_click_nd" runat="server" text="Vérifier !"></asp:button></p> 

<p><li> Total Lignes : <b><asp:label id="showTtl" runat="server" /></b></p> 

</form> 
</body> 
</html> 
' ==============================================================

Conclusion :


Bon ben voilà un bon début dans le monde du .net, à pluche pour de nouvelles aventures ...

Have a good coding.

A voir également

Ajouter un commentaire Commentaire
cs_lamane Messages postés 20 Date d'inscription mercredi 7 avril 2004 Statut Membre Dernière intervention 1 avril 2007
5 nov. 2006 à 12:06
merci j'ai compris
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.

Du même auteur (cs_zeb13)