Creare un nuovo foglio di calcolo Excel e aggiungere i seguenti dati :
Tipo " Campo1 " a " A1 " , " Campo2 " in " B1 " e " Field3 " in . "C1"
Tipo " 1 " a " A2 " , "2" a " B2 " e "3" in " C2 "
Salva in " C : \\ ", come " manipulateExcel.xls ".
2
Avviare Microsoft Visual Basic , fare clic sul menu " File " e selezionare "Nuovo progetto" . Fare clic su " Applicazione Windows Form " e selezionare "OK" . Fare doppio clic su "Pulsante" nel riquadro " Strumenti " per aggiungere un nuovo pulsante al form .
Doppio clic su " Button1 " sul modulo per aprire il modulo " Form1.vb " .
3
Copia e incolla il seguente codice in " Public Class Form1 " per creare un collegamento alla cartella di lavoro di Excel .
conn privato As String = "Provider = Microsoft.Jet.OLEDB . 4.0; "& _
" Data Source = C: \\ manipulateExcel.xls ; "& _
" Extended Properties = " " Excel 8.0 ; HDR = YES " " "
4
Copia e incolla il seguente codice in " Button1_Click " per aprire " manipulateExcel.xls " e modificare i dati delle celle .
5
Dim XLConnection As New OleDbConnection ( conn )
Dim XLDataAdapter As New OleDbDataAdapter ( "SELECT * FROM [ Foglio1 $ ] " , XLConnection ) per
Dim XLDataSet Come DataSet = New DataSet ( ) per
XLDataAdapter.Fill ( XLDataSet , " Foglio1 " ) per
XLDataAdapter.UpdateCommand = New OleDbCommand ( _
"UPDATE [ Foglio1 $ ] SET campo1 = ? , campo2 = ? , campo3 = ? " , XLConnection ) per
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ campo1 " , OleDbType.Numeric ) . SourceColumn = " campo1 "
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ campo2 " , OleDbType.Currency ) . SourceColumn = " campo2 "
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ campo3 " , OleDbType.Currency ) . SourceColumn = " campo3 "
XLDataSet.Tables ( 0 ) . Righe ( 0 ) ( " campo1 " ) = 1000
XLDataSet.Tables (0). righe ( 0 ) ( " campo2 " ) = 10.1
XLDataSet.Tables (0). righe ( 0 ) ( " field3 " ) = 500.1
XLDataAdapter.Update ( XLDataSet , " Foglio1 " ) per
XLConnection.Close ( ) economici
6 Premere il tasto" F5 " per eseguire l'applicazione .
software © www.354353.com