Alex Mauricio

mas não ter que ter um WHERE para mostrar qual registro vai alterar?

os erros continuam NA OPÇÃO ATUALIZAR Private Sub cmdSalvar_Click() Dim ssql As String If (Atualizar_Registro = False) Then ssql = "insert into cliente values(" ssql = ssql & Trim(txtCodigo.Text) & ",'" ssql = ssql & Trim(txtRazaoSocial.Text) & "','" ssql = ssql & Trim(txtTelefone.Text) & "','" ssql = ssql & Trim(txtCidade.Text) & "')" BancoDeDados.Execute ssql MsgBox "Registro incluído com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados" Desabilitar BtnPadrao Else ssql = "update cliente set razao_social = " & "'" ssql = ssql & txtRazaoSocial.Text & "', fone_cliente = '" ssql = ssql & txtTelefone.Text & "', cidade_cliente = '" ssql = ssql & txtCidade.Text & " where codigo_cliente =" & txtCodigo.Text BancoDeDados.Execute ssql MsgBox "Registro alterado com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados" End If End Sub O que eu faço?????????????

O Inset tá bala.... a única coisa que não funciona é o update.

Fala pessoal. Estou eu aqui novamente com dúvidas de inciante... Estou criando um aplicativo onde criei uma variárel Dim Atualiza_Registro As Boolean onde quando eu clicar em novo registro ele coloca a opção False e grava normalmente. Porem, quando eu vou na opção alterar e vou clicar novamente em salvar ( deveria estar com a variável Atualiza_Registro = True ) o sistema está dando o erro: Run Time Error '3144': Erro de sintaxe na instrução UPDATE. Segue abaixo o código do botão Salvar. Private Sub cmdSalvar_Click() Dim ssql As String If (Atualizar_Registro = False) Then ssql = "insert into cliente values(" ssql = ssql & Trim(txtCodigo.Text) & ",'" ssql = ssql & Trim(txtRazaoSocial.Text) & "','" ssql = ssql & Trim(txtTelefone.Text) & "','" ssql = ssql & Trim(txtCidade.Text) & "')" BancoDeDados.Execute ssql MsgBox "Registro incluído com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados" Desabilitar BtnPadrao Else ssql = "Update cliente set" ssql = ssql & "cod_cliente='" & Trim(txtCodigo.Text) & "'," ssql = ssql & "razao_social='" & Trim(txtRazaoSocial.Text) & "'" ssql = ssql & "fone_cliente='" & Trim(txtTelefone.Text) & "'" ssql = ssql & "cidade_cliente='" & Trim(txtCidade.Text) BancoDeDados.Execute ssql MsgBox "Registro alterado com Sucesso!!!", vbInformation + vbOKOnly, "Conexão com Banco de Dados" Desabilitar BtnPadrao End If End Sub Muito obrigado a todos.

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

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.

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?

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