REALIZAR "SELECT + WHERE"

2024 - Integração Excel & Access 2024

Post Recente por Fernando Fernandes 12 anos atrás

4 Posts

2 Usuários

0 Reactions

1,644 Visualizações

RSS

PeteParada

(@peteparada)

Posts: 18

Active Member

Topic starter

Pessoal, boa noite

Tenho uma tabela no Access Chamada ANALISTAS, e esta possui dois campos: ID_ANALISTA, NOME_ANALISTA.

O NOME_ANALISTA está como chave primária

Preciso realizar uma consulta no banco que, o nome do analista esteja numa text box chamada Responsavel e esta consulta me retorne o ID_ANALISTA (é uma númeração automática)

O que tentei fazer?

Private Sub ColetaID_Analistas()

Dim cx As New ConectaBD
Dim banco As ADODB.Recordset
Dim sql, nome As String

nome = Me.Responsavel.Text

sql = "SELECT * FROM Analistas"
'WHERE NOME_ANALISTA = Nome1"
sql = sql & " WHERE NOME_ANALISTA = " & Me.Responsavel.Text

Set banco = New ADODB.Recordset
cx.Conectar
banco.Open sql, cx.Conn

Dim IdAnalista As String

IdAnalista = banco.Fields("ID_ANALISTA")

Set banco = Nothing
cx.Desconectar

End Sub

Porém, quando rodo esta consulta dá um erro dizendo "No Value Given For One or More Required Parameters"

Dentro da variável banco observei que ela encontra o ID_ANALISTA e NOME_ANALISTA, caracteriza os dois como String mas diz que o dataformat = Nothing e diz ainda <Tipo de Objetos Não Suportados>

Alguém pode me ajudar a solucionar?

Postado : 25/05/2013 12:18 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Voce tem tb a sub rotina que que "faz" a conexão ao banco de dados? , pois aparentemente no sql não há falha.

Seria algo como:

Public Conn As New ADODB.Connection
Public Sub Conectar()
    Dim nConectar As String
    nConectar = "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & ThisWorkbook.Path & "Base.mdb"
    Conn.ConnectionString = nConectar
    Conn.Open    
End Sub

Public Sub Desconectar()
    Conn.Close
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 25/05/2013 6:25 am

PeteParada

(@peteparada)

Posts: 18

Active Member

Topic starter

Voce tem tb a sub rotina que que "faz" a conexão ao banco de dados? , pois aparentemente no sql não há falha.

Seria algo como:
Public Conn As New ADODB.Connection
Public Sub Conectar()
    Dim nConectar As String
    nConectar = "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & ThisWorkbook.Path & "Base.mdb"
    Conn.ConnectionString = nConectar
    Conn.Open    
End Sub

Public Sub Desconectar()
    Conn.Close
End Sub

Achei meu erro, tinha que colocar ... ' =" Me.Responsavel.Text & "'"

Postado : 25/05/2013 4:35 pm