[Resolvido]Conectando em um back end através do SQL

Bom dia a todos,
Eu li um tópico uma vez aqui no fórum, e procurei e procurei e não estou encontrando...
Achei um tópico que ensinava como conectar em um banco de dados (Back end) Atráves do próprio sql,
alguém pode me ajudar a dar está luz?

Boas dhtm15... de uma pesquisada no fórum por desvinculo...

Há um tópico do amigo Dilson Marcos chamado jornada desvinculo, creio...


Segue um modelo de código utilizado para carregar combos.

Código:


'******************************************************************
'FUNÇÕES DE CAREGAMENTO DAS COMBO REDE
'******************************************************************

'Carrega as ComBox's usadas na Rede
Public Sub CarregaCombo()
Dim StrCboDetento, StrCboAla, StrCboCela As String
Dim NomeBD As String
Dim StrPath As String
Dim dbBanco As Database
Dim VarReg As String
Dim VarUnidade As String

    VarReg = RegimeAtual
    VarUnidade = UnidadeOrigem


NomeBD = "Syspen_be.accdb"

   
    'String com path para conexão com a base de dados.
    StrPath = "C:\SuaPasta\" & NomeBD    ' Conecta ao banco de dados comum
    Set dbBanco = OpenDatabase(StrPath)
   
    'ComBox CboDetento
    StrCboDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] FROM Detentos IN '" & StrPath & "'" _
                    & "WHERE UnidadeRequisitante='" & VarUnidade & "' and RegimeAtual='" & VarReg & "'" _
                    & "Order By Nome, Sobrenome ASC;"

                Me.CboDetento.RowSource = StrCboDetento
                Me![CboDetento].ColumnCount = 2
                Me![CboDetento].ColumnWidths = "0cm; 10cm"
               
    'ComBox CboCrime
    StrCboCrime = "SELECT Crimes.Crimes FROM Crimes IN '" & StrPath & "'" _
                & "Order By Crimes ASC;"

                Me.cboCrime.RowSource = StrCboCrime
                Me![cboCrime].ColumnCount = 1
                Me![cboCrime].ColumnWidths = "9cm"
   
 
    'Encerra a conexão
    dbBanco.Close
    Set dbBanco = Nothing
   
End Sub

Cumprimentos.

Botão Excluir:

Código:



Private Sub BotaoExcluir_Click()
On Error GoTo Err_BotaoExcluir_Click
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim Rs As DAO.Recordset

Dim NomeBD As String
Dim StrPath As String

Dim I, II


NomeBD = "Syspen_Be.Accdb"
StrPath = "C:\SuaPasta\" & NomeBD


  If Not IsNull(Me.txtID) = False Then
        II = MsgBox("SELECIONE ANTES O REGISTRO A SER EXCLUIDO!", vbCritical, "Atenção!")
        Call LimpaCampos
        Me.CboDetento.Dropdown
        Cancel = True
    Exit Sub

Else

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

                StrSQLDetentos = ("SELECT * FROM Detentos WHERE ID = " & txtID.Value)

Set Rs = db.OpenRecordset(StrSQLDetentos)

    I = MsgBox("Tem a certeza que quer apagar este Registro ?", vbYesNo, "Confirmação")
        If I = vbYes Then
            Rs.Edit ' Abre a edição do registro
 
        ' Exclui os dados na tabela
        Rs.Delete
          MsgBox "Registro excluido com sucesso...", vbInformation, "Syspen"
          Call LimpaCampos
        Else
        Cancel = True
        Me.CboDetento.Requery
        End If
        End If

Rs.Close
db.Close
Set Rs = Nothing
Set db = Nothing


Exit_BotaoExcluir_Click:
    Exit Sub

Err_BotaoExcluir_Click:
    MsgBox err.Description
    Resume Exit_BotaoExcluir_Click
End Sub


Consulta no form:

Código:



