none
Deletar (resetar) banco de dados VB RRS feed

  • Pergunta

  • Gostaria de saber qual código para que ao clicar, resetar (limpar) o banco de dados, ou seja, não apagar o banco de dados mas sim todos os campos de todas as colunas, limpar tudo.

    Banco de Dados: bd_eleete

    Tabela: Eleitores

    domingo, 30 de dezembro de 2012 00:33

Respostas

  • dentro da função de um botao coloque este codigo , verifique se n precisa adaptar nd  ;)

    Me.EleitoresTableAdapter.Fill(Me.bd_eleeteDataSet.Eleitores)
            For i = 0 To Me.EleitoresBindingSource.Count - 1
                Me.EleitoresBindingSource.RemoveCurrent()
            Next
            Me.Validate()
            Me.EleitoresBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.bd_eleeteDataSet)

    a principio deve funcionar ;)

    espero q ajude 


    AleSaggiorato

    domingo, 30 de dezembro de 2012 01:21

Todas as Respostas

  • primeiro  de tudo qual o banco de dados que esta usando ? , nome do banco de dados ? , nome da tabela que esta querendo apagar todos os dados ?

    supondo que seja MySql ! e que o nome do Banco de dados é BD , e da tabela é T

    public class form1

     Dim Adapter As New MySqlDataAdapter
     Dim Command As New MySqlCommand
     Dim Data As New DataTable
     Dim Connection As New MySqlConnection

    private sub Form1_load (byval sender as object, e as eventargs) handles mybase.load

    If Connection.State = ConnectionState.Closed Then
    Connection.ConnectionString = "Server = localhost; userid = root; Password = xxx;Database = DB;"
    End If
    Connection.Open()

    end sub

    private sub button1_click (byval sender as object, e as eventargs) handles button1.click

    dim StrSql as string = "delete from T"

     Command.CommandText = StrSql
            Command.Connection = Connection
            Adapter.SelectCommand = Command
            Command.ExecuteNonQuery()

    end sub

    end class

    espero ter ajudado , com as poucas informações que tu passou uashauhsua ;)


    AleSaggiorato

    domingo, 30 de dezembro de 2012 00:45
  • Tipo de BD: Access (.accbd)

    Nome BD: bd_eleete

    Nome Tabela: Eleitores

    Esqueci =/

    domingo, 30 de dezembro de 2012 00:57
  • dentro da função de um botao coloque este codigo , verifique se n precisa adaptar nd  ;)

    Me.EleitoresTableAdapter.Fill(Me.bd_eleeteDataSet.Eleitores)
            For i = 0 To Me.EleitoresBindingSource.Count - 1
                Me.EleitoresBindingSource.RemoveCurrent()
            Next
            Me.Validate()
            Me.EleitoresBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.bd_eleeteDataSet)

    a principio deve funcionar ;)

    espero q ajude 


    AleSaggiorato

    domingo, 30 de dezembro de 2012 01:21