Hot News:

Unser Angebot:

  Foren auf CAD.de
  VBasic / vb.net / vbs / wsh
  Geschützte Access DB per VBA öffnen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Online-Kurs: Grundlagen des 3D-Druck-Designs für Industrieingenieure , ein Kurs
Autor Thema:  Geschützte Access DB per VBA öffnen (2829 mal gelesen)
TSch
Mitglied
CAD/PDM Administrator


Sehen Sie sich das Profil von TSch an!   Senden Sie eine Private Message an TSch  Schreiben Sie einen Gästebucheintrag für TSch

Beiträge: 102
Registriert: 26.07.2002

erstellt am: 19. Sep. 2002 17:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hallo Leute !
Habe den Beitrag http://www.cad.de/foren/ubb/Forum110/HTML/000067.shtml
mit Interesse gelesen, allerdings habe ich das Problem in verschärfter Form :
Wir arbeiten mit einer Arbeitsgruppen-Sicherheitsdatei (Unsere.mdw anstelle der Default System.mdw)
Wenn ich die Connection öffnen will, bekomme ich die Meldung :
"Kein zulässiger Kontoname oder kein zulässiges Kennwort"
Kann jemand helfen ?
(Benutzer und Kennwort waren im Code meiner Meinung nach ok,
jedenfalls existieren Sie und man kann sich damit ohne Probleme
an Access anmelden)
Hier der Code :

Const DBDir = "\\fileserver\Datenbanken\Baustelle\TestDB\"
Const ModellDB = "TEST_BACKEND.mdb"
Const ModellDBfullfilename = DBDir & ModellDB
Const SecureDB = "\\fileserver\Datenbanken\DATENBANKEN.MDW"
Const ModellDBStartoptions = "/wrkgrp " & SecureDB

Public Sub DB_verbinden()
Dim DBFullfilename As String
Set conndb = CreateObject("ADODB.Connection")
Set conn_DB = conndb

With conn_DB

ConnStrg = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " &_ DBfullfilename & DBStartoptions
.Open ConnStrg , "UID=Username","PWD=testpass"

End With

Auch wenn ich die mdw nicht angebe, kommt der Fehler...
Ich bin mit meinem Latein am Ende und für jeden Tip dankbar
Gruß
TSch

------------------
Gruß TSch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Falko
Mitglied
Konstrukteur + CAD-Admin


Sehen Sie sich das Profil von Falko an!   Senden Sie eine Private Message an Falko  Schreiben Sie einen Gästebucheintrag für Falko

Beiträge: 688
Registriert: 21.09.2000

Intel Xeon 2x 5620@2.40 GHz
24 GB RAM
2x Nvidia Quatro 4000 2048MB
Creo/ElementsPro 5 (M070) 64Bit
Windchill PDMLink 9.1 (M050)

erstellt am: 10. Jan. 2003 19:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für TSch 10 Unities + Antwort hilfreich

Ich habe jetzt nicht die Lösung parat und gerade auch keine Zeit, aber ist der Zugriff bei Sicherheitslinien identisch wie bei dem mit System-DSN (und danach sieht der Code aus)?

------------------

MfG
Falko Dröge

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2025 CAD.de | Impressum | Datenschutz