hallo,
zu Problem 1: ich denke mal, dass man den Fehler so ungefähr abfangen könnte (für Verbesserungsvorschläge bzw. Korrekturen bin ich natürlich offen)
Code:
On Error Goto Fehler
'...hier der Code mit Recordset usw.
Fehler:
If Err.Number = ### Then ' ### = Fehlercode
'...Direkt von Excel
End If
zu Problem 2: ich habe mal so etwas in ASP geschrieben (bzw. begonnen zu schreiben) Die Sache heißt ADOX. Vielleicht gibts aber auch eine bequemere Möglichkeit, das weiß ich aber nicht.
Code:
Set cat = CreateObject("ADOX.Catalog")
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Pfad & DBname)
If Err.Number = 0 Then Msgbox "Datenbank erstellt"