Ringrazio nuovamente del vostro aiuto e mi scuso per non avervi fornito più elementi su cui riflettere.
Allora, questa è la routine che utilizzo in fase di apertura maschera per risalire, ad esempio, all'ultimo numero di "motore" caricato....
'RECUPERO NUMERO MOTORE DA TABELLA NumMot
Dim DBConn As New OleDb.OleDbConnection
Dim Cmd As OleDb.OleDbCommand
Dim DR As OleDb.OleDbDataReader
Dim rsQry As String
DBConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &
"Data Source=C:\MieiSW\SwUno\DRAGG_be.mdb;"
Try
DBConn.Open()
Catch ex As Exception
MsgBox(ex.Message)
MsgBox(ex.ToString)
End Try
rsQry = "SELECT NumMot FROM NumMotori ORDER BY NumMot desc"
Cmd = New OleDb.OleDbCommand(rsQry, DBConn)
DR = Cmd.ExecuteReader
DR.Read()
T_NP.Text = DR.GetInt32(0)
DR.Close()
' FINE RECUPERO ULTIMO RECORD DA NumMotori
Funziona tutto perfettamente ma:
- se sono in DEBUG devo inserire copia del DB nella directory C:\MieiSW\SwUno\WindowsApplication1\bin\Debug
- se faccio partire il SW dopo averlo pubblicato e installato compare l'errore di db non trovato perchè il sw lo cerca in una sottodir "AppData,ecc. ecc"
Spero di essere stato chiaro abbastanza e mi scuso fin d'ora se non lo sono stato.
Grazie a tutti