trasportare dati da un file di testo a un db

[Pinotto]

Devo interpretare un file di testo ed importarlo in un db...

sub Page_Load(obj as object, e as eventargs)
   dim objreader as new Streamreader(Server.MapPath("testo.txt"))
   
   while objreader.peek()>-1
      dim i as integer
      dim arrtesto1(20) as char
      objreader.read(arrtesto1, 0, 20)

      Dim conn As New MySqlConnection("User=root; pwd=mypass; Host=localhost; Port=3306; Database=db1")
      dim strSQL as string = "INSERT INTO tbl1 (sigla1) VALUES ('"& arrtesto1 &"')
      Dim adapter As New MySqlDataAdapter(strSQL, conn)
      dim objCmd as new mysqlCommand(strSQL, Conn)
      try
         objCmd.Connection.Open()
         objCmd.ExecuteNonQuery()
      catch ex as Exception
         lblMessage.Text = "Errore nell'update del database"
      end try
    
      objCmd.Connection.Close()
    
      objreader.readline
   end while
end sub

ma non funziona...
se metto l'indice all'array (arrtesto1) mi scrive del db solo il carattere dell'indice (es. arrtesto1(0) mi scrive il primo carattere di ogni riga del file di testo nel db)...io vorrei che mi scrivesse i primi 20 caratteri....ty

[zampa28]

sub Page_Load(obj as object, e as eventargs)
   dim objreader as new Streamreader(Server.MapPath("testo.txt"))
   
   while objreader.peek()>-1
      dim i as integer
      dim arrtesto1(20) as char
      objreader.read(arrtesto1, 0, 20)

      Dim conn As New MySqlConnection("User=root; pwd=mypass; Host=localhost; Port=3306; Database=db1")
      dim strSQL as string = "INSERT INTO tbl1 (sigla1) VALUES ('"& arrtesto1 &"')
      Dim adapter As New MySqlDataAdapter(strSQL, conn)
      dim objCmd as new mysqlCommand(strSQL, Conn)
      try
         Conn.Open()
         objCmd.ExecuteNonQuery()
         Conn.Close
      catch ex as Exception
         lblMessage.Text = "Errore nell'update del database"
         Conn.Close
      end try    
      objreader.readline
   end while
end sub

[Pinotto]

il problema non è questo...molto probabilmente devo solo convertire un'array di char in un array di string...ma non so come fare...

[zampa28]

Ho adattato il tutto per access e funziona perfettamente come l'ho fatto io.

Cmq per convertire un dato in String puoi utilizzare la funzione CStr:

CStr(ArrTesto1)

[Pinotto]

ok...grazie...