PROGRAMERO

Finalizando nossa classe (não esqueçam do método getDataTable ) criaremos um método para realizar atualizações em tabelas com comando DML como INSERT, UPDATE E DELETE: //         //executa INSERT, UPDATE ou DELETE         public int execSQL( String sql)         {             //             //se a conexão estiver fechada abre             if (con.State.ToString().Equals( "Closed" ))             {                 abreCon();             }             //             int res = 0;             //             //monta sql no command             using ( OleDbCommand cmd = new OleDbCommand (sql, con))             {                 cmd.CommandType = CommandType .Text;                 //                 //executa SQL                 try                 {                     res = cmd.ExecuteNonQuery();                 }                 catch                 {                 }                 //                 //finaliza objetos                 cmd.Dispose();             }       

Nesse exemplo temos uma lista de itens em um ComboBox e quando clicamos no botao inserir o ListBox é verificado, caso não haja um item igual ele insere, e o botao remove faz o oposto, verifica se o item existe, caso exista ele é removido. Baixe aqui o exemplo. procedure TForm1.InserirClick(Sender: TObject); var v_i: integer; v_a: boolean; begin //VERIFICA SE JÁ EXISTE ALGUM ITEM IGUAL, SE TIVER NÃO INSERE TRY FOR v_i := 0 TO ListBox1.Items.Count-1 DO BEGIN IF ComboBox1.Text = ListBox1.Items[v_i] THEN BEGIN v_a := TRUE; Break; END ; END ; IF v_a = FALSE THEN ListBox1.Items.Add(ComboBox1.Text); EXCEPT END ; end; procedure TForm1.RemoverClick(Sender: TObject); var v_i: integer; begin //VERIFICA SE JÁ EXISTE ALGUM ITEM IGUAL, SE TIVER DELETA TRY FOR v_i := 0 TO ListBox1.Items.Count-1 DO BEGIN IF ComboBox1.Text = ListBox1.Items[v_i] THEN ListBox1.Items.Delete(v_i); END ; EXCEPT END ; end ;