[es] - Vb datagridview row delete

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

^{17.02.2010. u 10:05 - pre 172 meseci}

Bok,

ne znam kako izbrisati red iz tablice ( uz pomoć delete button-a) koji je odabran u datagridview-u.

Svaki primjer ili savjet je dobrodošao :) , hvala.

Odgovor na temu

malo_nj
novi sad

Član broj: 140825
Poruke: 104
*.dynamic.sbb.rs.

Sajt: www.2advanced.com

Profil

Re: Vb datagridview row delete

^{19.02.2010. u 13:40 - pre 172 meseci}

DataGridView1.Rows.Remove(DataGridView1.CurrentRow)

Odgovor na temu

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

Re: Vb datagridview row delete

^{19.02.2010. u 14:47 - pre 172 meseci}

Hvala na odgovoru, ali to briše zapis samo iz dw-a, ne i iz same tablice...

Odgovor na temu

malo_nj
novi sad

Član broj: 140825
Poruke: 104
*.dynamic.sbb.rs.

Sajt: www.2advanced.com

Profil

Re: Vb datagridview row delete

^{19.02.2010. u 16:09 - pre 172 meseci}

Code:

DataTable dt = new DataTable();
dt.Rows.RemoveAt(dataGridView1.CurrentRow.Index);

pokusaj ovako mada nisam siguran da li se datatable rows indexi poklapaju sa datagridview rows

Odgovor na temu

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

Re: Vb datagridview row delete

^{19.02.2010. u 16:45 - pre 172 meseci}

morao sam malo promijeniti sintaxu : Dim dt As New DataTable()

nakon pokušaja brisanja se javi ova greška : There is no row at position 300.

Odgovor na temu

malo_nj
novi sad

Član broj: 140825
Poruke: 104
*.dynamic.sbb.rs.

Sajt: www.2advanced.com

Profil

Re: Vb datagridview row delete

^{19.02.2010. u 17:00 - pre 172 meseci}

ma ne trebas ti praviti novi datatable nego obrisi iz staroga onoga koji vec koristis

Odgovor na temu

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

Re: Vb datagridview row delete

^{23.02.2010. u 08:56 - pre 172 meseci}

ok, ali ne razumijem baš kako to napraviti, vjerujem da je greška negdje u sintaxi jer čim upišem tvoj kod automatski dobijem ispravak koji izgleda ovako:

DataTable(dt = New DataTable()) s greškom "Data Type is a type and cannot be used as an expression"

Odgovor na temu

malo_nj
novi sad

Član broj: 140825
Poruke: 104
*.dynamic.sbb.rs.

Sajt: www.2advanced.com

Profil

Re: Vb datagridview row delete

^{23.02.2010. u 12:53 - pre 172 meseci}

mijenja ti moj kod jer je kod mene C# a ne VB# .

Ajd sad polako kako ti se zove datatable ili ga nemas nego direktno iz baze popunjavas data grid view

Odgovor na temu

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

Re: Vb datagridview row delete

^{23.02.2010. u 14:59 - pre 172 meseci}

aha, ok, zove se ImenikDataSet

hvala na strpljenju, ne znam puno toga...

Odgovor na temu

malo_nj
novi sad

Član broj: 140825
Poruke: 104
*.dynamic.sbb.rs.

Sajt: www.2advanced.com

Profil

Re: Vb datagridview row delete

^{23.02.2010. u 17:28 - pre 172 meseci}

a taj dataset punis kako? wizzard ili si ti pisao kod za to?

Odgovor na temu

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

Re: Vb datagridview row delete

^{23.02.2010. u 17:47 - pre 172 meseci}

wizzard

Odgovor na temu

malo_nj
novi sad

Član broj: 140825
Poruke: 104
*.dynamic.sbb.rs.

Sajt: www.2advanced.com

Profil

Re: Vb datagridview row delete

^{23.02.2010. u 21:00 - pre 172 meseci}

Code:

Dim strDelete As String = "DELETE FROM TBL_NAME WHERE colname = "+ dataGridView1.CurrentRow.Cells[0].Value;
Dim cmdDelete As New OleDbCommand(strDelete, cnn)
da.DeleteCommand = cmdDelete

DataRow rowDel = menikDataSet.Tables[TBL_NAME].Rows[dataGridView1.CurrentRow.Index];
ImenikDataSet.Tables[TBL_NAME].Rows.Remove(rowDel);
ad.Update(ds.Tables[TBL_NAME]);

TBL_NAME ti je ime tabele iz koje brises

