none
Inserir um registro na tabela RRS feed

  • Pergunta

  • Pessoal...

     

    Estou na luta aqui com meus estudos...

     

    E enrosquei em mais um probleminha:

     

    Sei que com isto eu consigo ler dados em uma tabela:

     

    Dim ConString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=ConexãoBancoDados.accdb; Persist Security Info =False; "

    Dim DBCon As New OleDb.OleDbConnection(ConString)

    Dim strsql As String = "SELECT * FROM [Tab_Entrada Itens]"

    Dim cm As New OleDb.OleDbCommand(strsql, DBCon)

    Dim dr As OleDb.OleDbDataReader

    DBCon.Open()

    dr = cm.ExecuteReader

    dr.Read

     

     

    Mas meu problema agora é...

     

    Como faço para GRAVAR dados na tabela?!?

     

    Estou a procura na internet aqui... Mas até agora não achei nada...

     

    Alguém poderia me dar uma dica?

     

    Obrigado.

    segunda-feira, 26 de setembro de 2011 21:06

Respostas

  • A maioria dos códigos que o Macoratti usa são em VB.NET . Inclusive ele é referencia em VB.NET .

    Para converter o código você pode utilizar o link: http://www.developerfusion.com/tools/convert/csharp-to-vb/

     

    Veja: http://social.msdn.microsoft.com/Forums/pt-BR/aspnetpt/thread/d90f326b-9fb0-4dbe-8a7a-31d71f8d35f1/

    Vale a pena tbm: http://msdn.microsoft.com/pt-br/library/cc580610.aspx

    Fiz um exemplo básico:

     

    OleDbConnection conexao = new OleDbConnection(@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Projetos\BD_MSDN.mdb");
    OleDbCommand comando = new OleDbCommand("INSERT INTO USUARIO (NOME,EMAIL) VALUES (@PARAMETRO_NOME,@PARAMETRO_EMAIL)",conexao);
               
    comando.Parameters.Add(new OleDbParameter("@PARAMETRO_NOME", "Paulo Viana"));
    comando.Parameters.Add(new OleDbParameter("@PARAMETRO_EMAIL", "pcfviana@gmail.com"));
    
    try
       {
             conexao.Open();
             comando.ExecuteNonQuery();
             conexao.Close();
       }
    catch (Exception)
       {                
             throw;
       }
    

     


    Agora em VB.NET:

     

    Dim conexao As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Projetos\BD_MSDN.mdb")
    Dim comando As New OleDbCommand("INSERT INTO USUARIO (NOME,EMAIL) VALUES (@PARAMETRO_NOME,@PARAMETRO_EMAIL)", conexao)
    
    comando.Parameters.Add(New OleDbParameter("@PARAMETRO_NOME", "Paulo Viana"))
    comando.Parameters.Add(New OleDbParameter("@PARAMETRO_EMAIL", "pcfviana@gmail.com"))
    
    Try
    	conexao.Open()
    	comando.ExecuteNonQuery()
    	conexao.Close()
    Catch generatedExceptionName As Exception
    	Throw
    End Try
    
    


     


    --
    Marque as respostas e ajude a melhorar a busca do fórum. pcfviana@gmail.com


    quarta-feira, 28 de setembro de 2011 19:33
  • Oooo Paulo.. muito obrigado pela força,...

     

    Enquanto vc tava fazendo o exemplo aí... eu estava quebrando a cabeça aqui e tb cheguei a um resultado. Acho q não tão bom quanto o seu aí q é passado por parâmetros.

     

    Mas o que eu precisava era isso aqui:

     

            Dim ConString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=E:\Teste Gravar Dados\WindowsApplication1\DataBase.accdb; Persist Security Info =False; "
    
            Dim DBCon As New OleDb.OleDbConnection(ConString)
    
            DBCon.Open()
    
            Dim cmd As New OleDb.OleDbCommand("INSERT INTO Tabela1 (nome) VALUES ('Andre')", DBCon)
    
            cmd.ExecuteNonQuery()

     

    Vou batalhar agora para adaptar ao meu sistema aqui...

     

    Muito obrigado!

     

    Abraço! :D

    • Marcado como Resposta André Maretti quinta-feira, 29 de setembro de 2011 20:10
    quarta-feira, 28 de setembro de 2011 20:10

Todas as Respostas

  • Veja:

    Nesta série de post's tem tudo o que você precisa saber para conseguir inserir (insert) / alterar (update) e deletar (delete):

    http://www.macoratti.net/08/11/c_adn_1.htm

     

    Veja ainda: http://www.macoratti.net/aspn_wm1.htm

    http://www.macoratti.net/vbn_prvd.htm


    --
    Marque as respostas e ajude a melhorar a busca do fórum.
    terça-feira, 27 de setembro de 2011 01:10
  • Andei olhando o link: http://www.macoratti.net/08/11/c_adn_1.htm

     

    Ainda estou na primeira parte. Onde ele explica os conceitos. Acredito q tenho entendido tudo numa boa e vou continuar lendo os próximos capítulos para pegar bem os conceitos. 

     

    Porém vi que o autor usa linguagem C#... será q vou conseguir desenvolver algo usando o VisualBasic?

     

    Se alguém tiver mais alguma dica... pq eu preciso apenas escrever uma informação em uma tabela Access...

     

    Coloquei o exemplo acima de como eu faço para ler os dados.. Mas gravar ainda não consegui.

     

    Se alguém puder me ajudar... eu agradeço.

    quarta-feira, 28 de setembro de 2011 18:33
  • A maioria dos códigos que o Macoratti usa são em VB.NET . Inclusive ele é referencia em VB.NET .

    Para converter o código você pode utilizar o link: http://www.developerfusion.com/tools/convert/csharp-to-vb/

     

    Veja: http://social.msdn.microsoft.com/Forums/pt-BR/aspnetpt/thread/d90f326b-9fb0-4dbe-8a7a-31d71f8d35f1/

    Vale a pena tbm: http://msdn.microsoft.com/pt-br/library/cc580610.aspx

    Fiz um exemplo básico:

     

    OleDbConnection conexao = new OleDbConnection(@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Projetos\BD_MSDN.mdb");
    OleDbCommand comando = new OleDbCommand("INSERT INTO USUARIO (NOME,EMAIL) VALUES (@PARAMETRO_NOME,@PARAMETRO_EMAIL)",conexao);
               
    comando.Parameters.Add(new OleDbParameter("@PARAMETRO_NOME", "Paulo Viana"));
    comando.Parameters.Add(new OleDbParameter("@PARAMETRO_EMAIL", "pcfviana@gmail.com"));
    
    try
       {
             conexao.Open();
             comando.ExecuteNonQuery();
             conexao.Close();
       }
    catch (Exception)
       {                
             throw;
       }
    

     


    Agora em VB.NET:

     

    Dim conexao As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Projetos\BD_MSDN.mdb")
    Dim comando As New OleDbCommand("INSERT INTO USUARIO (NOME,EMAIL) VALUES (@PARAMETRO_NOME,@PARAMETRO_EMAIL)", conexao)
    
    comando.Parameters.Add(New OleDbParameter("@PARAMETRO_NOME", "Paulo Viana"))
    comando.Parameters.Add(New OleDbParameter("@PARAMETRO_EMAIL", "pcfviana@gmail.com"))
    
    Try
    	conexao.Open()
    	comando.ExecuteNonQuery()
    	conexao.Close()
    Catch generatedExceptionName As Exception
    	Throw
    End Try
    
    


     


    --
    Marque as respostas e ajude a melhorar a busca do fórum. pcfviana@gmail.com


    quarta-feira, 28 de setembro de 2011 19:33
  • Oooo Paulo.. muito obrigado pela força,...

     

    Enquanto vc tava fazendo o exemplo aí... eu estava quebrando a cabeça aqui e tb cheguei a um resultado. Acho q não tão bom quanto o seu aí q é passado por parâmetros.

     

    Mas o que eu precisava era isso aqui:

     

            Dim ConString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=E:\Teste Gravar Dados\WindowsApplication1\DataBase.accdb; Persist Security Info =False; "
    
            Dim DBCon As New OleDb.OleDbConnection(ConString)
    
            DBCon.Open()
    
            Dim cmd As New OleDb.OleDbCommand("INSERT INTO Tabela1 (nome) VALUES ('Andre')", DBCon)
    
            cmd.ExecuteNonQuery()

     

    Vou batalhar agora para adaptar ao meu sistema aqui...

     

    Muito obrigado!

     

    Abraço! :D

    • Marcado como Resposta André Maretti quinta-feira, 29 de setembro de 2011 20:10
    quarta-feira, 28 de setembro de 2011 20:10
  • Marque a resposta, caso tenha lhe ajudado.


    --
    Marque as respostas e ajude a melhorar a busca do fórum. pcfviana@gmail.com
    quarta-feira, 28 de setembro de 2011 20:15