Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Mar 2008
    Messaggi
    41

    update textbox

    ho un progetto in vb.net, collegato a un db tramite dataadapter, dataset, dataview.

    sono in panne con aggiornamento dei campi.......
    aggiornando delle textbox da vb vorrei che automaticamente nel db si aggiornassero i campi.

    come faccio?????

  2. #2
    Utente di HTML.it
    Registrato dal
    Mar 2008
    Messaggi
    41
    ho inserito il codice ad un button, ma non funziona mi da errore, chi mi dice dove è errore????
    Private Sub btSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btSalva.Click
    Dim Esito As MsgBoxResult
    'Esito = MsgBox("Confermi i dati inseriti ?", MsgBoxStyle.YesNoCancel)
    Esito = MsgBoxResult.Yes
    If Esito = MsgBoxResult.Yes Then
    Dim Logrow As dsSubVettori.RegistroRow
    Logrow = DsSubVettori.Registro.NewRegistroRow
    Logrow.DatReg = Now

    If rb_insAzienda.Checked Then
    ' Inserire la nuova Azienda
    Dim row As dsSubVettori.AziendaRow = DsSubVettori.Azienda.AddAziendaRow(ins_Azienda.Tex t)
    daAzienda.Update(DsSubVettori)
    Logrow.idAzienda = row.idAzienda
    Else
    Logrow.idAzienda = sel_Azienda.SelectedValue
    End If

    If rb_insAutista.Checked Then
    ' Inserire il nuovo autista
    Dim row As dsSubVettori.AutistaRow
    row = DsSubVettori.Autista.NewAutistaRow
    row.idAzienda = Logrow.idAzienda
    row.CognomeNome = ins_CognomeNome.Text
    row.ScadenzaPatente = ins_ScadenzaPatente.Value
    row.ScadenzaPatenteADR = ins_ScadenzaPatenteADR.Value
    DsSubVettori.Autista.Rows.Add(row)
    daAutista.Update(DsSubVettori)
    Logrow.idAutista = row.idAutista
    Else
    Logrow.idAutista = sel_Autista.SelectedValue
    End If

    If rb_modAutista.Checked Then
    'aggiornare modifche
    Dim rowup As dsSubVettori.AutistaRow
    rowup = DsSubVettori.Autista.NewRow
    rowup.CognomeNome = ins_CognomeNome.Text
    rowup.ScadenzaPatente = ins_ScadenzaPatente.Value
    rowup.ScadenzaPatenteADR = ins_ScadenzaPatenteADR.Value
    DsSubVettori.Autista.Rows.Add()
    daAutista.Update(DsSubVettori, "Autista")
    End If

  3. #3
    Utente di HTML.it
    Registrato dal
    Mar 2008
    Messaggi
    41
    ho provato anche cosi ma nulla....
    Dim tabAutista As DataTable
    tabAutista = DsSubVettori.Tables("Autista")
    tabAutista.Rows(0)("CognomeNome") = "Cognome modificato"
    Dim cmdAutista As New OleDbCommandBuilder(daAutista)
    daAutista.UpdateCommand = cmdAutista.GetUpdateCommand
    daAutista.Update(DsSubVettori, "Autista")
    DsSubVettori.AcceptChanges()

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.