caricare parte di testo

[donini]

Ciao a tutto il forum e buon anno

Tramite il codice che ho postato carico un database con dati provenienti da un file txt , quello che non mi riesce di fare è caricare una parte di testo per esempio i primi 5 caratteri , leggendo qualche post ho letto che devo usare la funzione Mid ma non so come si usa ,mi date una mano

Private Sub AggiornaORE() 
    Dim FileNum as Integer
    On Error GoTo fine
    FileNum = FreeFile ' ottiene un numero di file libero
    Open "C:\programmi\Kronotech\lancioni2.txt" For Input As #FileNum
    Do
        Input #FileNum, linea
        CN.Execute "INSERT INTO ore (orelav) VALUES ('" & linea & "')"
    Loop Until EOF(1) = True

    Close #FileNum

    Exit Sub
fine:
    Close #FileNum
    MsgBox Err.Description
End Sub

[MItaly]

Quello che ti serve è la funzione Left.
Tra parentesi, un paio di appunti sul codice che hai postato:

• non inserire direttamente nel codice (hardcoding) il percorso completo di un file: sul PC di un utente il programma potrebbe essere installato in [i]D:\Programmi[i] o in C:\Program Files invece che in C:\Programmi, e in tal caso il programma non funzionerebbe;
• la linea
  

          CN.Execute "INSERT INTO ore (orelav) VALUES ('" & linea & "')"

  rappresenta un rischio di sicurezza non indifferente: passi al DBMS una linea di un file facilmente modificabile dall'utente senza validarla e senza effettuarne il parsing: e se contenesse valori non validi? O ancora peggio, se venisse sfruttato questo difetto del programma per una SQL Injection?
• questa linea
  

      Loop Until EOF(1) = True

  anche se per ora potrebbe funzionare è errata, visto che il numero di file aperto non è necessariamente 1, ma è memorizzato in FileNum; inoltre = True non è necessario, quindi:
  

      Loop Until EOF(FileNum)

  .

[donini]

grazie per gli appunti ne prendero atto,pero non mi hai risposto al mio quesito

[MItaly]

Come no?

Originariamente inviato da MItaly
Quello che ti serve è la funzione Left.

Carica l'intera riga e quindi usa la funzione citata per ottenere i primi tot caratteri che ti interessano.

[donini]

forse non mi sono spiegato bene a me serve una qery che mi carica il database gia separato

[MItaly]

Eh?

[wallrider]

Originariamente inviato da donini
grazie per gli appunti ne prendero atto,pero non mi hai risposto al mio quesito

MItaly stai attento, cribbio!!!

[MItaly]

Ma ribadisco, io avevo risposto al suo quesito... certo, ammetto che la risposta passava un po' inosservata rispetto agli "appunti" che seguivano.
Comunque alla luce del suo ultimo post posso affermare ufficialmente di non aver capito una mazza di quello che vuole ; il punto chiave da decifrare è questo:

una query che mi carica il database già separato

; tu hai idea di cosa possa significare?

[oregon]

Forse vuoi dire

CN.Execute "INSERT INTO ore (orelav) VALUES ('" & Left$(linea, 5) & "')"