Avatar billede herman01753 Nybegynder
07. oktober 2003 - 15:45 Der er 3 kommentarer og
1 løsning

indsættelse af data i dropdownlist fra database i ASP.NET VB

Jeg arbejder i Visual Studio .NET med at lave en lille hjemmeside. i en database tabel ved navn "STATE" i en database: "FPA" har jeg mine data stående. data fra attributen "Name" vil jeg gerne have over i min dropdownlist
Jeg har en ide om at det skal se sådan her ud, men kan ikke få det til at virke. er der nogen som har ideer?
koden er  fra min webform.aspx.vb
********
  Dim myConnection As New SqlConnection("server=FPA;uid=FPA;pwd=;database=FPA")
        Dim myCommand As New SqlDataAdapter("select name from state where active =1", myConnection)
        Dim DS As DataSet
        DS = New DataSet()
        myCommand.Fill(DS, "name")
        State.DataSource = DS
        State.DataMember = "name"
        State.DataBind()


**********

er der nogen som har en ide til hvordan jeg kommer videre?
Avatar billede lauge Nybegynder
07. oktober 2003 - 15:53 #1
Avatar billede herman01753 Nybegynder
07. oktober 2003 - 15:57 #2
det er sådan set der jeg har min stump kode fra, men det virker ikke. det er derfor jeg poster her :)
Avatar billede herman01753 Nybegynder
07. oktober 2003 - 16:14 #3
fandt løsning på en anden hjemmeside. her er den hvis andre skal bruge den
***************


Dim myconnection As New SqlClient.SqlConnection("Server=localhost;uid=sa;password=;database=northwind;")

Dim myda As New SqlClient.SqlDataAdapter("Select * from tb_USA", myconnection)

Dim ds As New DataSet()

myda.Fill(ds, "tb_USA")

myda.SelectCommand.CommandText = "Select * from tb_India"

myda.Fill(ds, "tb_India")

Dim i, j As Integer

Dim dc As DataColumn

Dim mystrval As String

Dim dt As DataTable

Dim dr As DataRow

For Each dt In ds.Tables

              For i = 0 To dt.Rows.Count - 1

                        For Each dc In dt.Columns

                                Select Case dc.ColumnName

                                    Case "tb_USA_City"

                                        mystrval = mystrval & dt.Rows(i)(dc.ColumnName).ToString

                                    Case "tb_India_City"

                                        mystrval = mystrval & dt.Rows(i)(dc.ColumnName).ToString

                                End Select

                        Next

                      DropDownList1.Items.Add(mystrval)

                      mystrval = "" 

              Next

Next
Avatar billede odegaard Nybegynder
07. oktober 2003 - 20:18 #4
Til en anden gang, så skriv lige hvad det er der ikke virker :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester