Visual Basic e SQL

[Alex Mauricio]

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

[kuroi]

se o campo é texto, o valor tem q ta entre aspa. e não sei porque você pos aquele Val():

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

[Alex Mauricio]

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?

[raphael_suporte]

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

[Alex Mauricio]

Neste caso já abri o banco e as tabelas...

Como faço com os botões de navegação ( Anterior e próximo ) por exemplo.

[raphael_suporte]

tbClientes.MovieNext e TbCliente.MoviePrevious.

talvez isso ajude

[Alex Mauricio]

Alguém tem algum material para disponibilizar de Visual Basic integrado com a linguagem SQL?

Obrigado