Newsgroup: it.comp.lang.visual-basic
Titolo: Esportazione da testo a access 2000

Salve a tutti
volevo chiedere un aiuto ho creato una macro in access per
l'esportazione dati da un file di testo poi l'ho convertita in un
modulo vba ora il mio superiore mi ha chiesto se era possibile fare un
piccolo eseguibile in vb6...........
ho copiato il modulo di vba in vb6 ma come previsto mi dice necessario
oggetto devo fare una connessione ado con il db
per favore potete darmi anche un piccolo esempio se possibile....
Grazie e arrivederci

il codice del module è:
Function Esporta_dati()
On Error GoTo Esporta_dati_Err
    DoCmd.RunSQL "delete from tstoc", -1
    DoCmd.TransferText acImportDelim, "Tstoc - specifica di
importazione", "tstoc", "d:\meloni\olimpix_txt\tstoc.txt", False, ""
    DoCmd.RunSQL "delete from ctrlav", -1
    DoCmd.TransferText acImportDelim, "Ctrlav - specifica di
importazione", "ctrlav", "d:\meloni\olimpix_txt\ctrlav.txt", False, ""
    DoCmd.RunSQL "delete from clifor", -1
    DoCmd.TransferText acImportDelim, "Clifor - specifica di
importazione", "clifor", "d:\meloni\olimpix_txt\clifor.txt", False, ""
    DoCmd.RunSQL "delete from commesse", -1
    DoCmd.TransferText acImportDelim, "Commesse - specifica di
importazione", "commesse", "d:\meloni\olimpix_txt\commesse.txt", False,
""
    DoCmd.RunSQL "delete from imppro", -1
    DoCmd.TransferText acImportDelim, "Imppro - specifica di
importazione", "imppro", "d:\meloni\olimpix_txt\imppro.txt", False, ""
    DoCmd.RunSQL "delete from legami", -1
    DoCmd.TransferText acImportDelim, "Legami - specifica di
importazione", "legami", "d:\meloni\olimpix_txt\legami.txt", False, ""
    DoCmd.RunSQL "delete from movcoge", -1
    DoCmd.TransferText acImportDelim, "Movcoge - specifica di
importazione", "movcoge", "d:\meloni\olimpix_txt\movcoge.txt", False,
""
    DoCmd.RunSQL "delete from movmag", -1
    DoCmd.TransferText acImportDelim, "Movmag - specifica di
importazione", "movmag", "d:\meloni\olimpix_txt\movmag.txt", False, ""
    DoCmd.RunSQL "delete from operaz", -1
    DoCmd.TransferText acImportDelim, "Operaz - specifica di
importazione", "operaz", "d:\meloni\olimpix_txt\operaz.txt", False, ""
    DoCmd.RunSQL "delete from parmag", -1
    DoCmd.TransferText acImportDelim, "Parmag - specifica di
importazione", "parmag", "d:\meloni\olimpix_txt\parmag.txt", False, ""
    DoCmd.RunSQL "delete from riglav", -1
    DoCmd.TransferText acImportDelim, "Riglav - specifica di
importazione", "riglav", "d:\meloni\olimpix_txt\riglav.txt", False, ""
    DoCmd.RunSQL "delete from rigoc", -1
    DoCmd.TransferText acImportDelim, "Rigoc - specifica di
importazione", "rigoc", "d:\meloni\olimpix_txt\rigoc.txt", False, ""
    DoCmd.RunSQL "delete from tabcal", -1
    DoCmd.TransferText acImportDelim, "Tabcal - specifica di
importazione", "tabcal", "d:\meloni\olimpix_txt\tabcal.txt", False, ""
    DoCmd.RunSQL "delete from parti", -1
    DoCmd.TransferText acImportDelim, "Parti - specifica di
importazione", "parti", "d:\meloni\olimpix_txt\parti.txt", False, ""
Esporta_dati_Exit:
    Exit Function
Esporta_dati_Err:
    MsgBox Error$
    Resume Esporta_dati_Exit
End Function

 piccolo eseguibile in vb6...........
Una volta i superiori erano in grado di insegnarti che cose che ti
chiedevano di fare ... :(
-- 
Greg

Ora non più ^^
ho risolto grazie del vostro aiuto
vi posto il codice se ha qualcuno di voi potrà servire
File .VBS:
Dim objApp
Dim AppPath
Dim FileName
AppPath = "d:\cartelladiorigine\"
DBName = "nomedb"
Set objApp=Wscript.CreateObject("Access.Application")
    objApp.OpenCurrentDatabase AppPath & DBName
    objApp.DoCmd.RunSQL "delete from tstoc", -1
    objApp.DoCmd.TransferText acImportDelim, "Tstoc - specifica di
importazione", "tstoc", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from ctrlav", -1
    objApp.DoCmd.TransferText acImportDelim, "Ctrlav - specifica di
importazione", "ctrlav", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from clifor", -1
    objApp.DoCmd.TransferText acImportDelim, "Clifor - specifica di
importazione", "clifor", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from commesse", -1
    objApp.DoCmd.TransferText acImportDelim, "Commesse - specifica di
importazione", "commesse", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from imppro", -1
    objApp.DoCmd.TransferText acImportDelim, "Imppro - specifica di
importazione", "imppro", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from legami", -1
    objApp.DoCmd.TransferText acImportDelim, "Legami - specifica di
importazione", "legami", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from movcoge", -1
    objApp.DoCmd.TransferText acImportDelim, "Movcoge - specifica di
importazione", "movcoge", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from movmag", -1
    objApp.DoCmd.TransferText acImportDelim, "Movmag - specifica di
importazione", "movmag", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from operaz", -1
    objApp.DoCmd.TransferText acImportDelim, "Operaz - specifica di
importazione", "operaz", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from parmag", -1
    objApp.DoCmd.TransferText acImportDelim, "Parmag - specifica di
importazione", "parmag", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from riglav", -1
    objApp.DoCmd.TransferText acImportDelim, "Riglav - specifica di
importazione", "riglav", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from rigoc", -1
    objApp.DoCmd.TransferText acImportDelim, "Rigoc - specifica di
importazione", "rigoc", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from tabcal", -1
    objApp.DoCmd.TransferText acImportDelim, "Tabcal - specifica di
importazione", "tabcal", "percorso+nomefile", False, ""
    objApp.DoCmd.RunSQL "delete from parti", -1
    objApp.DoCmd.TransferText acImportDelim, "Parti - specifica di
importazione", "parti", "percorso+nomefile", False, ""
    objApp.Quit 2
Set objApp= Nothing
MsgBox "Processo di importazione completato", 48, "Importazione"
File in VB6
Private Sub Command1_Click()
Dim objApp
Dim AppPath
Dim FileName
AppPath = "c:\cartella\ "
DBName = "nomedb.mdb"
Set objApp = CreateObject("Access.Application")
objApp.OpenCurrentDatabase AppPath & DBName
objApp.Application.DoCmd.RunMacro ("nomemacro")
objApp.Quit
Set objApp = Nothing
Beep ' funzione che riproduce un beep
End Sub