AIUTO URGENTE

di
sarac
il
2 risposte
S
sarac
Pochi posts
Iscritto da
feb, 2007
Messaggi:
1

AIUTO URGENTE

Ciao sto utilizzando da poco vb6 e ho un problema che non so proprio come risolvere. Dovrei copiare i dati presenti in un file txt in un file mdb. Mi spiego meglio.

Ho un file txt fatto in questo modo:

0100003931/01/0609:19I000100

0100012331/01/0609:00U000100

.............................................

Dovrei creare un file mdb costituito dai seguenti campi: codsoc, badge, data, ora, verso, codrilev, codauto.

Dovrei poter leggere e copiare nel file mdb tutte le righe del file txt in questo modo:

i recod 0 e 1 (nell es. 01) del fie txt in codsoc del file mdb

i record da 2 a 7 (000039) in badge

i record da 8 a 15 (31/01/06) in data

i record da 16 a 20 (09:19) in ora

il record 21 (I) in verso

i record da 22 a 25 (0001) in codrilev

i record da 26 e 27 (00) in codauto.

Dovrei fare questo per ogni riga del file txt. Questo va fatto all'interno di u form vb6

spero che qualcuno possa aiutarmi o mandarmi (sarebbe meglio visto che ho pochissimo tempo) qualcosa di già fatto.

Io utilizzo vb6, access 97 e il collegamento al DB con DAO.

Grazie

2 Risposte

  • A
    az017
    Pochi posts
    Iscritto da
    feb, 2007
    Messaggi:
    3

    Re: AIUTO URGENTE

    Con ADO (Microsoft ActiveX Data Object 2.5 Library attivata nei riferimenti del progetto) puoi scrivere una cosa simile a quella che ti ho messo qui sotto, la routine banalmente aggiunge in una tabella Access tutte le regisrtazioni di log.
    Puoi usare le stesse cose facendo attenzione a mettere dopo i ! i nomi della tua tabella con le opportune codifiche dei campi dei record che leggerai dal file di testo e nella SELECT dovrai mettere il nome della tua tabella.

    Public Sub WriLog(ErrNum As Long, ErrMsg As String, Optional Azione As String = \"\", Optional Esito As String = \"\") 'SDD
    Dim WLcn As New ADODB.Connection
    Dim WLrsLog As New ADODB.Recordset

    If WLrsLog.State = 1 Then WLrsLog.Close
    If WLcn.State = 1 Then WLcn.Close

    WLcn.Mode = adModeShareDenyNone
    WLcn.Open P_StrConn

    With WLrsLog
    .ActiveConnection = WLcn
    .CursorType = adOpenForwardOnly
    .LockType = adLockPessimistic
    .CursorLocation = adUseClient
    .Source = \"SELECT * FROM Log\"
    .Open
    WLcn.BeginTrans
    .AddNew
    !Stato = \"R\"
    !DataOra = Now
    !Numero = ErrNum
    !Descrizione = ErrMsg
    If Len(Azione) > 0 Then !Azione = Azione
    If Len(Esito) > 0 Then !Esito = Esito
    .Update
    WLcn.CommitTrans
    End With
    If WLrsLog.State = 1 Then WLrsLog.Close
    If WLcn.State = 1 Then WLcn.Close
    Set WLrsLog = Nothing
    Set WLcn = Nothing
    End Sub
  • A
    az017
    Pochi posts
    Iscritto da
    feb, 2007
    Messaggi:
    3

    Re: AIUTO URGENTE

    Dimenticavo, in P_StrConn devi mettere la stringa di connessione al db più adatta che sarà simile a:

    Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Dati.mdb;Persist Security Info=False
Devi accedere o registrarti per scrivere nel forum
2 risposte