none
Criar Conexão com DataSet e Aplicar propriedades em botões RRS feed

  • Pergunta

  • ja criei um topico a respeito e nao obtive resultado esperado



    Bom, Criei um banco Access

    e criei algumas textbox e um batao para salvar avançar e voltar (VB 2008)


    agora eu preciso relacionar essas textbox com os campos do meu banco
    e dar as funçoes ao meus botões manualmente

    como faço isso ?


    obrigado.
    terça-feira, 20 de outubro de 2009 12:35

Respostas

  • Eu não sei como vc. está fazendo, mas quando vc diz que não consegue salvar, seria um novo registro né.
    Então crie um método incluirRegistro que ficaria assim: Tem ainda os métodos Alterar e Excluir

    public void IncluiNovoRegistro()
           {
              try
           {

              cnn = new OleDbConnection(conexao);
              cmd = cnn.CreateCommand();
              cmd.CommandText = "INSERT INTO [AGENDA TELEFONICA](AgNome, AgContato, AgTelefone, AgCelular)" +
                  "VALUES(?, ?, ?, ?)";
              cmd.Parameters.Add("?", OleDbType.VarChar, 50).Value = _nome;
              cmd.Parameters.Add("?", OleDbType.VarChar, 50).Value = _contato;
              cmd.Parameters.Add("?", OleDbType.VarChar).Value = _telefone;
              cmd.Parameters.Add("?", OleDbType.VarChar, 50).Value = _celular;
              cnn.Open();
              cmd.ExecuteNonQuery();
              }
              catch (Exception et)
              {
                  throw new Exception(et.Message);

              }
              finally
              {
                  if(cmd!=null)
                  {
                      cmd.Dispose();
                  }
                  if(cnn.State != ConnectionState.Closed)
                  {
                      cnn.Close();
                      cnn.Dispose();
                  }
              }

          }
         
           public void AlteraRegistro() {
               try
               {

                   cnn = new OleDbConnection(conexao);
                   cmd = cnn.CreateCommand();
                   cmd.CommandText = "UPDATE [AGENDA TELEFONICA] SET AgNome = ?, AgContato = ?, AgTelefone = ?, AgCelular = ? WHERE ID = ? ";
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _nome;
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _contato;
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _telefone;
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _celular;
                   cmd.Parameters.Add("?", OleDbType.Integer).Value = _id;
                  
                   cnn.Open();
                   cmd.ExecuteNonQuery();
               }
               catch (Exception et)
               {
                   throw new Exception(et.Message);

               }
               finally
               {
                   if (cmd!=null)
                   {
                       cmd.Dispose();
                   }
                   if (cnn.State != ConnectionState.Closed)
                   {
                       cnn.Close();
                       cnn.Dispose();
                   }

               }

           }
           // Método Exclui registro
           public void ExcluiRegistro()
           {
               try
               {
                   cnn = new OleDbConnection(conexao);
                   cmd = new OleDbCommand();
                   cmd.CommandText = "DELETE FROM [AGENDA TELEFONICA] WHERE ID = ?";
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _id;
                   cmd.Connection = cnn;
                   cnn.Open();
                   cmd.ExecuteNonQuery();
               }
               catch (Exception et)
               {
                   throw new Exception(et.Message);
               }
               finally
               {
                   if (cmd!=null)
                   {
                       cmd.Dispose();
                   }
                   if (cnn.State != ConnectionState.Closed)
                   {
                       cnn.Close();
                       cnn.Dispose();
                   }

               }
           }
    Nesse caso os métodos estão públicos porque não estão no formulário. É só vc. adaptar ao seu modo.


    J. Antunes
    • Marcado como Resposta Bruno Gaiola quinta-feira, 29 de outubro de 2009 10:44
    quarta-feira, 28 de outubro de 2009 19:18

