[HaBo]

erik SN · 30.09.08, 12:51

hab hier eine schleife gefunden bzw. ein wenig umgebaut die ein .csv file in eine Access datenbank einliest
jedoch schneidet es je nach bereich von "intZ" in der schleife immer die letzte spalte ab, leider bin ich
noch nicht genug in die Materie eingestiegen um das richtig umzu bauen...theoretisch brauch ich den
bereich von 0-40 jedoch kommt dann die fehler meldung: ungültiges Argumment X(

vielleicht hat jemand von euch eine passende idee der sich in VBA besser auskennt
eventuel gibt es ja auch eine möglichkeit mit DOCmd.TransferText....
thx erik SN

Code:

Private Sub cmd_inputBO11_Click()

Dim rst As New ADODB.Recordset
Dim strZeile As String
Dim intZ As Integer
Dim intPos1 As Integer
intZ = 0

'On Error GoTo fehler
rst.Open "tbl_BO11", CurrentProject.Connection, , adLockOptimistic
Open "C:xxx.csv" For Input As #1

Do While Not EOF(1)
DoCmd.Hourglass True

Line Input #1, strZeile
rst.AddNew
For intZ = 0 To 40
rst.Fields(intZ) = Left(strZeile, InStr(strZeile, ";") - 1)
intPos1 = InStr(strZeile, ";") + 1
strZeile = Mid(strZeile, intPos1, Len(strZeile) - InStr(strZeile, ";"))
Next intZ
rst.Update

Loop
DoCmd.Hourglass False
Close #1
rst.Close
Exit Sub

fehler:
MsgBox Err.Number & " " & Err.Description
Close #1
End Sub

Das problem liegt an der .csv da am ende der zeile kein ";" steht gibt es hierzu vielleicht
direkt eine Idee wie is es mache ohne das ich das ";" manuell in die csv eintragen muss?

0mega · 01.10.08, 20:22

hm. früher konnte man csv-dateien in basic problemlos mit input # einlesen (glaub ich). evtl kannst du mit..

Code:

if not right$(strzeile,1) = ";" then strzeile=strzeile+";"

an geeigneter stelle eingefügt etwas anfangen. das sollte prüfen ob am ende ein semikolon sitzt & bei bedarf eins anfügen. packs einfach mal unter's line input und schau nach ob's läuft, programmierung in der theorie is nämlich nich so mein ding xD

viel glück ^^

Anzeige

- Anzeige -

erik SN · 02.10.08, 07:31

naja ich hab jetzt einfach die letzte spalte nochma eingefügt nach der schleife des geht dann auch.....der scheiß vba dreck geht ma echt am senkl hey -.-

trotzdem danke

das eigntl. Problem ist wohl das ich am ende der Zeile kein Semikolon stehen habe.
Gibt es vielleicht eine möglichkeit das in jeder Zeile automatisch ans ende des strings zu schreiben

0mega · 02.10.08, 21:32

hm.. das sollte mein code eigentlich tun.. hab mich wahrscheinlich blöd ausgedrückt

naja, harter arbeitstag, bisschen wirr im kopf und dann produzier ich schonma müll

evtl gehts ja so:

Code:

Private Sub cmd_inputBO11_Click()

Dim rst As New ADODB.Recordset
Dim strZeile As String
Dim intZ As Integer
Dim intPos1 As Integer
intZ = 0

'On Error GoTo fehler
rst.Open "tbl_BO11", CurrentProject.Connection, , adLockOptimistic
Open "C:xxx.csv" For Input As #1

Do While Not EOF(1)
DoCmd.Hourglass True

Line Input #1, strZeile
If Not Right$(strZeile,1) = ";" Then strZeile=strZeile+";"
rst.AddNew
For intZ = 0 To 40
rst.Fields(intZ) = Left(strZeile, InStr(strZeile, ";") - 1)
intPos1 = InStr(strZeile, ";") + 1
strZeile = Mid(strZeile, intPos1, Len(strZeile) - InStr(strZeile, ";"))
Next intZ
rst.Update

Loop
DoCmd.Hourglass False
Close #1
rst.Close
Exit Sub

fehler:
MsgBox Err.Number & " " & Err.Description
Close #1
End Sub

an zeile 17 sollte mein codeschnippsel nämlich gehn, habs aber nich getestet.. und naja, programmieren in der theorie is nich mein ding ^^ viel erfolg

achja noch was.. eventuell muss man bei VBA das $-zeichen bei "Right$()" weglassen. gehts dann immer noch nich, mag ich VBA auch nich mehr

mfg.

Anzeige

- Anzeige -

30.09.08, 12:51	#1 (permalink)
erik SN Registriert seit: 02.06.05 Likes: 2	csv. mit VBA in Access datenbank importieren Anzeige hab hier eine schleife gefunden bzw. ein wenig umgebaut die ein .csv file in eine Access datenbank einliest jedoch schneidet es je nach bereich von "intZ" in der schleife immer die letzte spalte ab, leider bin ich noch nicht genug in die Materie eingestiegen um das richtig umzu bauen...theoretisch brauch ich den bereich von 0-40 jedoch kommt dann die fehler meldung: ungültiges Argumment X( vielleicht hat jemand von euch eine passende idee der sich in VBA besser auskennt eventuel gibt es ja auch eine möglichkeit mit DOCmd.TransferText.... thx erik SN Code: Private Sub cmd_inputBO11_Click() Dim rst As New ADODB.Recordset Dim strZeile As String Dim intZ As Integer Dim intPos1 As Integer intZ = 0 'On Error GoTo fehler rst.Open "tbl_BO11", CurrentProject.Connection, , adLockOptimistic Open "C:xxx.csv" For Input As #1 Do While Not EOF(1) DoCmd.Hourglass True Line Input #1, strZeile rst.AddNew For intZ = 0 To 40 rst.Fields(intZ) = Left(strZeile, InStr(strZeile, ";") - 1) intPos1 = InStr(strZeile, ";") + 1 strZeile = Mid(strZeile, intPos1, Len(strZeile) - InStr(strZeile, ";")) Next intZ rst.Update Loop DoCmd.Hourglass False Close #1 rst.Close Exit Sub fehler: MsgBox Err.Number & " " & Err.Description Close #1 End Sub Das problem liegt an der .csv da am ende der zeile kein ";" steht gibt es hierzu vielleicht direkt eine Idee wie is es mache ohne das ich das ";" manuell in die csv eintragen muss?

01.10.08, 20:22	#2 (permalink)
0mega Registriert seit: 05.06.07 Likes: 0	hm. früher konnte man csv-dateien in basic problemlos mit input # einlesen (glaub ich). evtl kannst du mit.. Code: if not right$(strzeile,1) = ";" then strzeile=strzeile+";" an geeigneter stelle eingefügt etwas anfangen. das sollte prüfen ob am ende ein semikolon sitzt & bei bedarf eins anfügen. packs einfach mal unter's line input und schau nach ob's läuft, programmierung in der theorie is nämlich nich so mein ding xD viel glück ^^ __________________ Jabber: admin@c-r-t.ath.cx

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Sicherheit für Access Datenbank	Jahn	(In)security allgemein	8	23.08.09 07:55
Access Point vs. Access Point? (wlan)	[starfoxx]	Kaufberatung	0	20.05.09 13:39
MS Access - langen text in Datenbank speichern	kito	Code Kitchen	2	03.08.06 08:02
Zugriff auf Access-Datenbank	Kai	Applikationen	4	16.12.02 17:16
Brauche Mitstreiter in der Entwicklung einer mächtigen Access Datenbank	Da Psydonym	Applikationen	4	08.11.02 16:17

02.10.08, 07:31	#3 (permalink)
erik SN Themenstarter Registriert seit: 02.06.05 Likes: 2	naja ich hab jetzt einfach die letzte spalte nochma eingefügt nach der schleife des geht dann auch.....der scheiß vba dreck geht ma echt am senkl hey -.- trotzdem danke das eigntl. Problem ist wohl das ich am ende der Zeile kein Semikolon stehen habe. Gibt es vielleicht eine möglichkeit das in jeder Zeile automatisch ans ende des strings zu schreiben

[HaBo]

csv. mit VBA in Access datenbank importieren