VB6 ---> ADO Access

[Sonnenritter]

heyho

hab hier a kleines prob, und weiss grad nich, wie ich weitermachen soll

(bin grad was verpeilt )

und zwar

soll ich mit VB über ADO ne verbindung zu ner AccessMDB herstellen

und dort ne Tabelle anlegen und diese dann auch füllen

diese Tbl wird öfters benutzt, daher dann folgende frage

wie mach ich das, das er sieht, dass die tabelle schon vorhanden ist?

bisher krieg ich nur immer fehlermeldung, dass tbl scho da ist, bzw. wenn ich rs.source auf tbl leg, und die nich da is, das halt keine da ist

wär nett, wenn einer was wüsste

[Leominora]

Probier mal:

Dim RS as ADODB.Recordset

Dim CNN as ADODB.Connection

Dim bTabelle as Boolean

' Datenbank öffnen...

Set RS = CNN.OpenSchema(adSchemaTables)

bTabelle = False

Do Until RS.EOF

If RS!TABLE_NAME = "Tabellenname" Then

bTabelle = True

Exit Do

End If

RS.MoveNext

Loop

RS.Close

If bTabelle= False then

'Tabelle nicht vorhanden!

End If

[Sonnenritter]

geilomat

klappt

Danke dir vielmals

*freu*

[Sonnenritter]

Frage noch:

gibt es irgendwo ne seite mit allen oder zumindest den meisten befehlen wie z.B. obiges

RS!Table_name

?

such grad was, womit ich herausfinden kann, ob ne komplette database vorhanden ist

nich in Access, jedoch in MySQL, via VB und ADO und so

thx

[Leominora]

warum schaust du nicht in der Hilfe nach? :D

die ist echt super!

ansonsten bei ms, oder auf allen möglichen VB-Seiten.... oder Fragen

:D

kann aber erst morgen Antwort geben, hab hier kein Beispiel parat.

[Leominora]

filespec wäre der Pfad der Datenbank...

zB: c:\me.mdb

Private bvorhanden as Boolean

Function ReportFileStatus(filespec)

Dim fso, msg

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(filespec)) Then

bvorhanden = True

Else

bvorhanden = False

End If

End Function