Avatar billede evj Nybegynder
20. september 2000 - 23:40 Der er 7 kommentarer og
1 løsning

VBA - ACCES 97

Er det muligt at lave en database connection til acces 97 hvis man bruger Excel 97
og hvordan gør man i VBA ??
kan man bruge SQL til databasen
bagefter ????
Avatar billede nerøs Nybegynder
21. september 2000 - 00:24 #1
Ja, brug DAO. Knyt en reference til DAO 3.5(?). Og så er det ellers bare at gå i gang.
Du kan f.eks oprette recordsets der bygger på SQL

VH Nerøs
Avatar billede evj Nybegynder
21. september 2000 - 07:50 #2
Det kan godt være mig der er lidt dum
man kan du ikke give mig et eksempel i source code ??
Avatar billede privaten Nybegynder
21. september 2000 - 09:03 #3
\' Indsættes fx. som en macro

Sub test()

  Dim conn As ADODB.Connection
  Dim rst As ADODB.Recordset
  Dim varx As Variant

  \'Set Provider
  Set conn = New ADODB.Connection
  conn.Provider = \"Microsoft.JET.OLEDB.3.51\"

  \'Open the database as the Admin User
  conn.Open \"C:\\xxxx.mdb\", \"admin\", \"\"

  \'Load the recordset with data in Categories Table
  Set rst = New ADODB.Recordset

  rst.Open \"Select * from YourTableName\", conn, adOpenDynamic, _
  adLockBatchOptimistic

  \'Loop through the recordset
  Do Until rst.EOF
  Debug.Print rst(1)
  rst.MoveNext
  Loop


End Sub
Avatar billede evj Nybegynder
21. september 2000 - 15:10 #4
Ok jeg har prøvet noget som lignede dette, men jeg får en kompiler fejl
\"User-defined type not defined\"

det sammen sker dem det eksempel som jeg har fået af dig ???
det skal dog lige siges at jeg ALDRIG har prøvet ADO connection\'s før
Avatar billede nerøs Nybegynder
21. september 2000 - 16:24 #5
ADO er ikke stadard i 97. Så brug DAO:

prøv:

Sub HentRecordSet()
    Const strDbNavn = \"STI og Navn på db\"
    Dim db As Database
    Dim rs As Recordset
    Dim strSql As String
   
    strSql = \"Select * from Tabelnavn Osv \"
    Set db = OpenDatabase(strDbNavn)
    Set rs = db.OpenRecordset(strSql)
    ThisWorkbook.Worksheets.Add
    Range(\"a1\").CopyFromRecordset rs
End Sub

du skal tilpasse sti og sql-streng
Husk ref til dao

vh nerøs
Avatar billede evj Nybegynder
21. september 2000 - 18:09 #6
Jer ked af at ? men igen får jeg samme fejl
ved ikke om dette kan hjælpe jer, har Office 97 pro installeret med default. installation er der noget som skal aktiveres ?
eller hvad gør jeg for at få det til at virke
???
Avatar billede nerøs Nybegynder
21. september 2000 - 19:02 #7
Det er fordi excel ikke genkender typerne database og recordset som tilhører DAO

Som standard har excel ikke reference til DAO
I VBA editoren går du ind i tools, øverste menupunkt (refences) og finder:
Microsoft DAO OBJECT LIBRAY, som du krydser af.
Avatar billede evj Nybegynder
21. september 2000 - 19:23 #8
Jeg takker mange gange
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

Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel