VB til access db.

Her lidt VB-kode, der viser hvordan du kan smide en database ind i en VB-variabel, og sende en SQL-sætning af sted til databasen, og loope gennem et recordsæt fra databasen - det kan du sikkert bruge:

  Dim i as Integer
  Dim DB As Database
  Dim strSQL As String 'Din SQL-forespørgsel
  Dim recs As Recordset
 
  strSQL = "SELECT ... bla bla bla"
  Set DB = Workspaces(0).OpenDatabase("C:\Database.mdb")
  Set recs = DB.OpenRecordset(strSQL, dbOpenSnapshot)
 
  'Start loop gennem recordset
  Do While Not recs.EOF
    i = i + 1
    ReDim Preserve lngCDID(i)
    Bla bla - læs. f.eks. recs!Tabelnavn ine i array eller hvad du nu vil
    recs.MoveNext
  Loop
  recs.Close
 
Håber det kan bruges. /Martin

PS. variablen "i" bruges til at tælle antal poster i recs, og kan f.eks. bruges til at dimensionerer et array efter:

Redim Preserve MitArray(i)
MitArray(i-1) = recs!Tabelnavn 'Eller Tabelpostnummer, som det vel bør hedde:)

i mit eksempel ovenfor bruges i ikke til noget...