Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - datagrid collegato ad acess
Forum - C# / VB.NET - datagrid collegato ad acess

Avatar
nightwolf (Normal User)
Rookie


Messaggi: 33
Iscritto: 14/09/2010

Segnala al moderatore
Postato alle 13:22
Venerdì, 08/04/2011
Questo topic è stato chiuso dal moderatore

ormai tutti credo che conoscete il mio problema è l'aggiornamento del database collegato ad un datagrid situato su un form diverso da dove viene l'aggiornamento:posto il codice(speriamo):
[Public Class Giornali

    Private Sub Giornali_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: questa riga di codice carica i dati nella tabella 'EdicolaDataSet1.Riviste'. È possibile spostarla o rimuoverla se necessario.
        Me.RivisteTableAdapter.Fill(Me.EdicolaDataSet1.Riviste)
        Me.DataGridView1.DataSource = Me.EdicolaDataSet1.Riviste

        DataGridView1.ReadOnly = True
        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = Me.DataGridView1.CurrentRow.Index
        Inserimento_Giornali.TextBox1.Text = Me.DataGridView1.Rows(i).Cells(0).Value
        Inserimento_Giornali.TextBox2.Text = Me.DataGridView1.Rows(i).Cells(1).Value
        Inserimento_Giornali.ComboBox1.Text = Me.DataGridView1.Rows(i).Cells(2).Value
        Inserimento_Giornali.TextBox3.Text = Me.DataGridView1.Rows(i).Cells(3).Value
        Inserimento_Giornali.TextBox5.Text = Me.DataGridView1.Rows(i).Cells(4).Value
        Inserimento_Giornali.ComboBox2.Text = Me.DataGridView1.Rows(i).Cells(5).Value
        Inserimento_Giornali.TextBox7.Text = Me.DataGridView1.Rows(i).Cells(6).Value
        Inserimento_Giornali.Show()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Inserimento_Giornali.Show()
    End Sub
End Class]

form2:
[Public Class Inserimento_Giornali

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub btnSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalva.Click
        Dim i As Integer = Giornali.DataGridView1.CurrentRow.Index
        If TextBox1.Text <> Giornali.DataGridView1.Rows(i).Cells(0).Value Then
            Giornali.DataGridView1.Rows(i).Cells(0).Value = TextBox1.Text

        ElseIf TextBox2.Text <> Giornali.DataGridView1.Rows(i).Cells(1).Value Then
            Giornali.DataGridView1.Rows(i).Cells(1).Value = TextBox2.Text

        ElseIf TextBox3.Text <> Giornali.DataGridView1.Rows(i).Cells(3).Value Then
            Giornali.DataGridView1.Rows(i).Cells(3).Value = TextBox3.Text

        ElseIf ComboBox1.Text <> Giornali.DataGridView1.Rows(i).Cells(2).Value Then
            Giornali.DataGridView1.Rows(i).Cells(2).Value = ComboBox1.Text

        ElseIf TextBox5.Text <> Giornali.DataGridView1.Rows(i).Cells(4).Value Then
            Giornali.DataGridView1.Rows(i).Cells(4).Value = TextBox5.Text

        ElseIf ComboBox2.Text <> Giornali.DataGridView1.Rows(i).Cells(5).Value Then
            Giornali.DataGridView1.Rows(i).Cells(5).Value = ComboBox2.Text

        ElseIf TextBox7.Text <> Giornali.DataGridView1.Rows(i).Cells(6).Value Then
            Giornali.DataGridView1.Rows(i).Cells(6).Value = TextBox7.Text

        End If
        Giornali.RivisteTableAdapter.update(Giornali.EdicolaDataSet1.Riviste)

        Me.Close()
    End Sub
    
End Class]
ps:speriamo che vadi bene

PM
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 13:25
Venerdì, 08/04/2011
Questo topic è in violazione di una o più norme del regolamento: http://www.pierotofy.it/pages/extras/forum/9/3839-regolame ... .
    
Dopo averlo letto riapri un nuovo topic assicurandoti di aver rispettato le regole. Grazie per la tua pazienza.


"Infelici sono quelli che hanno tanto cervello da vedere la loro stupidità."
(Fligende Blatter)

"Dubitare di se stessi è il primo segno d'intelligenza."
(Ugo Ojetti)
PM