Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako manipulovať Excel Mobilné dáta v jazyku Visual Basic

Naučiť sa , ako manipulovať s údajmi programu Microsoft Office Excel vám môže ušetriť čas , kedy je potrebné zmeniť hodnoty zošit buniek z aplikácie Visual Basic . Excel je tabuľkový procesor , ktorý je súčasťou balíka Microsoft Office . Microsoft Visual Basic.NET je objektovo orientovaný programovací jazyk , ktorý je pomerne ľahké sa naučiť a používať . V niekoľkých krokoch môžete písať VB.NET kód zmeniť hodnoty buniek v zošite programu Excel . Pokyny dovolená 1

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 .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené