Devi inserirlo in una tabella di un tuo db , e come ,
tramite comandi sql ?
se cosi è:
Dim Riga As String
Dim tmpArray() As String
Dim i As Integer
Dim strSql As String
Dim Virgola As String
Open MioTxt For Input As #10
Do
If EOF(10) Then Exit Do
Line Input #10, Riga
tmpArray = Split(Riga, ";")
strSql = "insert into miaTabella VALUES ("
Virgola = ""
For i = 0 To UBound(tmpArray)
strSql = strSql & Virgola & tmpArray(i)
Virgola = ","
Next i
strSql = strSql & ")"
mioDatabase.Execute strSql
Loop
Close #10
devi anche sapere se i campi sono testo o numero o data per mettere tmparray(i) fra apici ecc.. (ed anche validarli se sono numeri o date)
|