Logon (connection) to SQL Server

  • Thread starter Thread starter Guest
  • Start date Start date
Yes, i know that, but let me explain.
I don't want to use default connection(File->connection) from menu.
I want that when my user start application don't get a default logon form,
but my own !
 
zloc said:
Yes, i know that, but let me explain.
I don't want to use default connection(File->connection) from menu.
I want that when my user start application don't get a default logon form,
but my own !
Click to expand...

why not create a login form and then in the button pass the credentials
to the backend using an ADO connection? just pass the username and
password in the connection, and you should be good to go.
 
That is idea but the "currentproject.connection" is read-only property,so it
can't be managed by code. There are few problems :
My SQL Server is stand-alone, not memberserver of some win domain, so i
can't use integrated security.Same time my clients are win-domain members and
unfortunaly i can' create trusty between myserver and win-domain.
So, i take user-account trough api-function and pass it to user-field on a
form
and user just have to type the password.
When you covert from adp to ade and disable full-menu, user can't see
connection from file menu and default logon pop-up. So, HOW to avoid this
?????
 
hi,
Yes, i know that, but let me explain.
I don't want to use default connection(File->connection) from menu.
I want that when my user start application don't get a default logon form,
but my own !
Click to expand...
Put an ADODB.Connection in a normal module:

Private m_Connection As ADODB.Connection

Propert Get MyConnection As ADODB.Connection

If m_Connection Is Nothing Then
Set m_Connection = New ADODB.Connection
' Open your login form to get credentials.
' Use them to build the connection string.
m_Connection.ConnectionString = "some"
End If

End Property

With this connection you can use unbound forms and assign the record
source in the on open event:

Private Sub Form_Open(Cancel As Integer)

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

rs.Open "Your SQL", MyConnection ', other params

Me.Recordset = rs

End Sub

mfG
--> stefan <--
 
Hi Stefan, thanks a lot !
Can you help me with difernt problem.
I put my ADE on share on wich my users has r/w rights, but when firs user
start app,
others get somethink like "another user bla, bla, ..." app will be open
read-only !
I know before, when i created MDE an setup option for openning to "shared",
it was working fine, but in ADP and ADE can't see those options.
Do you know something about ....?
 
hi,
Hi Stefan, thanks a lot !
Can you help me with difernt problem.
I put my ADE on share on wich my users has r/w rights, but when firs user
start app,
others get somethink like "another user bla, bla, ..." app will be open
read-only !
I know before, when i created MDE an setup option for openning to "shared",
it was working fine, but in ADP and ADE can't see those options.
Do you know something about ....?
Click to expand...
No, sorry.


mfG
--> stefan <--
 
Back
Top