Visual Basic

Dave Kreskowiak wrote:

I can't figure out what your ComboBox scenario is!!

Let's see... Are you saying that you have a ComboBox bound to a table that has a list of Names in it? The user picks a Name, then another ComboBox is supposed to fill with some other information, based on the Name picked??

cgai:

I am using VB.NET 2005 and WinForms. I have a bound (dropdownlist) ComboBox who's selection list is based on another field (City) on the Form. The Combo part is a 1-field query (strName) and I am storing the exact same strName field in the database. My selection list is working OK.

Private Sub Form_Load(blah, blah) blah...
    RefreshServerList()
End Sub
.
.
Private Sub Button1_Click(blah, blah) blah...
    RefreshServerList()
End Sub
.
.
Private Function GetSqlServers() As String()
    Dim Servers As String()
    ' Build your list of Sql Servers...
    Return Servers
End Sub
.
.
Private Sub RefreshServerList()
    Dim s As String() = GetSqlServers()
    ListBox1.DataSource = s
End Sub

Dim myData As New DataSet
myData.ReadXml(filepath)

< ?xml version = '1.0'?>
< PAGE>
   < DATA>
      < DATA>
         < seance i_seance="218765344" d_date="20060919" d_debut="13:30" d_fin="15:00" d_jour="mardi" n_semaine="38" type_seance="Enseignement">
            < x_remarques>Groupe A non bilingue et B</x_remarques>
            < ressource type="enseignant" libelle="MR X"/>
            < ressource type="volee" libelle="Information documentaire, 2006-2007, S1"/>
            < ressource type="matiere" code="7612F" libelle="Sociologie des organisations (Cours)"/>
            < ressource type="classe" libelle="ID1B"/>
            < ressource type="classe" libelle="ID1A Non bilingue"/>
            < ressource type="espace" libelle="C101"/>
         < /seance>
         < seance i_seance="218766590" d_date="20060919" d_debut="15:15" d_fin="16:45" d_jour="mardi" n_semaine="38" type_seance="Enseignement">
            < x_remarques>Groupes A non bilingue et B</x_remarques>
            < ressource type="enseignant" libelle="MR A"/>
            < ressource type="enseignant" libelle="MR B"/>
            < ressource type="volee" libelle="Information documentaire, 2006-2007, S1"/>
            < ressource type="matiere" code="7113F" libelle="Introduction � l&apos;archivistique (Cours)"/>
            < ressource type="classe" libelle="ID1B"/>
            < ressource type="classe" libelle="ID1A Non bilingue"/>
            < ressource type="espace" libelle="C101"/>
         < /seance>
      < /DATA>
   < /DATA>
< /PAGE>

Sub Main()
        Dim myData As New DataSet
        Dim mDataRow, mdr As DataRow

        myData.ReadXml("test.xml")

        For Each mDataRow In myData.Tables(1).Rows
            System.Console.WriteLine("date : " & mDataRow("d_date"))
            System.Console.WriteLine("Heure début : " & mDataRow("d_debut"))
            System.Console.WriteLine("Heure fin : " & mDataRow("d_fin"))
            System.Console.WriteLine("Jour : " & mDataRow("d_jour"))
            System.Console.WriteLine("Type Séance : " & mDataRow("type_seance"))
            For Each mdr In myData.Tables(2).Rows
                System.Console.WriteLine(mdr(1) & " : " & mdr(2))
            Next
        Next
        System.Console.ReadLine()
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim dirname As String = DateTime.Now.ToString("MM_dd_yyyy_hh_mm_ss") & "\"
    StatusLabel.Text = "Please wait..."
    Application.DoEvents()
    CreateBackUpFolder(GlobalVariables.backupfolder, dirname)
    CreateZip(GlobalVariables.sourcefolder, GlobalVariables.backupfolder & dirname & GlobalVariables.backupfile) 
    .
    .
    .

Private Sub UpdateStatusUI(ByVal message As String)
    StatusLabel.Text = message
    Application.DoEvents()
End Sub