Importing a csv-file into an access table using VBA

[geert.van...@belfius.be]

It has been quiet a while (several years) since I did some programing in VBA. I was and still am a newbee in VBA.
So would someone be so kind to help me with this one.

Beneath I put some code which imports some csv data into an access table. For years it worked in Access 2003. But now we moved tot Access 2011 and data doesn't fit anymore in the appropriate field. I get a series of comma delimited data in 1 field, another comma delimited data into another etc.

Some I suppose I have to ad some extra code in order to get rid of this and put every separate data into the right consecutive field.

info: 'TBL_field_names' serves as to give each field in my table a new name and changes the imported old name into a new fieldname.

I hope I made myself understandable.

Thanks
Geert



Private Sub Command81_Click()
Dim rst_data As Recordset
Dim oldname As String, newname As String
DoCmd.DeleteObject acTable, "TBL_import_TPXP_Radi_Evvd"
DoCmd.TransferText acImportDelim, , "TBL_import_TPXP_Radi_Evvd", "N:\APPLSHARE\PRD\QSIG\MKTDISTPWB\USPB1815\RADIEV\IMPACT.CSV", False, ""

Set rst_data = CurrentDb.OpenRecordset("TBL_field_names")

With rst_data
.MoveFirst
Do Until .EOF
oldname = .Fields(0).Value
newname = .Fields(1).Value
changefieldnames oldname, newname
.MoveNext
Loop
End With
Set rst_data = Nothing

'DoCmd.RunSQL "ALTER TABLE [TBL_import_TPXP_Radi_Evvd] ALTER COLUMN [Ontlener] text"
'DoCmd.RunSQL "UPDATE TBL_import_TPXP_Radi_Evvd SET TBL_import_TPXP_Radi_Evvd.Ontlener = Right('000000000000' & [TBL_import_TPXP_Radi_Evvd]![Ontlener],12);"
Volledige inhoud weergeven
Het is rustig een tijdje (meerdere jaren) geleden dat ik deed wat programmeren in VBA. Ik was en ben nog steeds een newbee in VBA.
Dus zou iemand zo vriendelijk om mij te helpen met deze.

Hieronder heb ik een code die een aantal csv-gegevens importeert in een Access-tabel. Jarenlang werkte in Access 2003. Maar nu zijn we verhuisd tot Access 2011 en data past niet meer in het betreffende veld. Ik krijg een reeks van door komma's gescheiden gegevens in 1 gebied, een ander door komma's gescheiden gegevens in een andere enz.

Sommige Ik veronderstel dat ik moet ad wat extra code om zich te ontdoen van deze en zet elke afzonderlijke gegevens in de juiste rij veld.

info: 'TBL_field_names' dient als aan elk veld een nieuwe naam en verandert de geïmporteerde oude naam in een nieuwe veldnaam geven in mijn tafel.

Ik hoop dat ik maakte mezelf begrijpelijk.

Dank
Geert



Private Sub Command81_Click ()
Dim rst_data als Recordset
Dim oldname als Koord, newname als Koord
DoCmd.DeleteObject actable, "TBL_import_TPXP_Radi_Evvd"
DoCmd.TransferText acImportDelim,, "TBL_import_TPXP_Radi_Evvd", "N: \ APPLSHARE \ PRD \ QSIG \ MKTDISTPWB \ USPB1815 \ RADIEV \ IMPACT.CSV", False, ""

Stel rst_data = CurrentDb.OpenRecordset ("TBL_field_names")

Met rst_data
. MoveFirst
Doe tot. EOF
oldname =. Velden (0). Waarde
newname =. Velden (1). Value
changefieldnames oldname, newname
. MoveNext
Lus
End With
Stel rst_data = Nothing

'DoCmd.RunSQL "ALTER TABLE [TBL_import_TPXP_Radi_Evvd] ALTER COLUMN [Ontlener] tekst"
'DoCmd.RunSQL "UPDATE TBL_import_TPXP_Radi_Evvd SET TBL_import_TPXP_Radi_Evvd.Ontlener = Right ('000000000000' & [TBL_import_TPXP_Radi_Evvd] [Ontlener], 12!);"

Klik hier om te reageren Vorige Vorige Pagina 1 VolgendeVolgende