Private Sub ConsultaDetento()
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim Rs As DAO.Recordset


Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\SuaPasta\" & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")


                StrSQLDetentos = "SELECT Detentos.[ID], Detentos.[Advogado], Detentos.[Sobrenome], Detentos.[Nome], Detentos.[Alcunha]," _
                & "Detentos.[Sexo] , Detentos.[Crime], Detentos.[Nível], Detentos.[Cela], Detentos.[RegimeAtual], Detentos.[UnidadeRequisitante]," _
                & "Detentos.[Se Albergado, Regime], Detentos.[Prisão Civil], Detentos.[Data de Nascimento], Detentos.[Número de ID]," _
                & "Detentos.[Telefone Comercial], Detentos.[Telefone Residencial], Detentos.[Telefone Celular], Detentos.[Anotações]," _
                & "Detentos.[Nome do Médico], Detentos.[Telefone do Médico], Detentos.[Alergias], Detentos.[Medicamentos]," _
                & "Detentos.[Nome Contato Emergência], Detentos.[Telefone 1 do Contato de Emergência], Detentos.[Telefone 2 do Contato de Emergência]," _
                & "Detentos.[Relação do Contato de Emergência], Detentos.[Nome Contato Emergência1], Detentos.[Telefone 1 do Contato de Emergência1]," _
                & "Detentos.[Telefone 2 do Contato de Emergência1], Detentos.[Relação do Contato de Emergência1], Detentos.[Naturalidade]," _
                & "Detentos.[Nacionalidade], Detentos.[Estado Civil], Detentos.[Nome do Pai], Detentos.[Filhos], Detentos.[Se falecido], Detentos.[Nome da Mãe], Detentos.[Se Falecida]," _
                & "Detentos.[Endereço], Detentos.[Cidade], Detentos.[Complemento], Detentos.[CodigoPostal], Detentos.[País], Detentos.[Estado]," _
                & "Detentos.[Trabalho- anterior a Prisão], Detentos.[Telefone], Detentos.[Profissão], Detentos.[Grau de Instrução], Detentos.[Conjuge]," _
                & "Detentos.[RG/CPF], Detentos.[Etnia], Detentos.[Tipo Físico], Detentos.[Peso Informado], Detentos.[Cabelos], Detentos.[Olhos]," _
                & "Detentos.[Estatura], Detentos.[Sinais Particulares], Detentos.[Tatuagens], Detentos.[Cicatrizes], Detentos.[Data da Prisão]," _
                & "Detentos.[Data da Saída], Detentos.[Origem], Detentos.[Reicidente], Detentos.[Infração], Detentos.[Processo Número], Detentos.[Regime]," _
                & "Detentos.[Situação Penal], Detentos.[Pena Ano], Detentos.[Pena Mês], Detentos.[Condicional], Detentos.[Término Pena], Detentos.[Juizado]," _
                & "Detentos.[Promotoria], Detentos.[Assitente Jurídico], Detentos.[Observações], Detentos.[Vara], Detentos.[Processos em outras Comarcas]," _
                & "Detentos.[Situação do Processo Anterior], Detentos.[RDD], Detentos.[Se RDD, Local e Período], Detentos.[Alvará], Detentos.[Mês Alvará]," _
                & "Detentos.[Transferido] , Detentos.[Albergado Comparece], Detentos.[Data da Inclusao na unidade], Detentos.[EntradaNaUnidade]," _
                & "Fotos_Detentos.IDFoto, Fotos_Detentos.CaminhoFotoRosto, Fotos_Detentos.CaminhoPerfil1, Fotos_Detentos.CaminhoPerfil2, Fotos_Detentos.CaminhoPerfil3," _
                & "Fotos_Detentos.CaminhoPerfil4 FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.[ID] = Fotos_Detentos.[IDFoto]" _
                & "WHERE Detentos.ID = " & Me!ID & ";"
               

Set Rs = db.OpenRecordset(StrSQLDetentos)

'********PÁGINA 01*************************************************************************
Me.txtID = Rs![ID]
Me.txtNome = Rs![Nome]
Me.txtSobrenome = Rs![Sobrenome]
Me.txtAlcunha = Rs![Alcunha]
Me.txtSexo = Rs![Sexo]
Me.cboCrime = Rs![Crime]
Me.txtAdvogado = Rs![Advogado]
Me.txtTelRes = Rs![Telefone Residencial]
Me.txtTelCel = Rs![Telefone Celular]
Me.txtTelCom = Rs![Telefone Comercial]
Me.txtAnot = Rs![Anotações]
Me.cboUnidadeReq = Rs![UnidadeRequisitante]
Me.CboAla = Rs![Nível]
Me.CboCela = Rs![Cela]
Me.txtRegimeAtual = Rs![RegimeAtual]
Me.txtSe_albergado = Rs![Se Albergado, Regime]
Me.txtPrisao_Civil = Rs![Prisão Civil]
Me.txtRDD = Rs![RDD]
Me.txtSeRdd = Rs![Se RDD, Local e Período]
Me.txtTransferido = Rs![Transferido]

