http://alpha-thema-online.uv.ro

Ad_Infinitum · Administrator

La deschiderea unei conexiuni catre o baza de date cu functia Open()trebuie specificati citiva parametri care depind de tipul bazei de date.

Intii trebuie creat obiectul ADODB.Connection folosind o variabila locala sau globala, iar apoi se poate deschide conexiunea.

Dim conexiune As ADODB.Conection
Set conexiune = New ADODB.Connection
sau
Set conexiune = CreateObject("ADODB.Connection")

sau chiar
Dim conexiune As New ADODB.Conection

Exista citeva diferente intre cele 3 solutii: prima este cea mai rapida pt. ca CLASSID-ul obiectului ("ADODB.Connection") este determinat la compilare si nu mai e nevoie de alte interogari la rularea programului. Varianta a 2-a CLASSID-ul e determinat de fiecare data la rulare (exista si aici niste detalii: data a fost facuta referinta la librarie sau nu, dar nu mai intru in detalii). In ultima varianta la fiecare utilizare a obiectului conexiune o sa trebuiasca sa vada daca a fost deja făcut sau nu, ceea ce adauga citeva teste in plus la fiecare operatiune. Asa ca e recomandata întâia solutie.

Apoi se poate deschide conexiunea:

- Pt. MS Access:
conexiune.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:caledate.mdb;" & _
"User Id=admin;" & _
"Password="

Aici se poate folosi folderul curent in care este tinuta baza de date folosind App.Path (doar ca pt. asta trebuie cel putin salvat proiectul, nu merge pt. proiecte nesalvate):

conexiune.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "date.mdb;" & _
"User Id=admin;" & _
"Password="

- Pt. MS SQL Server:

conexiune.Open "Provider=sqloledb;" & _
"Data Source=xx.yy.zz.uu;" & _
"Initial Catalog=baza_de_date;" & _
"User Id=user_name;" & _
"Password=parola"

Aici pt. MS SQL Server instalat pe acelasi computer puteti folosi in loc de adresa IP (xx.yy.zz.uu) direct "(local)".

- Pt. Visual FoxPro:

conexiune.Open "Provider=vfpoledb;" & _
"Data Source=C:vfp8SamplesDatamyVFPDB.dbc;" & _
"Mode=ReadWrite|Share Deny None;" & _
"Collating Sequence=MACHINE;" & _
"Password=''"

- Pt. Oracle - exista 2 drivere de access - unul de la Microsoft si altul de la Oracle:

conexiune.Open "Provider=msdaora;" & _
"Data Source=MyOracleDB;" & _
"User Id=myUsername;" & _
"Password=myPassword"

sau cel de la Oracle:

conexiune.Open "Provider=OraOLEDB.Oracle;" & _
"Data Source=MyOracleDB;" & _
"User Id=myUsername;" & _
"Password=myPassword"

Pentru o lista completa a metodelor de conectare la diverse baze de date vedeti http://www.carlprothman.net/Default.aspx?tabid=81.

Exista apoi o alta metoda de conectare, des gasita in manuale, insa mai putin folosita in practica: cea folosind DSN (Data ). Intii trebuie sa creati un asa numit DSN cu toti parametrii de conectare din Windows Start -> Settings -> Control Panel -> Administrative Tools -> Data Sources (ODBC). Acolo puteti crea un nou System DSN -> Add unde apoi selectati driverul utilizat si ceilalti parametri. Apoi puteti deschide conexiunea asa, folosind numele conexiunii fabricate (aici 'mySystemDSN', dar folositi altceva mai clar):

conexiune.Open "DSN=mySystemDSN;" & _
"Uid=myUsername;" & _
"Pwd=myPassword"

Cam asta e ce se poate spune in mare despre conectarile la deosebite baze de date.