Observação: A biblioteca "Microsoft DAO X.X Object library" deve estar habilitada (Ferramentas --> Referencias....)
Vamos por partes:
Sua tabela modelo e composta por quatro campos/fields; sendo ID e ITEM --> Numerico; Material e Grupo --> String
Ao montar um SQL deve-se levar em conta o nome do Campo e seu tipo. Não nomeie Variáveis com nome de campos da tabela, isso pode induzir/produzir erros.
Para itens numéricos não se utiliza Like e preferivel utilizar o "=" (igual/equal). Itens auto numeração como o campo ID, se chave primaria da tabela, não devem ser alterados por consulta.
Em consultas SQL as expressões com strings mais usadas são as checagens para verificação de coincidências de pares, usando o operador LIKE combinado com os caracteres especiais porcentagem (%) e sublinhado (_). O caractere % é utilizado para indicar a posição (no início, em qualquer posição ou no final) que um conteúdo será procurado no valor string do campo especificado
https://www.devmedia.com.br/operador-like-em-consultas-sql-no-delphi/26995
Uma string simples select pode ser:
Private Sub CommandButton1_Click()
Dim ComandoSQL As String
Dim mI As String
mI = Me.TXT_ITEM
ComandoSQL = "select * from TB_TESTE where Item = " & mI
'Chama a rotina que faz a conexão ao Banco de Dados
Call conecta
'Atribui a variável global do tipo Recorset, os comandos SQL que devem ser executados
Set consulta = Banco.OpenRecordset(ComandoSQL)
MsgBox "O ID é: consulta.Fields(1)
End Sub
Utilizando 2 campos como "filtro"
Private Sub CommandButton1_Click()
Dim ComandoSQL As String
Dim mI As String, mAt As String
mI = Me.TXT_ITEM
mAt = Me.TXT_ID
'ComandoSQL = "select * from TB_TESTE where Item = " & mI
ComandoSQL = "select * from TB_TESTE where Item = " & mI & " and Material like '*" & mAt & "*'"
'Chama a rotina que faz a conexão ao Banco de Dados
Call conecta
'Atribui a variável global do tipo Recorset, os comandos SQL que devem ser executados
Set consulta = Banco.OpenRecordset(ComandoSQL)
MsgBox consulta.Fields(3)
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/03/2018 5:29 am