race2
20-10-2002, 11:51
VB.NET,
Ho una base di dati in un foglio Excel, la voglio trasferire in un Database MySQL, come si fa per estrarre i dati con una query da Excel ???
Come si puo' modificare quella Query di Selezione per prendere i giusti campi in Excel ???
tipo : il nome e' nella colonna "A"
il cognome e' nella colonna "B"
l'indirizzo e' nella colonna "c"
connessione: OleDb + Driver MyOLEDB3
'connessione per l'estrazione
Private conn As New OleDBConnection("Data Source=localhost; Initial Catalog=Database; Integrated Security=SSPI;")
'connessione per l'inserimento
Private conn1 As New OleDBConnection("Data Source=localhost; Initial Catalog=Database; Integrated Security=SSPI;")
conn.Open()
Dim comm As New OleDBCommand("SELECT* FROMTabella", conn)
Dim read As OleDBDataReader = comm.ExecuteReader
Dim li As ListViewItem
While read.Read()
Dim Nome As String = read("Nome")
Dim Nome As String = read("Cognome")
Dim Nome As String = read("Indirizzo")
'inserimento dati in MySQL Database------------------------------
Dim comm As New OleDBCommand("INSERT INTO Tabella(Nome,Cognome,Indirizzo) " & _
"VALUES('" & Nome & "','" & Cognome & "','" & Indirizzo & "')", conn1)
comm.Connection.Open()
comm.ExecuteNonQuery()
comm.Connection.Close()
'----------------------------------------------------------------
End While
conn.Close()
Ho una base di dati in un foglio Excel, la voglio trasferire in un Database MySQL, come si fa per estrarre i dati con una query da Excel ???
Come si puo' modificare quella Query di Selezione per prendere i giusti campi in Excel ???
tipo : il nome e' nella colonna "A"
il cognome e' nella colonna "B"
l'indirizzo e' nella colonna "c"
connessione: OleDb + Driver MyOLEDB3
'connessione per l'estrazione
Private conn As New OleDBConnection("Data Source=localhost; Initial Catalog=Database; Integrated Security=SSPI;")
'connessione per l'inserimento
Private conn1 As New OleDBConnection("Data Source=localhost; Initial Catalog=Database; Integrated Security=SSPI;")
conn.Open()
Dim comm As New OleDBCommand("SELECT* FROMTabella", conn)
Dim read As OleDBDataReader = comm.ExecuteReader
Dim li As ListViewItem
While read.Read()
Dim Nome As String = read("Nome")
Dim Nome As String = read("Cognome")
Dim Nome As String = read("Indirizzo")
'inserimento dati in MySQL Database------------------------------
Dim comm As New OleDBCommand("INSERT INTO Tabella(Nome,Cognome,Indirizzo) " & _
"VALUES('" & Nome & "','" & Cognome & "','" & Indirizzo & "')", conn1)
comm.Connection.Open()
comm.ExecuteNonQuery()
comm.Connection.Close()
'----------------------------------------------------------------
End While
conn.Close()