Ciao a tutti, avrei un problema che spero a qualcuno venga un'idea
Ho all'interno di un mio programma una routine come segue
Function scrivi_dati(ByVal sql As String) As Integer
cn1.Open()
Dim cmd1 As New OleDbCommand
cmd1.Connection = cn1
cmd1.CommandText = sql
Dim r As Integer
r = cmd1.ExecuteNonQuery
cn1.Close()
End Function
A questo tramite la variabile string passo delle istruzioni sql da eseguire ad esempio

UPDATE tabella SET campo = 1



perciò avrò:

sql="UPDATE tabella SET campo = 1"
dim c as integer=scrivi_dati(sql)


poi il programma continua con ad esempio

sql = "SELECT from tabella where campo=1"
Dim r As Integer, i As Integer = 0
Dim cmd4 As New OleDbCommand(sql, cn)

ecc.ecc

il problema è il seguente:
facciamo un esempio limite supponiamo che la tabella sia composta da 30000 record si verifica questo:

il programma va sulla select mentre sta ancora finendo la funzione di update e perciò mi restituisce una situazione non aggiornata

Spero di essere stato chiaro: qualcuno ha qualche idea?

grazie
Daniele