Risultati da 1 a 5 di 5

Discussione: VB6 Problema di lettura da foglio Excel

  1. #1
    New Member
    Data Registrazione
    08-01-2009
    Messaggi
    14

    VB6 Problema di lettura da foglio Excel

    Salve a tutti,
    sto creando in VB6 un programmino che mi deve prendere dei dati da un foglio Excel e metterli una tabella di Access.
    Il programma funziona perfettamente fino a quando, nel foglio Excel non incontra dati di questo tipo: 600445D/C
    Uso questo metodo per prelevare il dato da Excel e scriverlo in Access:

    Data2.Recordset.Fields("Codice oggetto") = Data1.Recordset.Fields(0).Value

    Dove Data1 è collegato al Foglio Excel e Data2 è collegato al database Access
    Giunti al dato specificato sopra mi trovo che nel database non carica nulla, ma non ricevo alcun errore.
    Seguendo la procedura passo passo in Data1.Recordset.Fields(0).Value mi restituisce NULL passando quindi il valore NULL ad Access.
    Altri dati tipo la descrizione ed il prezzo dello stesso record Excel vengono importati correttamente in Access.
    La mia domanda è, perchè succede questo?

    Vi ringrazio per la disponibilità!

  2. #2
    Software Zone Fanatic L'avatar di MANDRAKE
    Data Registrazione
    28-12-2002
    Messaggi
    3.100
    ma il campo "Codice oggetto" nel database di che tipo è ?

    passa il valore a una variabile per il debug
    esempio
    Dim CampoExcel as string
    CampoExcel = Data1.Recordset.Fields(0).Value

    campoExcel contiene il valore del dato excel ?

    ciao

  3. #3
    New Member
    Data Registrazione
    08-01-2009
    Messaggi
    14
    CampoExcel mi restituisce il valore corrispondente al record selezioneto nel data control fino a quando non incontra valori del tipo: 600445D/C
    A quel punto restituisce un valore NULL.
    "Codice Oggetto" del db Acces è un campo testo come si vede nell'immagine.

    P.S. MANDRAKE Grazie per la considerazione che mi hai dato

  4. #4
    Software Zone Fanatic L'avatar di MANDRAKE
    Data Registrazione
    28-12-2002
    Messaggi
    3.100
    Ciao Popored86 con questo codice prendo i dati di un foglio excel e genero una tabella in un database con tutti i dati presenti ho fatto una prova con valori tipo 600445D/C e và !!

    Public Sub CreaTabellaDaFoglioXls()
    Dim cnn As New ADODB.Connection
    Dim sqlString As String

    ' Open the Connection
    cnn.Open _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Tuodb.mdb;" & _
    "Jet OLEDB:Engine Type=4"

    sqlString = "Select * INTO [tabellaNuova] FROM [Excel 4.0; DATABASE=C:\tuofileExcel.xls].[Sheet1]"
    cnn.Execute sqlString

    cnn.Close
    Set cnn = Nothing
    End Sub
    ciao
    Ultima modifica di MANDRAKE; 05-02-2010 alle 18.49.59

  5. #5
    New Member
    Data Registrazione
    08-01-2009
    Messaggi
    14
    Grazie ora provo subito.... ti ringrazio tanto, mi evito di riscrivere i dati manualmente, più di 1000.
    SEI IL MIO SALVATORE Ciao e grazie ancora

Segnalibri

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •