Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvoriť novú tabuľku programu Excel a pridajte nasledujúce údaje : Autor
Typ " pole1 " v " A1 " , " pole2 " v " B1 " a " field3 " v " C1 "
Type " 1 " na " A2 " , " 2 " v " B2 " , a " 3 " na " C2 "
Uložte ho do " C : \\ " . as " manipulateExcel.xls " .
2
spustite program Microsoft Visual Basic , kliknite na ponuku " Súbor " a vyberte " Nový projekt " . Kliknite na "Windows Forms " a vyberte možnosť " OK " . Double - kliknite na tlačidlo " " na " Nástroje " panelu pridať nové tlačidlo do formulára .
Double - kliknite na " Button1 " na formulári k otvoreniu modulu " Form1.vb " .
Sims 3
skopírujte a vložte nasledujúci kód do " Public Class Form1 " vytvoriť pripojenie k zošitu programu Excel . klipart
Súkromná velenie As String = " Provider = Microsoft.Jet.OLEDB . 4.0 , " & _
" Data Source = C : \\ manipulateExcel.xls ; " & _
" Extended Properties = " " Excel 8.0 ; HDR = YES " " "
4
skopírujte a vložte nasledujúci kód v časti " button1_Click " otvoriť " manipulateExcel.xls " a upravovať dáta bunky .
5
Dim XLConnection As New OleDbConnection ( conn )
Dim XLDataAdapter ako nový OleDbDataAdapter ( " SELECT * FROM [ Hárok1 $ ] " , XLConnection )
Dim XLDataSet ako DataSet = new DataSet ( )
XLDataAdapter.Fill ( XLDataSet , " Hárok1 " )
XLDataAdapter.UpdateCommand = New OleDbCommand ( _
" UPDATE [ Hárok1 $ ] SET pole1 = ? , field2 = ? , field3 = ? " , XLConnection )
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ pole1 " , OleDbType.Numeric ) . SourceColumn = " pole1 "
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ field2 " , OleDbType.Currency ) . SourceColumn = " field2 "
XLDataAdapter.UpdateCommand.Parameters.Add ( " @ field3 " , OleDbType.Currency ) SourceColumn = " field3 " .
XLDataSet.Tables ( 0 ) . Riadky ( 0 ) ( " pole1 " ) = 1000
XLDataSet.Tables ( 0 ) . Riadky ( 0 ) ( " field2 " ) = 10,1
XLDataSet.Tables ( 0 ) . Riadky ( 0 ) ( " field3 " ) = 500,1
XLDataAdapter.Update ( XLDataSet , " Hárok1 " )
XLConnection.Close ( )
6
Stlačte " F5 " pre spustenie aplikácie .
Copyright © počítačové znalosti Všetky práva vyhradené