Hente og gemme ting i Access med VB

Hvis du f.eks. skal hente tallet fra linien hvor der står 8 i din kolonne kaj du skrive:

Dim strConn, strSQL As String
Dim objConn As OleDbConnection
Dim objComm As OleDbCommand
Dim objRs As OleDbDataReader

strSQL = "Select DinVærdi FROM tabel WHERE tal = 8;"

ObjConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("stien til din database.MDB") & ";")
ObjComm = New OleDbCommand(strSQL, objConn)
ObjConn.Open()

ObjRs = objComm.ExecuteReader()

While ObjRs.Read()
label.text = ObjRS("DinVærdi")
End While

ObjRs.Close()
objConn.Close()

Jeg har f.eks. lavet denne funktion som benytter en rullemenu.
Dropdown:
<asp:Dropdownlist id="DropDown" runat="server" OnSelectedIndexChanged="HentFraDB" AutoPostBack="true" />

Rullemenu som bliver genereret fra Db (du skal sætte OpretDropdown() i pageLoad):

Function OpretDropdown()
      dim FabrikantogType

      StrSQL = "Select *,(Fabrikant+' '+Type) as FabrikantogType from tabel;"
      ObjConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db/db.MDB") & ";")
      ObjComm = New OleDbCommand(strSQL, objConn)

      ObjConn.Open()

          DropRulleanlaeg.Datasource = objComm.ExecuteReader()
          DropRulleanlaeg.DataValueField = "value"
          DropRulleanlaeg.DataTextField = "FabrikantogType"
          DropRulleanlaeg.Databind()

CloseDB()
End Function

Når brugeren vælger fabrikant og type i dropdown tager den værdien og søger i db.

    Sub HentFraDB (sender As Object, e As EventArgs)
   
    strSQL = "Select * from tabel where Value='" & Dropdown.SelectedItem.Value & "';"
      ObjConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.Mappath("db/db.MDB") & ";")
              ObjComm = New OleDbCommand(strSQL, objConn)
   
              ObjConn.Open()
              ObjRs = objComm.ExecuteReader()
   
              While ObjRs.Read()
                  Txtfabrikant.text = ObjRs("fabrikant")
                  Txttype.text = ObjRs("type")
                  Txtpris.text = ObjRs("pris")
                  Txtfarve..text = ObjRs("farve")
                  TxtStoerrelse..text = ObjRs("Stoerrelse")
              End While
   
              ObjRs.Close()
              objConn.Close()
   
    End Sub

Fik du løst dit problem

Øhh er du faldet i søvn? :-)

Fandt du en løsning eller gav du op?

Du har oprettet 2 spsm, men ikke vendt tilbage på nogen af dem.
Ikke særlig fedt.