Intendevo dati 2 db con medesima struttura uno pieno uno vuoto devo passare i dati da un db all'altro.
questo è il codice !nn ho trovato nessuna funzione gia' fatta
Sub Eacquisti()
dataevent = DateTimePicker3.Value.Date
dataevent2 = DateTimePicker8.Value.Date
indice2e = 0
objConn.Open()
strsql = ("select [utente],negozio,tipo,quantitativo,prezzototale,motivazione,PU,data,ID from acquisti where year(DATA)>=" & dataevent.Year & " and day(DATA)>=" & dataevent.Day & " and month(DATA)>=" & dataevent.Month & " and year(DATA)<=" & dataevent2.Year & " and day(DATA)<=" & dataevent2.Day & " and month(DATA)<=" & dataevent2.Month & " ")
Dim objCommand As New OleDbCommand(strsql, objConn)
areader = objCommand.ExecuteReader()
While (areader.Read())
v1e(indice2e) = (areader.GetString(0))
v2e(indice2e) = (areader.GetString(1))
v3e(indice2e) = (areader.GetString(2))
v4e(indice2e) = (areader.GetDouble(3))
v5e(indice2e) = (areader.GetValue(4))
v6e(indice2e) = (areader.GetString(5))
v7e(indice2e) = (areader.GetValue(6))
v8e(indice2e) = (areader.GetDateTime(7))
v9e(indice2e) = (areader.GetInt32(8))
indice2e = indice2e + 1
End While
indicearrivoe = indice2e - 1
Label71.Text = indicearrivoe
objConn.Close()
indice2e = 0
objConn2.Open()
While (indice2e <= indicearrivoe)
strsql = "Insert into acquisti ([utente],negozio,tipo,quantitativo,prezzototale,motivazione,data,PU,ID) VALUES ('" & v1e(indice2e) & "', '" & v2e(indice2e) & "','" & v3e(indice2e) & "','" & v4e(indice2e) & "','" & v5e(indice2e) & "','" & v6e(indice2e) & "','" & v8e(indice2e) & "','" & v7e(indice2e) & "'," & v9e(indice2e) & ") "
eseguisql2(strsql)
indice2e = indice2e + 1
End While
objConn2.Close()
End Sub
BINO