'********PÁGINA 02*************************************************************************
Me.txtContato = Rs![Nome Contato Emergência]
Me.txtTel11Contato = Rs![Telefone 1 do Contato de Emergência]
Me.txtTel2Contato = Rs![Telefone 2 do Contato de Emergência]
Me.txtRelacaoContato = Rs![Relação do Contato de Emergência]
Me.txtContato1 = Rs![Nome Contato Emergência1]
Me.txtTel1Contato1 = Rs![Telefone 1 do Contato de Emergência1]
Me.txtTel2Contato1 = Rs![Telefone 2 do Contato de Emergência1]
Me.txtRelacaoContato1 = Rs![Relação do Contato de Emergência1]
Me.txtMedico = Rs![Nome do Médico]
Me.txtTelMedico = Rs![Telefone do Médico]
Me.txtAlergias = Rs![Alergias]
Me.txtMedicamentos = Rs![Medicamentos]

'********PÁGINA 03*************************************************************************
Me.txtNomedoDetento = Rs![Nome] & space(1) & Rs![Sobrenome]
Me.txtAlcunha1 = Rs![Alcunha]
Me.txtNaturalidade = Rs![Naturalidade]
Me.txtEstadoCivil = Rs![Estado Civil]
Me.txtNomeMae = Rs![Nome da Mãe]
Me.txtNomePai = Rs![Nome do Pai]
Me.txtDataNascimento = Rs![Data de Nascimento]
Me.txtNacionalidade = Rs![Nacionalidade]
Me.txtDocumentos = Rs![RG/CPF]
Me.txtFilhos = Rs![Filhos]
Me.txtFalecida = Rs![Se Falecida]
Me.txtFalecido = Rs![Se falecido]
Me.txtProfissao = Rs![Profissão]
Me.txtInstrucao = Rs![Grau de Instrução]
Me.txtTelRes1 = Rs![Telefone]
Me.txtTrabalho = Rs![Trabalho- anterior a Prisão]
Me.txtConjuge = Rs![Conjuge]
Me.txtEtinia = Rs![Etnia]
Me.txtTipoFisico = Rs![Tipo Físico]
Me.txtPeso = Rs![Peso Informado]
Me.txtCabelos = Rs![Cabelos]
Me.txtOlhos = Rs![Olhos]
Me.txtEstatura = Rs![Estatura]
Me.txtSinais = Rs![Sinais Particulares]
Me.txtEndereco = Rs![Endereço]
Me.cboEstado = Rs![Estado]
Me.cboCidade = Rs![Cidade]
Me.txtPais = Rs![País]
Me.txtPostal = Rs![CodigoPostal]
Me.txtComplemento = Rs![Complemento]

'********PÁGINA 03*************************************************************************
Me.txtDataPrisao = Rs![Data da Prisão]
Me.txtOrigem = Rs![Origem]
Me.txtDataSaida = Rs![Data da Saída]
Me.txtReicidente = Rs![Reicidente]
Me.CboEntradaUnidade = Rs![EntradaNaUnidade]
Me.txtProcessoNum = Rs![Processo Número]
Me.txtInfração = Rs![Infração]
Me.txtRegime = Rs![Regime]
Me.CboSituacaoPenal = Rs![Situação Penal]
Me.CboPenaAno = Rs![Pena Ano]
Me.CboPenaMes = Rs![Pena Mês]
Me.txtCondicional = Rs![Condicional]
Me.txtTerminoPena = Rs![Término Pena]
Me.txtComarca = Rs![Juizado]
Me.txtVara = Rs![Vara]
Me.txtPromotoria = Rs![Promotoria]
Me.txtProcessoOutrasComarcas = Rs![Processos em outras Comarcas]
Me.txtSituaçãoProcAnterior = Rs![Situação do Processo Anterior]
Me.txtPromotoria = Rs![Promotoria]
Me.cboMesAlvara = Rs![Mês Alvará]
Me.txtAlvara = Rs![Alvará]
Me.txtAssistenteJu = Rs![Assitente Jurídico]
Me.txtObservacoes = Rs![Observações]
Me.txtDataInclusao = Rs![Data da Inclusao na unidade]

