Excel пользовательская форма подключения к таблице доступа - PullRequest
Новая
       6

Excel пользовательская форма подключения к таблице доступа

0 голосов
/ 21 октября 2018

Я пытаюсь подключить пользовательскую форму с таблицей MS Access (3 столбца FullName, UserName, Password), поэтому, когда пользователь (в пользовательской форме Excel) вводит имя пользователя и пароль, и обе таблицы MS Access верны, пользователи Excel получают полное имя FullName.Любые идеи /?

Основной код ниже без подключения к UseForm. 

Const ConStrAccess As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Desktop\Test2.mdb;Persist Security Info=False;"
Sub CopyDataFromDb()
    ' early binding
    Dim USR As ADODB.Connection
    Dim USRdata As ADODB.RecordSet
    Dim USRfield As ADODB.Field
    Set USR = New ADODB.Connection
    Set USRdata = New ADODB.RecordSet
        Set UserN = Range("d2")
        Set PassW = Range("e2")
    USR.ConnectionString = ConStrAccess
    USR.Open
    On Error GoTo CloseRecordConnection
        With USRdata
            .ActiveConnection = ConStrAccess
            .Source = GetSQLString
            .LockType = adLockReadOnly
            .CursorType = adOpenForwardOnly
            .Open
        End With
    On Error GoTo CloseRecordSet
    On Error GoTo 0
CloseRecordSet:
    USRdata.Close
CloseRecordConnection:
    USR.Close
End Sub
Function GetSQLString() As String
    Dim PassW As Integer
    Dim SQLString As String

    UserN = "a1" 
    PassW = "37954675"

    SQLString = " select Name_Surname, UserName, PassWord       " & _
                " FROM Test2                                    " & _
                " WHERE UserName = UserN and PassWord = PassW  ;"

    GetSQLString = SQLString
End Function
...