Cerco di salvare dei dati in un database mdb vers 2003 ma anche se i riferimenti dentro il database sono giusti mi appare l'errore descritto nel allegato, vorrei sapere se a qualcuno viene un idea in merito, grazie.
codice:
Private Sub salva_immagine()
'salva l'immagine
Try
If salvataggio = True Then
If Frmprincipale.lingua.linguaggio = "italiano" Then
MsgBox("Attenzione l'immagine è gia' stata salvata.")
Else
MsgBox("Beware the image is already 'been saved.")
End If
Exit Sub
End If
Dim stringaconn As String = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Frmprincipale.NomeDatabase
cn.Open(stringaconn)
rs.Open("immagini", cn, 3, 3)
Dim recordnum As Integer
If RN = False Then
recordnum = rs.RecordCount
recordnum = recordnum + 1
RN = True
RecNum = recordnum
End If
Dim nome_file As String = pbpiede.ImageLocation.ToString
nome_file = estrai_nome(nome_file)
Dim posizione As String = copia_immagine(pbpiede.ImageLocation, nome_file)
rs.AddNew()
rs("id2").Value = RecNum
rs("percorso").Value = posizione
rs.Update()
Dim cont As Integer = immagini.Count
ReDim Preserve immagini(cont + 1)
immagini(cont + 1) = posizione
posizioneimm = posizione
Catch ex As Exception
MsgBox("ERRORE/ERROR ...... " & ex.Message)
cn = Nothing
rs = Nothing
'salvataggio = True
Exit Sub
End Try
cn = Nothing
rs = Nothing
salvataggio = True
MsgBox("Inserimento effettuato/Inserting made", vbOKOnly, "CONFERMA/CONFIRMATION")
escludi_chiusura = False
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
End Sub