'********SUBFORM FOTOS**********************************************************************
Forms.FrmDetentoConsulta.SubFrm_Fotos_Consulta.Form!CaminhoFotoRosto = Rs![CaminhoFotoRosto]
Forms.FrmDetentoConsulta.SubFrm_Fotos_Consulta.Form!CaminhoPerfil1 = Rs![CaminhoPerfil1]
Forms.FrmDetentoConsulta.SubFrm_Fotos_Consulta.Form!CaminhoPerfil2 = Rs![CaminhoPerfil2]
Forms.FrmDetentoConsulta.SubFrm_Fotos_Consulta.Form!CaminhoPerfil3 = Rs![CaminhoPerfil3]
Forms.FrmDetentoConsulta.SubFrm_Fotos_Consulta.Form!CaminhoPerfil4 = Rs![CaminhoPerfil4]
Call PreencheFoto


Rs.Close
db.Close
Set Rs = Nothing
Set db = Nothing

End Sub


Salvar:

Código:



Private Sub Salvar_Click()
Dim I, II
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim Rs As DAO.Recordset

Me.CboDetento.SetFocus
    If IsNull(Me.txtID) Then
        II = MsgBox("SELECIONE PRIMEIRO O DETENTO!", vbInformation, "Atenção!")
        Me.CboDetento.Dropdown
    Exit Sub
   
    Else

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\SuaPasta\" & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")

                StrSQLDetentos = ("SELECT * FROM Detentos WHERE ID = " & txtID.Value)

Set Rs = db.OpenRecordset(StrSQLDetentos)

    I = MsgBox("Tem a certeza que deseja Salvar este Registro ?", vbYesNo, "Confirmação")
        If I = vbYes Then
            Rs.Edit ' Abre a edição do registro
   
'********PÁGINA 01*************************************************************************
Rs![ID] = Me.txtID
Rs![Nome] = Me.txtNome
Rs![Sobrenome] = Me.txtSobrenome
Rs![Alcunha] = Me.txtAlcunha
Rs![Sexo] = Me.txtSexo
Rs![Crime] = Me.cboCrime
Rs![Advogado] = Me.txtAdvogado
Rs![Telefone Residencial] = Me.txtTelRes
Rs![Telefone Celular] = Me.txtTelCel
Rs![Telefone Comercial] = Me.txtTelCom
Rs![Anotações] = Me.txtAnot
Rs![UnidadeRequisitante] = Me.cboUnidadeReq
Rs![Nível] = Me.CboAla
Rs![Cela] = Me.CboCela
Rs![RegimeAtual] = Me.txtRegimeAtual
Rs![Se Albergado, Regime] = Me.txtSe_albergado
Rs![Prisão Civil] = Me.txtPrisao_Civil
Rs![RDD] = Me.txtRDD
Rs![Se RDD, Local e Período] = Me.txtSeRdd
Rs![Transferido] = Me.txtTransferido

'********PÁGINA 02*************************************************************************
Rs![Nome Contato Emergência] = Me.txtContato
Rs![Telefone 1 do Contato de Emergência] = Me.txtTel11Contato
Rs![Telefone 2 do Contato de Emergência] = Me.txtTel2Contato
Rs![Relação do Contato de Emergência] = Me.txtRelacaoContato
Rs![Nome Contato Emergência1] = Me.txtContato1
Rs![Telefone 1 do Contato de Emergência1] = Me.txtTel1Contato1
Rs![Telefone 2 do Contato de Emergência1] = Me.txtTel2Contato1
Rs![Relação do Contato de Emergência1] = Me.txtRelacaoContato1
Rs![Nome do Médico] = Me.txtMedico
Rs![Telefone do Médico] = Me.txtTelMedico
Rs![Alergias] = Me.txtAlergias
Rs![Medicamentos] = Me.txtMedicamentos

