Ciao a tutti, come detto stamattina in un altro post sono un neofita.
sto facendo una procedura di importazione fogli di excel:
ecco cosa ho fatto:
Private Sub ImportaDatiExcel_01()
Dim orset As ADODB.Recordset
Dim SQL As String
'questa funzione esiste ed è funzionante
Apriconnessione (Me!nome_file.Value)
Set orset = New ADODB.Recordset
'creo la query per accedere ai dati excel come da esempio da intenet
SQL = "SELECT uscita, n, descrizione, nord, est, quota FROM [" & Me!nome_foglio.Value & "$];"
orset.Open SQL, oConn
if IsNull(orset.Fields(0)) Then
'ciclo e scorro tutto il recordset
With orset
While Not .EOF
SQL = "insert into nuova" & _
"(uscita, n, descrizione, nord, est, quota) VALUES (" & _
"'" & .Fields("uscita").Value & "', " & _
"'" & .Fields("n").Value & "', " & _
"'" & .Fields("descrizione").Value & "', " & _
"'" & .Fields("nord").Value & "', " & _
"'" & .Fields("est").Value & "', " & _
"'" & .Fields("quota").Value & "')"
CurrentProject.Connection.Execute SQL
orset.MoveNext
Wend
End With
Else
MsgBox "Recordset vuoto"
End If
Set orset = Nothing
'è una funzione pubblica che mi chiudeil db se è aperto
ChiudiConnessione
End Sub
Fintanto che nel file di excel da importare esiste un foglio con un nome valido con delle belle celle "piene" e che contengono i dati che mi aspetto,... tutto bene.
Quando cerco di selezionare un foglio che esiste e che non contiene neanche una cella compilata il programma mi si ferma alla riga:
orset.Open SQL, oConn
e una finestrina beffarda mi si apre e mi dice:
Errore di Run-time '-2147217904 (80040e10)
nessun valore specificato per alcuni parametri necessari
Il mio naso mi dice che è un errore nella stringa SQL , ma dopo 3 che guardo sul forume su google con il codice di errore ore mi arrendo e mi rimetto alle vostre mani, con la mia faccia sotto i vostri piedi (parafrasando benigni e troisi che scrivono a savonarola), e non pretendo neanche che non vi muoviate.
spero di non aver dimenticato nulla nel codice
Ciao e grazie, anzi buona notte Acitano