Нашел код, который выводит окно ввода логина и пароля (стандартного, виндового).
Работает только для RDO.
Как то же реализовать для ADO?
- Код: Выделить всё
Option Explicit
Dim en As rdoEnvironment
Dim rs As rdoResultset
Dim cn As rdoConnection
Private Sub Command1_Click()
Dim strDSN As String, strSQL As String
Set en = rdoCreateEnvironment("", "", "")
en.CursorDriver = rdUseOdbc
strSQL = InputBox("Enter an SQL string:")
On Error Resume Next
Set cn = en.OpenConnection(strDSN)
'Set rs = cn.OpenResultset(strSQL, rdOpenKeyset, rdConcurRowVer)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
cn.Close
en.Close
End Sub