Access för newbies

5 svar · 216 visningar · startad av nkrantz 18 mars 2003

nkrantzMedlem sedan apr. 2002830 inlägg

Frågan18 mars 2003 20:17#1

Hej!

Sitter med en Accessdatabas för första gången. Är inne i VBA och knådar lite kod. Vill nu att detta VB script som jag håller på med skall hämta data från databasen

Jag hittar ingenstans hur man gör!

Här är min lilla kod so far:

Private Sub LoggaIn_Knapp_Click()
    Dim rs As Recordset
    Dim db As Database
    
    Set db = CurrentDb()
    *** Set rs = db.OpenRecordset("SELECT fornamn FROM personal WHERE personal_id=1")
    
    MsgBox (Me!anvandare)
    MsgBox ("Om allt går vägen så tänds flikarna upp")
    
    ' Borde göra en loop av ngt slag som tänder upp flikarna.
    ' Ta reda på hur man räknar antalet flikar!
    
    Forms("index").Controls("tabs").Pages("tab_forsaljning").Visible = True
    Forms("index").Controls("tabs").Pages("tab_personal").Visible = True
    Forms("index").Controls("tabs").Pages("tab_internbeställning").Visible = True
    Forms("index").Controls("tabs").Pages("tab_varuattribut").Visible = True
    Forms("index").Controls("tabs").Pages("tab_leverantör").Visible = True
End Sub

Får felmeddelandet inkompabila typer eller något liknande på raden som är markerad ***

Tacksam för _snabba_ svar!

nkrantzMedlem sedan apr. 2002830 inlägg

18 mars 2003 20:30#2

det löste sig, dimmade mina variabler i början så här:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qd As DAO.QueryDef

Engine^Medlem sedan dec. 20003 887 inlägg

19 mars 2003 11:00#3

Istället för att använda dig av DAO föreslår jag att du kör med ADODB...

Private Sub LoggaIn_Knapp_Click()
    Dim rs As New ADODB.Recordset
    Dim cnn As New ADODB.Connection

    Set cnn = CurrentProject.Connection
    Set rs = cnn.Execute("SELECT fornamn FROM personal WHERE personal_id=1")
    
    MsgBox (Me!anvandare)
    MsgBox ("Om allt går vägen så tänds flikarna upp")
    
    ' Borde göra en loop av ngt slag som tänder upp flikarna.
    ' Ta reda på hur man räknar antalet flikar!
    
    Forms("index").Controls("tabs").Pages("tab_forsaljning").Visible = True
    Forms("index").Controls("tabs").Pages("tab_personal").Visible = True
    Forms("index").Controls("tabs").Pages("tab_internbeställning").Visible = True
    Forms("index").Controls("tabs").Pages("tab_varuattribut").Visible = True
    Forms("index").Controls("tabs").Pages("tab_leverantör").Visible = True

   Set cnn = Nothing
   Set rs = Nothing
End Sub

nkrantzMedlem sedan apr. 2002830 inlägg

19 mars 2003 11:06#4

Okej, det kan nog funka det också! Varför bör jag köra med ADODB istället för DAO? Nyfiken...

Engine^Medlem sedan dec. 20003 887 inlägg

19 mars 2003 11:07#5

Nyare, bättre snabbare ;)

nkrantzMedlem sedan apr. 2002830 inlägg

19 mars 2003 11:20#6

låter som något jag skulle behöva ;) Tack!