Database forbinelse

endnu ingen svar givet...

Du kunne jo evt. sige hvad det er du mangler hjælp til

samme som spm http://www.eksperten.dk/spm/525831 :

har en knap og en listbox.. det den skal er at når jeg trykker på knappen så skal den hente noget ud fra en access database som jeg har lavet.... jeg har oprette connection til databasen..

(i .NET)

Og hvad er det problemet er? Hvad har du af kode? Hvad fejl får du?

kan finde ud af at sætte data ind i databasen som dette:

OleDbConnection1.Open()

Dim ins As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand("INSERT INTO tbl_type VALUES ('test')", OleDbConnection1)

ins.ExecuteNonQuery()
OleDbConnection1.Close()

i gamle VB ville jeg lave et recordset og i en løkke smide data'en ind i listboxen. ved bare ikke hvordan i .NEt

Okay så dit problem er at få data ud igen :)

Så kan jeg da hurtigt hjælpe:
Dim _comm As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand("INSERT INTO tbl_type VALUES ('test')", OleDbConnection1)
Dim reader as System.Data.OleDb.OleDbCommand.OleDbDataReader
OleDbConnection1.open
reader = _comm.executereader
while reader.read()
  'indsæt dine data i listen - her indsættes fornavnet i listen
  listbox.items.add(reader.item("fornavn"))
Next
OleDbConnection1.close

oki prøver det lige af, thx

for at få det til at virke har jeg lavet lidt óm:
        Dim _comm As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand("SELECT * form tbl_type", OleDbConnection1)
        Dim reader As System.Data.OleDb.OleDbDataReader
        OleDbConnection1.Open()
        reader = _comm.ExecuteReader
        Do While reader.Read()
            ListBox1.Items.Add(reader.Item("type"))
            next
        Loop
        OleDbConnection1.Close()

den siger der er fejl i next: 'Next' must be preceded by a matching 'For'.

Sorry - skal selvfølgelig være:
Try
        Dim _comm As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand("SELECT * form tbl_type", OleDbConnection1)
        Dim reader As System.Data.OleDb.OleDbDataReader
        OleDbConnection1.Open()
        reader = _comm.ExecuteReader
        Do While reader.Read()
            ListBox1.Items.Add(reader.Item("type"))
            next
        End While
catch ex as Exceprion
    'Behandl fejl
Finally
    if OleDbConnection1.Stare <> ConnectionState.Closed Then
              OleDbConnection1.Close()
    end if
End Try

oki prøver det af :)

Hvor´n gik det ?

ye fik det til at virke, kast et svar :)

Kaster med alt jeg har :)

thx