Ir para conteúdo
Fórum Script Brasil
  • 0

Visual Basic e SQL


Alex Mauricio

Pergunta

Bom dia grupo.

Sou iniciante em VB e estou tentando migrar o VB com SQL

Estou criando uma tela de login onde eu gostaria que fizesse uma consulta no banco, onde temos como parâmetro o que o usuário vai digitar no Text Box.

Private Sub cmdOk_Click()

Dim ssql As String

Set TbLogin = BD.OpenRecordset("Select nomeUser from autenticacao where nomeUser = " & Val(txtUsuario.Text))

If TbLogin.RecordCount = 0 Then

MsgBox "Usuário inexistente!!!", vbInformation + vbOKOnly, "Banco de Dados"

Else

MsgBox "Usuário OK!!!", vbInformation + vbOKOnly, "Banco de Dados"

End If

End Sub

Porém está dando um erro onde eu não estou sabendo interpretar.

Run-time error '3463';

Tipo de dados imcompatível na expressão de critério.

Alguém poderia me ajudar???? :blink:

Muito obrigado

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

OK.

Agora estou tentando em um novo form que os TextBox mostre os registros do Banco

Private Sub CarregarDados()

'Conecta o Banco de Dados'

Set BD = OpenDatabase("G:\UNASP - VB 6\ProjetoVB-Alex-Access\Cadastro.mdb")

'Conecta com a Tabela Cliente'

Set TbClientes = BD.Recordsets("select * from cliente order by cod_cliente")

TbClientes.MoveFirst

txtCidade.Text = (TbClientes!cod_cliente)

txtRazaoSocial.Text = (TbClientes!razao_social)

txtTelefone.Text = (TbClientes!fone_cliente)

txtCidade.Text = (TbClientes!cidade_cliente)

End Sub

a idéia seria essa?

Link para o comentário
Compartilhar em outros sites

  • 0

tente assim:

Private Sub CarregarDados()

'Conecta o Banco de Dados'
Set BD = OpenDatabase("G:\UNASP - VB 6\ProjetoVB-Alex-Access\Cadastro.mdb")

'Conecta com a Tabela Cliente'
Set TbClientes = BD.Recordsets("select * from cliente order by cod_cliente")

TbClientes.MoveFirst

txtCidade.Text = TbClientes("cod_cliente")
txtRazaoSocial.Text = TbClientes("razao_social")
txtTelefone.Text = TbClientes("fone_cliente")
txtCidade.Text = TbClientes("cidade_cliente")

End Sub

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...