ODBC i uciążliwe pytania o hasło podczas importu z MSSQL do MSAccessa

Thread View: pl.comp.lang.vbasic

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Miecio Wed, 02 Jun 2010 13:28

#104651

Author: Miecio
Date: Wed, 02 Jun 2010 13:28

27 lines
2422 bytes

Witam,
Jestem początkujący w VBA.

Opis problemu:
Mam w Accessie tabele podlinkowane do kilku baz MS_SQL'owych /podpięte
przez ODBC/.
Następnie w VBA robię czyszczenie tabel Accessowych i do nich insert
na podstawie selectów z w/w tabel podlinkowanych.
Wszystko chodzi problem mój jest taki że "ciągnę" dane z 15 baz MS
Sql'owych i przy każdym pierwszym select z kolejnej bazy pyta mnie o
hasło na bazę MSSQL. Więc końcowo muszę wpisać w całym procesie 15
razy hasło użytkownika MS_SQL, co jest dla mnie uciążliwe.

W ciągu dnia kiedy robię kolejny import danych hasła juz nie muszę
wpisywać bo sobie to ODBC trzyma gdzieś hasło w buforze.

PS. Aha dodam że jak robiłem zakładanie tabel linkowych na ODBC (też
skryptem VBA bo to 400 tabel :(  ) wpisywałem w definicje zarówno
użytkownika jak i hasło ale chyba nigdzie tego nie trzyma.

Więc czy da się zrobić przed ładowaniem danych - zrobienie jakiegoś
refresh'a na ODBC do tych 15 baz wskazując użytkownika i hasło ?
Prośba żeby nie rzucić tylko hasła na zasadzie komenda tylko komenda z
opisem parametrów - w końcu się uczę... :)

Z góry dzięki za pomoc.
Mój problem

Re: ODBC i uciążliwe pytania o hasło podczas importu z MSSQL do MSAccessa

#104652

Author: Jacek
Date: Wed, 02 Jun 2010 14:49

28 lines
1580 bytes

Utworz tabele o nazwie Tabele, a w niej pole Tabela i tam umiesc nazwy
tabel do polaczenia.


Sub PolaczTabele()

Dim db As Database
Dim tb As TableDef
Dim Serwer As String, Uzytkownik As String, Haslo As String

Uzytkownik = "sa"
Haslo = "haslo"
Baza = "Baza"
Set db = CurrentDb

Dim f As DAO.Recordset
Set f = CurrentDb.OpenRecordset("Tabele")
f.MoveFirst
While Not f.EOF()
    Set tb = db.TableDefs(f.Fields("Tabela"))
    tb.Connect = "ODBC;DRIVER=SQL Server;SERVER=" & Serwer & 		
";UID=Uzytkownik;PWD=" & Haslo & ";DATABASE=" & Baza
    tb.RefreshLink
    f.MoveNext
Wend

f.Close
End Sub

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads