ProjF Postado Janeiro 19, 2008 Denunciar Share Postado Janeiro 19, 2008 Estou tentando colocar em um editbox o valor de uma combobox, que faz uma consulta a uma tabela trazendo a descricao, e para isso estou usando o comando abaixoDim plano As Integerplano = "SELECT [PLANOS].[iD_PLANO]" & _ "FROM PLANOS" & _ "WHERE [PLANOS].[DESCRICAO] = " & Form_CONTRATOS1.listaPlano.Value & ""ID_PLANO.Value = planoSó que está dando erro de tipos incompatíveis.Alguém sabe como resolver o problema?Obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Thyago Mendrót Postado Fevereiro 5, 2008 Denunciar Share Postado Fevereiro 5, 2008 Boa noite!Faltou utilizar apostrofe antes e depois da string...Dim plano As Integerplano = "SELECT [PLANOS].[iD_PLANO]" & _"FROM PLANOS" & _"WHERE [PLANOS].[DESCRICAO] = '" & Form_CONTRATOS1.listaPlano.Value & "'"ID_PLANO.Value = planoAbsss Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
ProjF
Estou tentando colocar em um editbox o valor de uma combobox, que faz uma consulta a uma tabela trazendo a descricao, e para isso estou usando o comando abaixo
Dim plano As Integer
plano = "SELECT [PLANOS].[iD_PLANO]" & _
"FROM PLANOS" & _
"WHERE [PLANOS].[DESCRICAO] = " & Form_CONTRATOS1.listaPlano.Value & ""
ID_PLANO.Value = plano
Só que está dando erro de tipos incompatíveis.
Alguém sabe como resolver o problema?
Obrigado
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.