Samo kucas sledece
form1.adodc1.svojstvo
kada budase otkucao "." pojavice ti se padajuci meni sa svim svojstvima i objektim u tom objektu.
form1.adodc1.ConnectionString =
form1.adodc1.CommandType =

itd....

Nismo se razumeli.
Nisam pitao kako da postavim osobine ADODC-a u kodu, nego kako da pri izvrsavanju programa pojavim property pages ADODC-a, pa da manipulisem s njim i pri izvrsavanju ocitam conection string.
Moze li to ?

Pa ako zelis samo da vidis kako izgleda ConnectionString, sto ne probas sa nekom labelom, npr.
label1.caption = adodc1.ConnectionString

Ne znam da li na to mislis, ali imas "stari dobar fazon" sa .udl datotekama; Za to ti moze posluziti i prazna tekstualna datoteka koju otvoris (npr. "konekcija.txt") i kojoj onda promenis ekstenziju u .udl, a u svom kodu postavis za ConnectionString od konekcije npr. "FILE NAME=C:\MyApp\Konekcija.udl". Time si obezbedio da preko sistemskog dijaloga koji ti se nudi pri otvaranju tvog .udl fajla uvek mozes da podesis ConnectionString svojstvo spolja, nezavisno od aplikacije.

Hvala na ideji, pomogla mi je da dodjem do drugog resenja koje sam nasao na intenetu na
www.abstractvb.com

Evo koda sa njega, s tim sto u kodu treba isjkljuciti liniju
dlViewConnection.hWnd = UserDocument.hWnd
na dva mesta.

You will need to add a reference to the Microsoft OLE DB Service Component 1.0 Type Library. (OLEDB32.DLL) This file can be found in your Program Files\Common Files\System\OLE DB directory.

Add this function to your project and pass it a string. If the string is empty it brings up the ADO DB Connection Window in Add mode, if it is not empty it brings it up in edit mode.

Private Function ModifyConnection(ByVal ConnectionString As String) As String
Dim cnTmp As ADODB.Connection
Dim dlViewConnection As MSDASC.DataLinks

On Error GoTo ErrHandler:

If Not (Trim$(ConnectionString) = "") Then
Set cnTmp = New ADODB.Connection
cnTmp.ConnectionString = ConnectionString
Set dlViewConnection = New MSDASC.DataLinks
dlViewConnection.hWnd = UserDocument.hWnd
If dlViewConnection.PromptEdit(cnTmp) Then
ModifyConnection = cnTmp.ConnectionString
Else
ModifyConnection = ConnectionString
End If
Set dlViewConnection = Nothing
Set cnTmp = Nothing
Else
Set dlViewConnection = New MSDASC.DataLinks
dlViewConnection.hWnd = UserDocument.hWnd
Set cnTmp = dlViewConnection.PromptNew
ModifyConnection = cnTmp.ConnectionString
Set dlViewConnection = Nothing
Set cnTmp = Nothing
End If
Exit Function
ErrHandler:
If Err.Number = (-2147217805) Then
cnTmp.ConnectionString = ""
Resume
End If
Set cnTmp = Nothing
Set dlViewConnection = Nothing
End Function

Interesantan i kvalitetan primer, nisam stigao da isprobam, ali ako je OK moze koristiti svima kojima je neophodan dijalog za izmenu parametara konekcije iz same aplikacije. Svidja mi se nacin na koji si resio problem i upornost da dodjes do resenja.

Pozdrav!

E sad je novi problem u pitanju.

Kada se ukljuci OLEDB32.dll u instalaciju, priikom instaliranja, prijavljuje se greska da ne moze da se registruje.
Ignorisanjem, instalacija prolazi. Da li je ovaj dll, sastavni deo operativnih sistema Windows (svih ili samo nekih).
Ako jeste problem je resen.
Ako nije ima li ko ideju ?

Naravno, u pitanju je "standardni dll", a ne "ActiveX dll", a standardni dll ne moze da se registruje, vec je dovoljno da se postavi u sistemski direktorijum. Ako te nervira poruka, izmeni "SETUP.LST" fajl iz instalacije tako sto ces u sekciji "Setup1 files" pronaci red za tvoj OLEDB32.dll i izmeniti ga tako sto ces umesto ",$(DLLSelfRegister),$(Shared)," staviti ", , ," i to je to.