Latein am Ende :o) Access 97 / SQL-Server 2000 über ODBC-Verbindung

09/10/2007 - 15:09 von Zollinger, Frank | Report spam
Hallo zusammen,

ich hab da mal ein Problem. Ich versuche Schreib- und Leserechte mit Access
97 als Frontend und SQL-Server 2000 als Backend über eine ODBC-Verknüpfung
zu handeln.
Der Benutzer SelfQuery hat nur Leserechte. Wenn ich mich als Admin einlogge
lösche ich alle Tabellen und erstelle eine neue ODBC-Verbindung mit
"Trusted_Connection=Yes".
Manchmal funktioniert das auch aber meistens ist es Access piep egal welchen
ConnectionSting ich übergebe. Bitte helft mir, ich bin echt am Ende mit
meinem Latein

LG
Frank Zollinger




If CurrentUser = "ADMIN" Then
ConnectString = "ODBC;DRIVER={SQL
Server};SERVER=TUWOK;DATABASE=CTGY;Trusted_Connection=Yes"

Else
ConnectString = "ODBC;DRIVER={SQL
Server};SERVER=TUWOK;DATABASE=CTGY;Trusted_Connection=No;UID=SelfQuery;PWD=selfquery"
End If

On Error Resume Next
DoCmd.DeleteObject acTable, "BA_BinCodeForm"
On Error GoTo ErrorHandler:

Set tbl = CurrentDb.CreateTableDef("BA_BinCodeForm")
tbl.SourceTableName = "BA_BinCodeForm"
tbl.Connect = ConnectString
CurrentDb.TableDefs.Append tbl
CurrentDb.TableDefs.Refresh
 

Lesen sie die antworten

#1 Stefan Dase
09/10/2007 - 15:24 | Warnen spam
Hallo Frank!

ich hab da mal ein Problem. Ich versuche Schreib- und Leserechte mit Access
97 als Frontend und SQL-Server 2000 als Backend über eine ODBC-Verknüpfung
zu handeln.
Der Benutzer SelfQuery hat nur Leserechte. Wenn ich mich als Admin einlogge
lösche ich alle Tabellen und erstelle eine neue ODBC-Verbindung mit
"Trusted_Connection=Yes".
Manchmal funktioniert das auch aber meistens ist es Access piep egal welchen
ConnectionSting ich übergebe. Bitte helft mir, ich bin echt am Ende mit
meinem Latein



Ohne dir jetzt konkret weiterhelfen zu können:
Hast du die Client-Tools des SQL-Servers 2000 bzw. den
ODBC-Datenbanktreiber für den SQL-Servers 2000 auf dem PC installiert?
Ggf. hat es mit dem Versionswechsel einige Änderungen gegeben.

If CurrentUser = "ADMIN" Then
ConnectString = "ODBC;DRIVER={SQL
Server};SERVER=TUWOK;DATABASE=CTGY;Trusted_Connection=Yes"

Else
ConnectString = "ODBC;DRIVER={SQL
Server};SERVER=TUWOK;DATABASE=CTGY;Trusted_Connection=No;UID=SelfQuery;PWD=selfquery"
End If

On Error Resume Next
DoCmd.DeleteObject acTable, "BA_BinCodeForm"
On Error GoTo ErrorHandler:



Hast du mal geprüft, ob die Tabelle wirklich gelöscht wurde? Deine
"Fehlerbehandlung" sagt nàmlich, dass der Code einfach weiter ausgeführt
werden soll.

Set tbl = CurrentDb.CreateTableDef("BA_BinCodeForm")
tbl.SourceTableName = "BA_BinCodeForm"
tbl.Connect = ConnectString
CurrentDb.TableDefs.Append tbl
CurrentDb.TableDefs.Refresh




Ansonsten schaut es gut aus, mache ich auch in einigen Datenbanken so.

Viele Grüße aus Bremen,
Stefan

P.S.: Solcherlei Fragen sind in microsoft.public.de.access.clientserver
besser aufgehoben, weswegen ich mal ein Crossprosting mache.

Ähnliche fragen