Todas as Respostas

  • Vc pode utilizar o controle BindingNavigator, para isto ele ja vem com as funcionalidades de salvar editar, mover para o proximo registro, anterior.
    Vc só precisa configurar a conexao, criar um dataset do banco e vincular seu binding navigator com o dataset.
    sábado, 24 de outubro de 2009 12:55
  • não quero o binding navigator, quero meus aplicar as propriedades nos meus proprios botões.
    segunda-feira, 26 de outubro de 2009 10:26
  • Olá, Boa Tarde. O que vc. não tá conseguindo fazer é o código para buscar os dados quando vc. mover os registros para frente, para trás e buscar o primeiroi e último registo, é isso?

    J. Antunes
    terça-feira, 27 de outubro de 2009 16:49
  • Entao, é isso
    pra trás, pra frente e um novo   eu consigo

    nao consigo salvar

    e tambem nao consigo excluir


    e tambem queria saber como fazer um search
    q abrira uma list com todos os campos pra mim selecionar um
    dai ao selecionar abre os campos na textbox para mim alterar e etc
    quarta-feira, 28 de outubro de 2009 18:01
  • Eu não sei como vc. está fazendo, mas quando vc diz que não consegue salvar, seria um novo registro né.
    Então crie um método incluirRegistro que ficaria assim: Tem ainda os métodos Alterar e Excluir

    public void IncluiNovoRegistro()
           {
              try
           {

              cnn = new OleDbConnection(conexao);
              cmd = cnn.CreateCommand();
              cmd.CommandText = "INSERT INTO [AGENDA TELEFONICA](AgNome, AgContato, AgTelefone, AgCelular)" +
                  "VALUES(?, ?, ?, ?)";
              cmd.Parameters.Add("?", OleDbType.VarChar, 50).Value = _nome;
              cmd.Parameters.Add("?", OleDbType.VarChar, 50).Value = _contato;
              cmd.Parameters.Add("?", OleDbType.VarChar).Value = _telefone;
              cmd.Parameters.Add("?", OleDbType.VarChar, 50).Value = _celular;
              cnn.Open();
              cmd.ExecuteNonQuery();
              }
              catch (Exception et)
              {
                  throw new Exception(et.Message);

              }
              finally
              {
                  if(cmd!=null)
                  {
                      cmd.Dispose();
                  }
                  if(cnn.State != ConnectionState.Closed)
                  {
                      cnn.Close();
                      cnn.Dispose();
                  }
              }

          }
         
           public void AlteraRegistro() {
               try
               {

                   cnn = new OleDbConnection(conexao);
                   cmd = cnn.CreateCommand();
                   cmd.CommandText = "UPDATE [AGENDA TELEFONICA] SET AgNome = ?, AgContato = ?, AgTelefone = ?, AgCelular = ? WHERE ID = ? ";
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _nome;
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _contato;
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _telefone;
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _celular;
                   cmd.Parameters.Add("?", OleDbType.Integer).Value = _id;
                  
                   cnn.Open();
                   cmd.ExecuteNonQuery();
               }
               catch (Exception et)
               {
                   throw new Exception(et.Message);

               }
               finally
               {
                   if (cmd!=null)
                   {
                       cmd.Dispose();
                   }
                   if (cnn.State != ConnectionState.Closed)
                   {
                       cnn.Close();
                       cnn.Dispose();
                   }

               }

           }
           // Método Exclui registro
           public void ExcluiRegistro()
           {
               try
               {
                   cnn = new OleDbConnection(conexao);
                   cmd = new OleDbCommand();
                   cmd.CommandText = "DELETE FROM [AGENDA TELEFONICA] WHERE ID = ?";
                   cmd.Parameters.Add("?", OleDbType.VarChar).Value = _id;
                   cmd.Connection = cnn;
                   cnn.Open();
                   cmd.ExecuteNonQuery();
               }
               catch (Exception et)
               {
                   throw new Exception(et.Message);
               }
               finally
               {
                   if (cmd!=null)
                   {
                       cmd.Dispose();
                   }
                   if (cnn.State != ConnectionState.Closed)
                   {
                       cnn.Close();
                       cnn.Dispose();
                   }

               }
           }
    Nesse caso os métodos estão públicos porque não estão no formulário. É só vc. adaptar ao seu modo.


    J. Antunes
    • Marcado como Resposta Bruno Gaiola quinta-feira, 29 de outubro de 2009 10:44
    quarta-feira, 28 de outubro de 2009 19:18
  • cara, eu estou usando VB 8
    quarta-feira, 28 de outubro de 2009 19:19
  • Cara é só vc. converter. É fácil, fácil...


    J. Antunes
    quarta-feira, 28 de outubro de 2009 19:55
  • Cole o código nesse endereço, que ele faz a conversão para você

    http://www.carlosag.net/Tools/CodeTranslator/

    J. Antunes
    quarta-feira, 28 de outubro de 2009 20:13
  • não entendi o "id" 
    como vou fazer a declaração das variaveis ?

       Public Sub ExcluiRegistro()
            
    Try 
                
    cnn = New OleDbConnection(conexao)
                cmd 
    = New OleDbCommand
                cmd.CommandText 
    "DELETE FROM [AGENDA TELEFONICA] WHERE ID = ?"
                
    cmd.Parameters.Add("?", OleDbType.VarChar).Value _id
                cmd.Connection 
    cnn
                cnn.Open
                cmd.ExecuteNonQuery
            
    Catch et As Exception
                Throw New Exception
    (et.Message)
            
    Finally
                If 
    (Not (cmd) Is Nothing) Then
                    
    cmd.Dispose
                
    End If
                If 
    (cnn.State <> ConnectionState.Closed) Then
                    
    cnn.Close
                    cnn.Dispose
                
    End If
            End Try
        End Sub
    quinta-feira, 29 de outubro de 2009 11:29