Query INSERT non aggiorna il campo con Reader

di
Anonimizzato27099
il
2 risposte
/
Anonimizzato27099
Utente anonimizzato

Query INSERT non aggiorna il campo con Reader

Ciao a tutti, sono nuovo del forum e volevo salutare tutti.
Volevo anche porvi una domanda un po' strana.
Io lavoro con Win10 e ho installato VB Community 2019.
Sto lavorando con database ADO e ho fatto la seguente query indentata: 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim dbComm As OleDbCommand = dbConn.CreateCommand
        Dim dbCom1 As OleDbCommand = dbConn.CreateCommand
        Dim r As OleDbDataReader
        Dim sSql As String
        Dim iSett As Integer
        Dim iGior As Integer

        iGior = DateTime.Now.DayOfWeek
        iSett = iNumeroSettimana(Now.ToShortDateString) Mod 4
        iSett = iSett + 1
        sSql = "SELECT descrizione "
        If Month(DateTime.Now.ToShortDateString) < 7 Or Month(DateTime.Now.ToShortDateString) > 9 Then
            sSql = sSql & "FROM mansionario1 "
        Else
            sSql = sSql & "FROM mansionario2 "
        End If
        sSql = sSql & "WHERE settimana = " & iSett & " AND giorno = " & iGior
        sSql = sSql & " ORDER BY id_ordine"

        dbConn.Open()
        dbComm.CommandType = CommandType.Text
        dbComm.CommandText = sSql
        r = dbComm.ExecuteReader
        dbCom1.CommandType = CommandType.Text
        dbCom1.CommandText = "INSERT INTO scadenze (titolo, descrizione, data_ins, data_scad, data_esec, annotazione, priorita) VALUES (?, ?, ?, ?, ?, ?, ?)"
        While r.Read
            dbCom1.Parameters.Add("@titolo", OleDbType.Char, 255).Value = r(0)
            dbCom1.Parameters.Add("@descrizione", OleDbType.Char, 255).Value = ""
            dbCom1.Parameters.Add("@data_ins", OleDbType.Date).Value = FirstData
            dbCom1.Parameters.Add("@data_scad", OleDbType.Date).Value = LastData
            dbCom1.Parameters.Add("@data_esec", OleDbType.Date).Value = "31/12/1999"
            dbCom1.Parameters.Add("@annotazione", OleDbType.Char, 255).Value = ""
            dbCom1.Parameters.Add("@priorita", OleDbType.Numeric).Value = 3
            dbCom1.ExecuteNonQuery()
        End While
        r.Close()
        dbConn.Close()
Il problema che ho si rivela condbCom1.Parameters.Add("@titolo", OleDbType.Char, 255).Value = r(0) perchè i valori che mette nelle diverse righe sono sempre gli stesso (facendo però l'inserimento nella tabella di un numero corretto di record).
Ho provato a inserire una msgbox(r(0)) e mi restituisce valori corretti alla msgbox ma nella query INSERT no!
Non so veramente cosa fare.

Grazie di cuore a tutti e buona programmazione.

2 Risposte

  • /
    Anonimizzato27116
    Utente anonimizzato

    Re: Query INSERT non aggiorna il campo con Reader

    Scusa perchè l'inserimento non lo fai direttamente in questo modo? 
    
Dim MyCommand As OleDbCommand
Dim MyConnection As OleDbConnection
MyConnection = New OleDbConnection(ParametriStringaConnessione)
MyConnection.Open()

Sim sqlstr as string
sqlstr="INSERT INTO scadenze (titolo, descrizione, data_ins, data_scad, data_esec, annotazione, priorita) VALUES (valore1,valore 2 ecc ecc)"

MyCommand = New OleDbCommand(sqlstr, MyConnection)
MyCommand.ExecuteNonQuery()

MyConnection.Close()
MyConnection = Nothing

MyCommand = Nothing
    inoltre io lavorerei sui datatable per poi fare il loop nello datatable
      Dim MyDataAdapter As OleDb.OleDbDataAdapter
        Dim MyDatasetArchivi As DataSet

        MyDataAdapter = New OleDb.OleDbDataAdapter(sqlstr, MyConnection)

        MyDatasetArchivi = New DataSet
        MyDataAdapter.Fill(MyDatasetArchivi)

         MyDatasetArchivi.Tables(0) ' Questo è il datatable risultante
    e fai un loop sul datatable
    Dim MyDataTable As DataTable
        MyDataTable = MyDatasetArchivi.Tables(0)

for i=0 to MyDataTable.rows.count

'valore datatable
MyDataTable.Rows(i).Item("NomeCOlonna").ToString

next
    scusa ho scritto di botto, spero ti sia utile
  • /
    Anonimizzato27099
    Utente anonimizzato

    Re: Query INSERT non aggiorna il campo con Reader

    Si, hai ragione, ho risolto con query più dinamiche e meno giri di codice.
    Grazie
Devi accedere o registrarti per scrivere nel forum
2 risposte