• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ENDHE

[vb.Net 2003]Remover dados de Datagrid

4 mensagens neste tópico

Olá, estou com uma pequena dúvida,

estou a fazer uma aplicação onde trabalho com vb.net 2003 e ms access 2003

Já procurei aqui e econtrei algumas coisas parecidas mas que não são totalmente o que eu quero  :down:

não tou a conseguir remover dados da minha datagrid, como fazer?

O aspecto do meu form é o seguinte:

Datagrid1 e button1

Datagrid1 - Dados da minha tabela

Button1 - Botão de remoção

A minha ideia era a seguinte:

Um utilizador escolheria qual o campo que quer remover, seleccionando-o através da datagrid, apos o campo estar seleccionado o utilizador carregaria no button1 e esse mesmo campo seria eliminado.

neste momento estou a usar o seguinte código(que nao me esta a funcionar:():

No load inseri

OleDbDataAdapter1.Fill(Dataset1)

e no dito botão inseri

Try

OleDbConnection1.Open()

OleDbDataAdapter1.DeleteCommand.Parameters("ID").Value = Dataset1.Tabela.Rows(DataGrid1.CurrentRowIndex).Item("Id_Tabela")

OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()

Dataset1.Tabela.Rows.Clear()

OleDbDataAdapter1.Update(Dataset1)

OleDbDataAdapter1.Fill(Dataset1)

MessageBox.Show("Foi eliminado com sucesso", "Informação", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

Finally

OleDbConnection1.Close()

End Try

Espero que me tenham percebido :P

Agradecia a vossa ajuda :P

Um abraço

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas bem vindo ao fórum.

Sabes SQL?

Assumindo o id_Tabela se encontra na primeira coluna da datagrid1.

    Option Strict On
    Option Explicit On

   Imports System.Data
   Imports System.Data.OleDb
        
        Dim OleDbConnection1 As New OleDbConnection(constring)
        Dim OleDbDataAdapter1 As New OleDbDataAdapter
        Dim id_tabela As Int32
        Dim dataset1 As New DataSet
        id_tabela = Convert.ToInt32(Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 0))
        Try

            OleDbConnection1.Open()
           OleDbDataAdapter1.DeleteCommand.Connection = OleDbConnection1
            OleDbDataAdapter1.DeleteCommand.CommandType = CommandType.Text
            OleDbDataAdapter1.DeleteCommand.CommandText = "DELETE FROM nome_da_tabela WHERE ID = " & id_tabela
            OleDbDataAdapter1.DeleteCommand.ExecuteNonQuery()
            Dataset1.Tabela.Rows.Clear()
            OleDbDataAdapter1.Update(Dataset1)
            OleDbDataAdapter1.Fill(Dataset1)
            MessageBox.Show("Foi eliminado com sucesso", "Informação", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        Finally
            OleDbConnection1.Close()

        End Try

Deita fora o acess e faz download do MS SQL SERVER 2005 EXPRESS versão gratuita.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

    Option Strict On  
  Option Explicit On

para que serve isto??????

cumps.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

    Option Strict On  
  Option Explicit On

para que serve isto??????

cumps.

Boas.

Por defeito cada vez que crias um novo projecto esta a off.

O Option Explicit On obriga-te a declarar todas a variáveis.

O Option Strict On  obriga a fazer a conversão de tipos explicita o que aumenta o desempenho da app.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora