Supportnet / Forum / WindowsXP
Verbindung zur andere Tabelle VBScript
Frage
Guten Tag
ich habe ein VBscript geschrieben, dass es von einer Tabelle aus zeile einliest, und möchte es in anderen Tabelle eingentlich in einer Datenbank hin schreiben.
wie lautet der befehl.
Datei wo ich einlese sieht so aus...>
SNR100;119965
SNR110;119965_9;84494;10;29.12.2004
SNR111;4977729693133
SNR112;123456
SNR110;119965_10;83705;10;29.12.2004
SNR111;4977729663679
SNR112;1
SNR112;2
SNR112;3
SNR112;5
_________________________________
VBscript wo ich geschrieben haben...................
Option Compare Database
Option Explicit
Function gaga()
Dim Artiid, Hlieid, Serienr
Dim Zeile As String
Open "P:GlobalsetzSETZSACOM_TRLOG_SNR_1104339014765.csv" For Input As #1 ´ Datei öffnen
Do While Not EOF(1) ´ Schleife bis Dateiende.
Input #1, Zeile ´ Ein Zeile lesen.
Select Case Left(Zeile, 6)
Case "SNR100"
´LierferscheinNr ermitteln
Hlieid = Right(Zeile, Len(Zeile) - InStr(Zeile, ";")) ´Zeile Recht aus bis zu der ; lesen
Case "SNR110"
´ArikelNr nr ermitteln
Artiid = Mid(Zeile, InStr(8, Zeile, ";") + 1, 5) ´ Mitte des Zeile nach 8 Zeichen bis zu ; + plus 1 dann bis zur 5 Zeichen lesen
Case "SNR112"
´SerienNr ermitteln
Serienr = Right(Zeile, Len(Zeile) - InStr(Zeile, ";")) ´Zeile Recht aus bis zu der ; lesen
End Select
Debug.Print Zeile ´ Ausgabe im Testfenster.
Loop
Close #1 ´ Datei schließen.
End Function
___________________________________
Wie kann ich es auf einer anderen Tabelle verbinden und die Daten oder die Zeile wo ich lese, dort hin schreiben??
Wie lautet der Befehl???
Besten dank!
Gruss Meera