IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

dropdownlist et base de donnee


Sujet :

VB.NET

  1. #1
    Membre confirmé
    Inscrit en
    Mars 2007
    Messages
    107
    Détails du profil
    Informations forums :
    Inscription : Mars 2007
    Messages : 107
    Par défaut dropdownlist et base de donnee
    Bonjour,

    Dans ma base de donnee j'ai deux tables tr1(id, name) et tr2(id, serialnb)
    j'ai deux dropdownlist drop1 et drop2

    dans page_load je charge drop1 (name de la table tr1)
    je veux quand je selectionne le nom de drop 1 drop2 m'affichie le "serialnb" correspondant !

    voici mon code
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Page.IsPostBack = False Then
    Dim conn As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=jijo;Integrated Security=True")
    conn.Open()
    Dim comm As Data.SqlClient.SqlCommand = New Data.SqlClient.SqlCommand("select course_id, course_name from tr1", conn)
    Dim da As SqlDataAdapter = New SqlDataAdapter(comm)
    Dim ss As DataSet = New DataSet()
    da.Fill(ss, "tr1")
    dd1 = ss.Tables("tr1")
    If (dd1.Rows.Count > 0) Then
    For i As Integer = 0 To (dd1.Rows.Count - 1)
    drop1.Items.Add(dd1.Rows(i)(1).ToString())
    Next
    End If
    End If
    End Sub

    Protected Sub ddl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddl1.SelectedIndexChanged
    Dim conn As Data.SqlClient.SqlConnection = New Data.SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=jijo;Integrated Security=True")

    For i As Integer = 0 To (dd1.Rows.Count - 1)
    If dd1.Rows(i)(1).ToString().Equals(drop1.SelectedValue) Then
    x = Integer.Parse(dd1.Rows(i)(0).ToString)
    MsgBox(x)
    End If
    Next

    Dim comm1 As Data.SqlClient.SqlCommand = New Data.SqlClient.SqlCommand("select course_serial from tr2 where course_id=" & x, conn)
    Dim ds1 As SqlDataAdapter = New SqlDataAdapter(comm1)
    Dim sy1 As DataSet = New DataSet()
    ds1.Fill(sy1, "tr2")
    dd2 = sy1.Tables("tr2")
    For j As Integer = 0 To (dd2.Rows.Count - 1)
    drop2.Items.Add(dd2.Rows(j)(0).ToString())
    Next

    End Sub
    quand je compile rien ne se passe au niveau de drop2 !!
    j'ai bien declare dd1 et dd2 public

  2. #2
    Membre expérimenté
    Inscrit en
    Novembre 2006
    Messages
    337
    Détails du profil
    Informations forums :
    Inscription : Novembre 2006
    Messages : 337
    Par défaut
    Question conception, dans tes tables le id sont identiques ??, exemple :

    table 1:
    1 test
    2 valeur
    3 boubounne
    4 salut

    table 2 :
    1 25
    2 654
    3 2164
    4 3217

    et bien sur le serialnb de boubounne est 2164....

    l'autre question est :
    pourquoi faire une dropdownlist pour un simple affichage??

Discussions similaires

  1. taille maximale d'une base de donnée paradox
    Par Anonymous dans le forum Paradox
    Réponses: 5
    Dernier message: 14/02/2004, 17h39
  2. Proprietes du fichier de base de donnees
    Par Mouse dans le forum MS SQL Server
    Réponses: 2
    Dernier message: 26/03/2003, 15h14
  3. [sgbd] Accès au base de données en Perl
    Par totox17 dans le forum SGBD
    Réponses: 3
    Dernier message: 24/02/2003, 16h05
  4. [VB6] [Access] Compacter une base de donnée
    Par mdoyer dans le forum VB 6 et antérieur
    Réponses: 11
    Dernier message: 24/09/2002, 11h33
  5. [VB6] [ODBC] Référencer une base de données avec vb
    Par af.balog dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 13/09/2002, 09h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo