none
Executar comandos SQL no meu banco access com botão ??? RRS feed

  • Question

  • Executar comandos SQL no meu banco access com botão ???

     

    Tenho um banco em access 2007 chamado BD_01 com a tabela BD_CENTRAL.

    Desejo executar comandos sql na minha BD, Digamos no vendo ao click do botão

    inserir um valor no campo VENDA da tabela BD_CENTRAL.

     

    digamos o botão vai inserir o valor 1 no campo por código primario.
    Não para todos os clientes do BD_CENTRAL mais só para o atual do form

    Monday, February 21, 2011 4:50 PM

Answers

  • Para executar comandos no banco você precisa de 2 coisas...

    1º - Uma conexão ativa com o banco;

    2º - Uma variavel de comando(Para Access é usado o OleDbComand);

    Um exemplo:

    Dim Comando As New OleDbCommand
    Dim ConexaoBD As New OleDbConnection
    Dim SenhaBD as String = ""
    Dim Sql As String
    
    Sql = "INSERT INTO Clientes(Nome) VALUES(@Nome)" 'Sql exemplo
    Try
      'Aqui será montada a sua conexão, dizendo onde está o banco
      'O comando: Application.StartupPath ira pegar na pasta em que o executavel está
      ConexaoBD = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source = '" & Application.StartupPath & "\BD_01.accdb" & "'; Jet OLEDB:Database Password = " & SenhaBD)
      ConexaoBD.Open()
    
      Comando = New OleDbCommand(Sql, ConexaoBD) 'Passando a SQL e a conexão
      Comando.Parameters.AddWithValue("@Nome", "Teste")
      Comando.ExecuteNonQuery() 'Executa a SQL
      Comando.Dispose() 'Fecha o comando
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
    
    
    Qualquer dúvida sobre o código é só da uma grito..xD

    Att. Osni
    Monday, February 21, 2011 5:12 PM
  • Cleiton, veja o link abaixo:

    http://www.linhadecodigo.com.br/artigo/147/Opera%C3%A7%C3%B5es-b%C3%A1sicas-com-Banco-de-dados-e-VBNET.aspx

    Abraço

    Estevam


    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    Monday, February 21, 2011 5:12 PM

All replies

  • Para executar comandos no banco você precisa de 2 coisas...

    1º - Uma conexão ativa com o banco;

    2º - Uma variavel de comando(Para Access é usado o OleDbComand);

    Um exemplo:

    Dim Comando As New OleDbCommand
    Dim ConexaoBD As New OleDbConnection
    Dim SenhaBD as String = ""
    Dim Sql As String
    
    Sql = "INSERT INTO Clientes(Nome) VALUES(@Nome)" 'Sql exemplo
    Try
      'Aqui será montada a sua conexão, dizendo onde está o banco
      'O comando: Application.StartupPath ira pegar na pasta em que o executavel está
      ConexaoBD = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source = '" & Application.StartupPath & "\BD_01.accdb" & "'; Jet OLEDB:Database Password = " & SenhaBD)
      ConexaoBD.Open()
    
      Comando = New OleDbCommand(Sql, ConexaoBD) 'Passando a SQL e a conexão
      Comando.Parameters.AddWithValue("@Nome", "Teste")
      Comando.ExecuteNonQuery() 'Executa a SQL
      Comando.Dispose() 'Fecha o comando
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
    
    
    Qualquer dúvida sobre o código é só da uma grito..xD

    Att. Osni
    Monday, February 21, 2011 5:12 PM
  • Cleiton, veja o link abaixo:

    http://www.linhadecodigo.com.br/artigo/147/Opera%C3%A7%C3%B5es-b%C3%A1sicas-com-Banco-de-dados-e-VBNET.aspx

    Abraço

    Estevam


    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    Monday, February 21, 2011 5:12 PM