Avatar billede jgni Nybegynder
23. september 2002 - 02:16 Der er 14 kommentarer og
1 løsning

Access + SQL i VB

Jeg har en Access DB med en tabel der hedder Hardware. I den er der en masse poster om hardware i. En af 'søjlerne' hedder f.eks IP og alle posternes IP vil jeg gerne trække ud og vise på skærmen i en ..... ja, hvad der nu er smartest ?
Textbox, listbox....what ever...

Det er vel så egentlig sætningen SELECT IP FROM Hardware jeg skal bruge ? Men jeg kan kun få en post ind af gangen, og der bruger jeg den der Data-dims og angiver Data-source og Field.

Men nu vil jeg gerne have alle posternes IP.
Anyone ?
Avatar billede tubber Juniormester
23. september 2002 - 02:24 #1
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\dataopsamling.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Software")
rs.MoveFirst
Do While rs.EOF = False
            List1.AddItem rs!IP
    End If
rs.MoveNext
Loop
Avatar billede tubber Juniormester
23. september 2002 - 02:24 #2
skulle være svar....
Avatar billede medions Nybegynder
23. september 2002 - 07:36 #3
'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

    Dim Conn As New Connection
    Dim rs As Recordset
    Dim strSQL As String
   
  Function Connection()
      Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tabel"
    Set rs = Conn.Execute (strSQL)

  While Not rs.EOF
    List1.AddItem rs("navn")
  rs.MoveNext()
  Wend

    Conn.Close

//>Rune
Avatar billede tubber Juniormester
23. september 2002 - 15:26 #4
medions: Er det mig eller skriver du bare det samme som mig ? hehe
Avatar billede medions Nybegynder
23. september 2002 - 15:35 #5
tubber> Min er jo en anden connection ;o)

//>Rune
Avatar billede tubber Juniormester
23. september 2002 - 15:41 #6
hehe nej :O)

Det er den samme har bare ikke skrevet connection med da han brugte den jeg gav ham i andet spg. så valgte ikke at skrive den med :O)

/Tubber
Avatar billede jgni Nybegynder
23. september 2002 - 16:12 #7
Rolig nu :)

Jeg kan sikkert bruge al den hjælp jeg kan få :)

Kigger på det om 30-45 minutters tid...
Avatar billede tubber Juniormester
23. september 2002 - 16:25 #8
Jeg er helt rolig spurgte bare om det ikke var det samme :O))
Avatar billede jgni Nybegynder
23. september 2002 - 19:11 #9
I Form_Load ?

    Dim Conn As New Connection
    Dim rs As Recordset
    Dim strSQL As String
   
  Function Connection()
      Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function
Avatar billede tubber Juniormester
23. september 2002 - 19:18 #10
Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\data.mdb")
Set rs = db.OpenRecordset("SELECT * FROM data1")
If Not rs.EOF Then
    rs.MoveFirst
    Do While Not rs.EOF
        List1.AddItem rs!IP
        rs.MoveNext
    Loop
End If
End Sub
Avatar billede tubber Juniormester
23. september 2002 - 19:19 #11
selvfølgelig :
dataopsamling.mdb = data.mdb
Software = Data1
Avatar billede jgni Nybegynder
23. september 2002 - 19:31 #12
Tubber : Det 2 sidste indlæg du skrev her, skal de puttes i en listbox ?

Hvis jeg skal skrive noget yderligere andre steder vil du så ikke gerne skrive hvad og hvor ?

Det du har skrevet har jeg stående i en listbox nu, der kompiler fint uden fejl, den viser bare ikke noget :(
Avatar billede jgni Nybegynder
23. september 2002 - 19:38 #13
Vupti !
Nu kom det søreme :)

Tjekker det lige ordentligt igennem og gover point.
Avatar billede medions Nybegynder
23. september 2002 - 22:40 #14
tubber> LoL fair nok ;o)

//>Rune
Avatar billede jgni Nybegynder
23. september 2002 - 22:42 #15
:)
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
Kurser inden for grundlæggende programmering

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