/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Adgang til Access
Fra : Kim Rex Bengtsson


Dato : 08-01-03 13:02

Hej

Er der nogen der kan give et link eller eksempel på hvordan man fra vba til
word kan komme i kontakt med en access database og laver en forspørgelse.

tak




 
 
Dr. G (08-01-2003)
Kommentar
Fra : Dr. G


Dato : 08-01-03 14:06

Hej Kim !

Sådan har jeg gjort


Dim rst As Recordset
Dim sql As String
Dim RstNum As Integer
Dim db As Database
Dim Temp_User

Set db = OpenDatabase(Name:="C:\Stamdata.mdb")

sql = "SELECT * FROM Kunder"

Set rst = db.OpenRecordset(sql)

While Not rst.EOF()

rst.MoveLast
RstNum = rst.RecordCount - 1
rst.MoveFirst

ReDim KundeNrArray(RstNum)

For X = 0 To RstNum

KundeNrArray(X) = rst!Kundenummer

rst.MoveNext

Next X

Wend
rst.Close
db.Close
Set db = Nothing

Kunder.List() = KundeNrArray


Her sætter den så en listbox op med kundenumre i.

Håber det kan bruges.

Jeg bruger Microsoft DAO 3.51


"Kim Rex Bengtsson" <KB@braedstrup.dk> skrev i en meddelelse
news:avh40p$82h$1@sunsite.dk...
> Hej
>
> Er der nogen der kan give et link eller eksempel på hvordan man fra vba
til
> word kan komme i kontakt med en access database og laver en forspørgelse.
>
> tak
>
>
>



Jens Vestergaard (08-01-2003)
Kommentar
Fra : Jens Vestergaard


Dato : 08-01-03 14:17

"Dr. G" <ncg@post10.tele.dk> skrev i en meddelelse
news:3e1c23d7$0$71605$edfadb0f@dread11.news.tele.dk...
> Hej Kim !
>
> Sådan har jeg gjort

[SNIP kode]

> Jeg bruger Microsoft DAO 3.51

Husk, at hvis det er en Access 2000 database, skal man brige DAO 3.6

--
mvh
Jens Vestergaard
www.railsoft.dk
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408879
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste