Salve, ho queste righe di codice :
Private Sub QuantiBar()
QualeDb = Dove & BarDB
SQL = "SELECT count(*) as contatore FROM RagSoc"
cn.ConnectionString = QualeDb
cn.Open()
Dim cmd As New OleDbCommand(SQL, cn)
Lbt.Text = CType(cmd.ExecuteScalar(), Int16)
cmd.Cancel()
cn.Close()
End Sub
Private Sub BigliettiStampati()
QualeDb = Dove & BigliettiDB
SQL = "SELECT count(*) as conta FROM Biglietti-0708"
cn.ConnectionString = QualeDb
cn.Open()
Dim cmd As New OleDbCommand(SQL, cn)
************* records = CType(cmd.ExecuteScalar(), Int16)
TotaleBiglietti = records
GBiglietti.Text = "Biglietteria Stampati : " & records
cn.Close()
End Sub
Apparentemente funzionavano bene, poi col tempo ho ripreso in mano il progetto, ho inserito un campo nella tabella. e non è più andato nulla. L'errore è indefinito mi da:
Eccezione non gestita di tipo "System.Data.OleDb.OleDbException" in system.data.dll e mi evidenzia la RIGA con gli *******
Ora, ho compattato il DB, l'ho ricreato, ho controllato tutto, path ecc ecc in più ho sostituito i valori cn e cmd , con altri nuovi cn2,cmd2 ma sempr elo stesso errrore.
Qualche idea? Se servono qualche altra informazione....
Rispondi quotando
