[Resolvido]Consulta baseada em duas tabelas (VBA) em Front-End Desvinculado

Amigos tenho esta SQL/VBA que funciona perfeitamente onde StrPath é o caminho do BD...

StrCboUsuario = "SELECT * FROM tblUsuários IN '" & StrPath & "'"

Pergunto.. como aplicar em uma SQL baseada em mais tabelas? Sei que com o Workspace dá.. mas utilizando a lógica acima é possível?

Workspace

Código:



Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(DirBancoDados & "\SysApac_Be.Accdb", False, False, "MS Access;PWD=senha")

                StrSQLDetentos = ("SELECT * FROM Detentos")

Set rs = db.OpenRecordset(StrSQLDetentos)

StrCboUsuario = "SELECT tblUsuários.IdUsuario, tblUsuários.Login,
tblUsuários.Senha, tblUsuários.Bloqueado, tblUsuários.IdGrupo,
tblGrupos.Nivel" _
& " FROM tblGrupos INNER
JOIN tblUsuários ON tblGrupos.IdGrupo = tblUsuários.IdGrupo ORDER BY
tblUsuários.Login;"


Cumprimentos.

Olá

Sabia que as SQl também trabalham com consultas ? Uma das opções é vc montar esta consulta no back-end e então carregá-la pela SQL. Exemplo:

StrCboUsuario = "SELECT * FROM NomeDaConsulta IN '" & StrPath & "'"

Outra opção:

Dependendo aonde irá aplicar a SQL vc pode montar pelo recordset e usar o SET. Exemplo

Para carregar um formulário

SET me.recordset = rs

Para carregar uma lista ou uma combobox

SET me!lista.recordset = rs

Sucesso!

Agora, em todos esses casos se está trabalhando "Vinculado". Por que então não se trabalha direto com as tabelas vinculadas ?

Ande vc está achando ganho de desempenho nisso ? Está perdendo é tempo, em ficar realizando malabarismo (risos). O Access foi feito para trabalhar com vinculos.

Sucesso!

Eu entendo vossa colocação Mestre... Ocorre que esse sistema (Syspen) eu fiz totalmente desvinculado, e o estou adaptando a outro cliente... e acredite irá dá mais trabalho aplicar tabelas vinculadas do que desvincular o sistema de login....

Agora me diga lá uma coisa... entre o vínculo de tabelas e o desvinculo em vossa opinião, qual é o melhor?

Cumprimentos.

Boas novamente Avelino...

Tentei assim e não deu certo, o que seria?

'******************************************************************
'FUNÇÕES DE CAREGAMENTO DA COMBO
'******************************************************************

'Carrega a ComBox's usadas no Form
Private Sub CarregaCombo()
Parametros_de_Inicializacao "SysApac.par"
Dim Db As DAO.Database
Dim Ws As DAO.Workspace
Dim Rs As DAO.Recordset
Dim NomeBD As String
Dim StrPath As String
Dim StrSQLUsuario As String


Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(DirBancoDados & "\SysApac_Be.Accdb", False, False, "MS Access;PWD=senha")

    'ComBox CboUsuário
    StrSQLUsuario = "SELECT tblUsuários.IdUsuario, tblUsuários.Login, tblUsuários.Senha, tblUsuários.Bloqueado, tblUsuários.IdGrupo, tblGrupos.Nivel FROM tblGrupos" _
                    & " INNER JOIN tblUsuários ON tblGrupos.IdGrupo=tblUsuários.IdGrupo ORDER BY tblUsuários.Login; "

Set Rs = Db.OpenRecordset(StrSQLUsuario)

    Set cboUsuário.Recordset = Rs
    Me![cboUsuário].ColumnCount = 6
    Me![cboUsuário].ColumnWidths = "0cm;4cm;0cm;0cm;0cm;0cm"
    
  
    'Encerra a conexão
    Db.Close
    Set Db = Nothing
    
End Sub

Cumprimentos.

Experimente não encerrar a conexao

Set Rs = Db.OpenRecordset(StrSQLUsuario)
Set cboUsuário.Recordset = Rs
Me![cboUsuário].ColumnCount = 6
Me![cboUsuário].ColumnWidths = "0cm;4cm;0cm;0cm;0cm;0cm"
'Encerra a conexão
'Db.Close
'Set Db = Nothing
End Sub

Boas Avelino, deu certo...

Pergunto
:
1 - é necessário encerrar a conexão ao fechar o form ou ela é automaticamente encerrada ao fechar o mesmo?
2 - Quais os prós e os contras comparando esse procedimento e a utilização de tabelas vinculadas?


Cumprimentos.