Importare dati da un file txt in visual studio 2008

sabato 12 dicembre 2009 - 13.49

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Mau67 Profilo | Expert

917 messaggi | Data Invio: sab 12 dic 2009 - 13:49

Ciao al forum, ho il seguente probema, devo caricare dei dati in tabelle access da visual studio 2008, ho provato e riprovato ma non riesco.

Quando usavo le tabelle in SQLServer 2005 usavo le store procedure

Vi allego il codice che usavo

Private Sub ImportToDB(ByVal ConnString As String)

If Not File.Exists(FILE_NAME) Then
MsgBox(FILE_NAME & " Stringa di connessione mancante.")
Return
End If
Dim sr As StreamReader = File.OpenText(FILE_NAME)
Dim sqlString As String
sqlString = sr.ReadLine()
Me.ToolStripStatusLabel2.Text = (sqlString) 'Questo è solo per verificare!
sr.Close()

Dim objConnection As New SqlConnection(sqlString)

' apro la connessione
objConnection.Open()

Using objCmd As New SqlCommand("dbo.proc_BancaUpsert", objConnection)

' tipo stored procedure
objCmd.CommandType = CommandType.StoredProcedure

' ciclo il file
While Not fileInput.EndOfStream

Dim Row As MyRow = Me.GetRow(fileInput.ReadLine())

' genero il comando

' assegno i parametri alla stored procedure
objCmd.Parameters.Add("@Abi", SqlDbType.VarChar, 5).Value = Row.Abi
objCmd.Parameters.Add("@Banca", SqlDbType.VarChar, 50).Value = Row.Banca
objCmd.Parameters.Add("@Cab", SqlDbType.VarChar, 5).Value = Row.Cab
objCmd.Parameters.Add("@Agenzia", SqlDbType.VarChar, 50).Value = Row.Agenzia
objCmd.Parameters.Add("@IndirizzoBanca", SqlDbType.VarChar, 50).Value = Row.IndirizzoBanca
objCmd.Parameters.Add("@Città", SqlDbType.VarChar, 50).Value = Row.Città
objCmd.Parameters.Add("@CapBanca", SqlDbType.VarChar, 5).Value = Row.CapBanca
objCmd.Parameters.Add("@ProvBanca", SqlDbType.VarChar, 5).Value = Row.ProvBanca
objCmd.Parameters.Add("@DataAgg", SqlDbType.SmallDateTime).Value = Row.DataAgg

' eseguo il comando
objCmd.ExecuteNonQuery()

' pulisco la collezione dei parametri
objCmd.Parameters.Clear()

End While

End Using

objConnection.Close()

End Sub

Invece nelle tabelle accessecome faccio ad importare i dati?

Grazie in anticipo
Mau67

alexmed Profilo | Guru

1.186 messaggi | Data Invio: sab 12 dic 2009 - 21:01

Ciao Mau,
Dovrebbe essere sufficiente sostituire il suffisso Sql con OleDb.

Ad esempio:

Dim objConnection As New SqlConnection(sqlString)
diventa
Dim objConnection As New OleDbConnection(OleDbString)

quindi anche i parametri saranno:

objCmd.Parameters.Add("@Abi", OleDbType.VarChar, 5).Value = Row.Abi

oltre naturalmente a cambiare la stringa di connessione al Database

Private OleDbString As String = "Provider=Microsoft.Jet.OLEDB.4.0 Data Source=C:\Database.mdb;"

Ti rimando a questo link per un esempio:

http://www.java2s.com/Code/VB/Database-ADO.net/PassParametersintoStoreProcedure.htm

Ciao

alexmed

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !