liste tabel og kolonne navne

Hmm... jeg forstår ik' rigtig dit spørgsmål... Men kan det være noget med at du vil benytte dig af recordsettes array?

Hvis nu vi siger at objRs er dit Recordset, kan du gøre som følgende:

MsgBox(objRs(0))
MsgBox(objRs(1))
osv.

//>Rune

lad mig spørge på en anden måde... hvordan finder jeg ud af hvilke tabeller og hvilke fields der er i en database via VB kode

det var ikke det jeg ledte efter sorry

Hmm... Du kan fx. finde ud af hvor mange kolonner der er ved at skrive MsgBox(UBound(objRs()) -1)

Det andet tror jeg ikke er muligt :-(
//>Rune

okay.. det var da kedeligt... kan man så få en error kode hvis en tabel ikke existerer så brugeren ikke får en fejl

Ja, du kan jo bruge:
On Error Resume Next

//>Rune

øhm... den er ny for mig... kan du give et eksempel på hvordan den skal bruges... kan man bruge den sådan at hvis den laver en fejl så gør den noget andet kode

Så godt er jeg ikke inde i VB, men et eksempel på On Error Resume Next kunne fx. være at du kørte et recordset igennem og der var et recordset som var ugyldigt...

While objRs.EOF
On Error Resume Next
MsgBox(objRs("navn"))
objRs.MoveNext()
Wend

//>Rune

-Men du kan jo læse en masse om det inde på www.msdn.microsoft.com

//>Rune

ja jeg har fået en ide til hvordan jeg løser problemet... bruger on error goto fejlbehandling eller whatever.. men tak for hjælpen.

jeg synes msdn er meget uoverskuelig på nogen punkter..

syntes jeg nu oxo, men der står noget godt information på den (når man har fundet det man ledte efter)

Thx 4 Poinz
//>Rune

var så lidt... msdn er ligesom for fyldig.. lidt som at lede efter en nål i en høstak ;) nå men gonat.. jeg vil få lidt søvn

Fair nok.. :-)
Hvis du vil have det mere overskueligt kunne du jo investere i MSDN Biblioteket. Der er det bare at søge under "Error" og så kommer hele mulivitten! -Det koster dog..!

//>Rune

Sunep>>

Nu er det hele jo overstået, men skulle du ikke opdage det så brug ikke 'On error resume next' så fortsætter afviklingen umiddelbart og er der mere end én fejl går programmet sandsynligvis i stå.

Du skal skrive noget som - bare et eksempel:

On error goto filmangler
  Open c:\datafiler\mine.dat for input as #7
    Do while....  (ikke for access-tabeller!)


  exit sub

filmangler:
  x=msgbox("Filen mine.dat findes ikke",16,"Medd. fra læsning af datafil")
exit sub
Resume Next
End sub


M.v.h.  Jørn

yep joern... var osse det jeg havde fundet ud af men tak for hjælpen