Avatar billede alleslev Nybegynder
16. januar 2004 - 10:48 Der er 10 kommentarer og
1 løsning

Lave table som henter alle påsterne fra en acces db

Hej

Kan man i vb 6.0 lave en tabel som viser alle poster fra en acces database den skla bare ligne en excel eller acces tabel

eks vis med 3 kolonner som så henter data fra de tre kolonner i databasen og looper dem så alle poster vises.

hvordan gør man og hvad hedder det tabel komponent man skla bruge....

når det så er gjordt og vi fotstiller os at kolonne 3 indeholder udelukkende tal kan man så for lagt alle de tal sammen så det samlede beløb af de tal der står i kolonne tre står nede i bunden uden for tabellen.

Håber i forstår og kan hjælpe.
Avatar billede medions Nybegynder
16. januar 2004 - 10:50 #1
'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

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

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tabel"
    Set objRs = objConn.Execute (strSQL)

    listBox.Add(objRs("navn"))

    objConn.Close

//>Rune
Avatar billede alleslev Nybegynder
16. januar 2004 - 10:54 #2
OK efter hvad jeg lige kna forstå ud af din kode viser den da kun en kolonne hvor den viser data fra feltet "Navn" i en list box....
Avatar billede medions Nybegynder
16. januar 2004 - 10:57 #3
Præcist! -er det ik' oxo det du vil ha'?

-Ellers kan du jo bare gøre sådan her:

listBox.Add(objRs("navn") & " " & objRs("Efternavn"))

osv.

//>Rune
Avatar billede alleslev Nybegynder
16. januar 2004 - 11:11 #4
OK så skulle dette altså udskrive to kolonner men jeg får altså fejl:

Private Sub form_load()
Dim objConn As New Connection
    Dim objRs As Recordset
    Dim strSQL As String
  Function Connection()
      objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db.mdb"
  End Function
 
  Connection
    strSQL = "SELECT * FROM tabel"
    Set objRs = objConn.Execute(strSQL)

    List1.Add (objRs("tekst") & " " & objRs("tekst2"))


    objConn.Close

End Sub

Fejl:
Compile error

expected end dub
Avatar billede alleslev Nybegynder
16. januar 2004 - 11:13 #5
det der data opject du nævner i toppen hvor kommer det ind i billedet i den her sammenjæng + jeg kan ikke finde det i listen over min componenter
Avatar billede martin_moth Mester
16. januar 2004 - 11:13 #6
Det tror jeg ikke på - der står ikke:
  expected end dub
der står:
  expected End Sub

Så smid en End Sub ind i enden af din sib
Avatar billede medions Nybegynder
16. januar 2004 - 11:13 #7
Dim objConn As New Connection
    Dim objRs As Recordset
    Dim strSQL As String
  Function Connection()
      objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db.mdb"
  End Function

Private Sub form_load() 
  Connection()
    strSQL = "SELECT * FROM tabel"
    Set objRs = objConn.Execute(strSQL)

    List1.Add (objRs("tekst") & " " & objRs("tekst2"))

    objConn.Close

End Sub

//>Rune
Avatar billede medions Nybegynder
16. januar 2004 - 11:14 #8
Uha, jeg kan ikke huske hvor det er de er, men det er oppe i menulinjen, og mener det er under Edit de står, og så Add Components

//>Rune
Avatar billede martin_moth Mester
16. januar 2004 - 11:14 #9
Nu kikker jeg lige på din kode - det er da en værre gang rod.
Smid din function UD af Form_Load, og så spiller det!
Avatar billede alleslev Nybegynder
16. januar 2004 - 11:21 #10
jep ved det godt men det er der altså ikke, ikke det du nævner...er det det der gør at man kan anvende SQL sprog til at databasen?
Avatar billede martin_moth Mester
16. januar 2004 - 18:47 #11
Så er der garanteret en anden version end 2.5. Bare tag en anden version
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