da ti je ime data adaptera koji koristis

cnn conection string na bazu

dataGridView1.CurrentRow.Cells[0].Value kontam da ti je u prvoj koloni neki broj koji jedinstveno prestavlja taj red

columnname ime te prve kolone

Odgovor na temu

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

Re: Vb datagridview row delete

^{25.02.2010. u 10:03 - pre 172 meseci}

javljaju se 2 greske:

1. ImenikTableAdapter.DeleteCommand = cmdDelete - DeleteCommand nije prihvacena
2. DataRow rowDel - sto ide u ovaj razmak, nesto fali, ili sam ja u krivu?

Citav kod mi izgleda ovako:

Code:

            Dim strDelete As String = "DELETE * FROM Imenik WHERE ID = " + DataGridView1.CurrentRow.Cells(0).Value
            Dim cnn As New OleDb.OleDbConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Imenik;Persist Security Info=True;Integrated Security=True")
            Dim cmdDelete As New OleDb.OleDbCommand(strDelete, cnn)
            Dim da As New ImenikDataSetTableAdapters.ImenikTableAdapter
            ImenikTableAdapter.DeleteCommand = cmdDelete

            DataRow rowDel = ImenikDataSet.Imenik.Rows(DataGridView1.CurrentRow.Index))
            ImenikDataSet.Imenik.Rows.Remove(rowDel)
            ImenikTableAdapter.Update(ImenikDataSet.Imenik)

Odgovor na temu

malo_nj
novi sad

Član broj: 140825
Poruke: 104
*.dynamic.sbb.rs.

Sajt: www.2advanced.com

Profil

Re: Vb datagridview row delete

^{25.02.2010. u 19:55 - pre 172 meseci}

pod 2. moras sa sa Dim rowDelete As DataRow. Ovo prvo stvarno ne znam sta bi moglo biti data adapter bi trebao da ima delete commandu. Ako je nema mozes ti i rucno obrisati iz baza koristeci tu istu SQL komandu samo onda ne uradis data adapter update

Odgovor na temu

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

Re: Vb datagridview row delete

^{28.02.2010. u 10:02 - pre 172 meseci}

ne znam ni ja, nije mi jasno
napravio sam nesto drugo ali zadnji korak ne radi, tje ne brise nista, mozda ti vidis gdje grijesim :

Code:

        Dim msg As String
        Dim title As String
        Dim style As MsgBoxStyle
        Dim response As MsgBoxResult
        msg = "Da li zaista želite obrisati kontakt '" + Trim(txtIme.Text) + " " + txtPrezime.Text + " " + txtTvrtka.Text + "' ?"
        style = MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNoCancel
        title = "UPOZORENJE"
        response = MsgBox(msg, style, title)

        Try

            If response = MsgBoxResult.Yes Then
                Dim da As New SqlClient.SqlDataAdapter("Delete * from Imenik where ID = " + Trim(txtID.Text) + "", conn)
                msg = "Kontakt uspješno obrisan!"
                style = MsgBoxStyle.Information Or MsgBoxStyle.OkOnly
                title = "Obavijest"
            Else

            End If

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

jednostavno se nista ne dogodi niti dobijem povratnu info da je negdje greska

Odgovor na temu

malo_nj
novi sad

Član broj: 140825
Poruke: 104
*.dynamic.sbb.rs.

Sajt: www.2advanced.com

Profil

Re: Vb datagridview row delete

^{28.02.2010. u 11:23 - pre 172 meseci}

Kao prvo
Dim da As New SqlClient.SqlDataAdapter("Delete * from Imenik where ID = " + Trim(txtID.Text) + "", conn)

ce ti postaviti SELECT upit.

Drugo delte se pise ovako bez zvijezdice

"DELETE FROM IMENIK WHERE ID="

I treca stvar ti je pa i nisi nista uradio ti si samo deklarisao DataAdapter.

Ajde ovako zakaci mi ti svoj projekat i ja cu ga prepraviti. Mislim da znam gdje grijesis ali moram da vidim kompletnu tu klasu.

Odgovor na temu

bukwa

Član broj: 241308
Poruke: 16
*.dsl.optinet.hr.

Profil

Re: Vb datagridview row delete

^{01.03.2010. u 10:10 - pre 172 meseci}

Shvatio sam i uspio obrisati zapis iz baze.
Samo sad jos da skuzim zasto ne pokazuje potvrdni message box da je podatak obrisan.

_{[Ovu poruku je menjao bukwa dana 01.03.2010. u 11:36 GMT+1]}

Odgovor na temu