Re: Daten über ODBC-Datenquellen in Access-DB importieren

Hallo Ingo,

erstmal Danke für den Tip, kann damit aber irgendwie noch nix anfangen :-(
Was meinst Du mit "als Verbindungszeichenfolge" ?

Dim objConn As adodb.Connection
Set objConn = New adodb.Connection
objConn.ConnectionString = "ODBC;"
objConn.Open

funktioniert nicht.

Ich habe anfangs versucht den Access-Dialog über die "Microsoft Access 9.0
Object Library" aufzurufen.
Bis zum Dialog: Datei --> Externe Daten --> Importieren
komme ich aus VB auch, müsste dann aber noch ODBC-Databases auswählen.

Nun habe ich die "Microsoft OLE DB Service Component 1.0 Type Library" für
mich entdeckt.
Damit muss auf dem PC kein Access installiert sein.

mit:
Dim cnt As adodb.Connection
Dim MSDASCObj As MSDASC.DataLinks

Set cnt = New adodb.Connection
Set MSDASCObj = New MSDASC.DataLinks

cnt = MSDASCObj.PromptNew
GetConnnectionStringFromUser = cnt.ConnectionString
cnt.Open

komme ich schonmal in den System-Dialog: "Datenverknüpfungseigenschaften"
und habe danach auch schon eine Connection zur Datenbasis um dann die
Tabellen bzw. Daten weiter zu verwenden (in meinem Fall letztlich in die
interne Access-DB zu importieren).

Was ich jetzt noch automatisieren/voreinstellen muss, ist dass der User
nicht "Microsoft OLE DB Provider for ODBC Drivers" auswählen, auf "Weiter"
klicken, "Verbindungszeichenfolge verwenden" auswählen und "Erstellen"
klicken muss.
Dann kommt nämlich genau der Dialog, den ich brauche bzw. sofort einblenden
möchte.

Gruß,
Marko



> > soll der Anwender für den Import von Daten
> > [...] eine ODBC-Datenquelle auswählen können.
> > Dafür gibt es in Access einen Dialog, in welchem
> > Datenquellen ausgewählt und hinzugefügt werden
> > können,
>
> gib' mal als Verbindungszeichenfolge einfach nur
> "ODBC;" an.


.

Relevant Pages

  • Re: Excel als Recordset
    ... > dim withevents adodb.adoExcelRS as adodb.recordset ... Set cnn = New ADODB.Connection ... Der Connectionstring verweist den Jet-Provider lediglich auf eine DB, ...
    (microsoft.public.de.vb.datenbank)
  • Re: Übergabeproblem cmd.Execute
    ... Dim strTbl As String ... Dim cn As New ADODB.Connection ... Set cn = CurrentProject.Connection ...
    (microsoft.public.de.access.clientserver)
  • Re: Form Schreibgeschützt?
    ... >> Dim cmd As New ADODB.Command ... >> Dim rst as new ADODB.Recordset ... >> End With ... Set cnn = CurrentProject.Connection ...
    (microsoft.public.de.sqlserver)
  • Re: Requery verzögert
    ... Dim dbsDaten As New ADODB.Connection ... Set dbsDaten = New ADODB.Connection ...
    (microsoft.public.de.access)
  • Re: URLs auf Webseiten suchen und in Tabellenblatt eintragen
    ... Hab ein bisschen gegoogelt und mit der Library 'rumgespielt: ... Dim objHTMLDocument As MSHTML.HTMLDocument ... Set objHTMLDocument = Nothing ...
    (microsoft.public.de.excel)