'********PÁGINA 03*************************************************************************
Rs![Nome] = Me.txtNome
Rs![Sobrenome] = Me.txtSobrenome
Rs![Naturalidade] = Me.txtNaturalidade
Rs![Estado Civil] = Me.txtEstadoCivil
Rs![Nome da Mãe] = Me.txtNomeMae
Rs![Nome do Pai] = Me.txtNomePai
Rs![Data de Nascimento] = Me.txtDataNascimento
Rs![Nacionalidade] = Me.txtNacionalidade
Rs![RG/CPF] = Me.txtDocumentos
Rs![Filhos] = Me.txtFilhos
Rs![Se Falecida] = Me.txtFalecida
Rs![Se falecido] = Me.txtFalecido
Rs![Profissão] = Me.txtProfissao
Rs![Grau de Instrução] = Me.txtInstrucao
Rs![Telefone] = Me.txtTelRes1
Rs![Trabalho- anterior a Prisão] = Me.txtTrabalho
Rs![Conjuge] = Me.txtConjuge
Rs![Etnia] = Me.txtEtinia
Rs![Tipo Físico] = Me.txtTipoFisico
Rs![Peso Informado] = Me.txtPeso
Rs![Cabelos] = Me.txtCabelos
Rs![Olhos] = Me.txtOlhos
Rs![Estatura] = Me.txtEstatura
Rs![Sinais Particulares] = Me.txtSinais
Rs![Endereço] = Me.txtEndereco
Rs![Estado] = Me.cboEstado
Rs![Cidade] = Me.cboCidade
Rs![País] = Me.txtPais
Rs![CodigoPostal] = Me.txtPostal
Rs![Complemento] = Me.txtComplemento

'********PÁGINA 03*************************************************************************
Rs![Data da Prisão] = Me.txtDataPrisao
Rs![Origem] = Me.txtOrigem
Rs![Data da Saída] = Me.txtDataSaida
Rs![Reicidente] = Me.txtReicidente
Rs![EntradaNaUnidade] = Me.CboEntradaUnidade
Rs![Processo Número] = Me.txtProcessoNum
Rs![Infração] = Me.txtInfração
Rs![Regime] = Me.txtRegime
Rs![Situação Penal] = Me.CboSituacaoPenal
Rs![Pena Ano] = Me.CboPenaAno
Rs![Pena Mês] = Me.CboPenaMes
Rs![Condicional] = Me.txtCondicional
Rs![Término Pena] = Me.txtTerminoPena
Rs![Juizado] = Me.txtComarca
Rs![Vara] = Me.txtVara
Rs![Promotoria] = Me.txtPromotoria
Rs![Processos em outras Comarcas] = Me.txtProcessoOutrasComarcas
Rs![Situação do Processo Anterior] = Me.txtSituaçãoProcAnterior
Rs![Promotoria] = Me.txtPromotoria
Rs![Mês Alvará] = Me.cboMesAlvara
Rs![Alvará] = Me.txtAlvara
Rs![Assitente Jurídico] = Me.txtAssistenteJu
Rs![Observações] = Me.txtObservacoes
Rs![Data da Inclusao na unidade] = Me.txtDataInclusao

        ' Atualiza os dados na tabela
        Rs.Update
          MsgBox "Registro Salvo com sucesso...", vbInformation, "Syspen"
        Else
        Cancel = True

        End If
  End If
        Me.CboDetento.Requery
        Me.CboDetento.SetFocus
        Call LimpaCampos
        Call BloqueiaCampos
       
Rs.Close
db.Close
Set Rs = Nothing
Set db = Nothing

Exit_Salvar:
Exit Sub

Err_Salvar:
  MsgBox "Erro número: " & err.Number & vbLf & vbLf & err.Description, vbCritical, "Syspen!"
Resume Exit_Salvar
End Sub


Piloto foi uma excelente mão na roda,
Muito agradecido, e realmente era exatamente este post que fala sobre trabalhar com o banco e formulários desacoplados, mas não lembrava o nome do tópico, e fiz a limpa no fórum e não achei... mais novamente agradecido!

O Fórum agradece o Retorno.