如何用VB.NET調(diào)用excel的畫圖命令，即用.NET得到一組點(diǎn)坐標(biāo)后，調(diào)用excel根據(jù)點(diǎn)畫出曲線圖并顯示在VB.NET里

你可以通過用VB.net控制excel，讓excel生成曲線圖，然后利用excelVBA將圖輸出，最后導(dǎo)入到VB.net就可以了。

成都創(chuàng)新互聯(lián)公司是一家專注于成都網(wǎng)站建設(shè)、網(wǎng)站制作與策劃設(shè)計(jì),通遼網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:通遼等地區(qū)。通遼做網(wǎng)站價(jià)格咨詢:13518219792

在vb.net中如何把excel表導(dǎo)入到mysql數(shù)據(jù)庫中去

1.使用PHP

Excel Parser Pro軟件，但是這個(gè)軟件為收費(fèi)軟件；

2.可將EXCEL表保存為CSV格式，然后通過phpmyadmin或者SQLyog導(dǎo)入，SQLyog導(dǎo)入的方法為：

·將EXCEL表另存為CSV形式；

·打開SQLyog，對(duì)要導(dǎo)入的表格右擊，點(diǎn)擊“導(dǎo)入”-“導(dǎo)入使用加載本地CSV數(shù)據(jù)”；

·在彈出的對(duì)話框中，點(diǎn)擊“改變..”，把選擇“填寫excel友好值”，點(diǎn)擊確定；

·在“從文件導(dǎo)入”中選擇要導(dǎo)入的CSV文件路徑，點(diǎn)擊“導(dǎo)入”即可導(dǎo)入數(shù)據(jù)到表上；

vb.net怎樣把excel內(nèi)容導(dǎo)入到datagridview

解題思路：

把EXCEL看做數(shù)據(jù)源來連接。

用一個(gè)list來顯示EXCEL中的所有表，選擇指定表名，打開EXCEL到DG

——————————如下：

引用ADODB 2.8

導(dǎo)入：

Imports System.Data

Imports System.Data.Odbc

Imports System.Data.OleDb

申明

Private Excelpath As String

Public conn As New ADODB.Connection

Public rs As New ADODB.Recordset

創(chuàng)建conn

Public Sub connDB(ByVal filePath As String)

On Error Resume Next

Dim strConnString As String = "Provider=microsoft.ace.oledb.12.0;Data Source=" filePath ";Extended Properties='Excel 12.0; HDR=yes;IMEX=1';"

conn.ConnectionString = strConnString

conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient

conn.Open()

End Sub

Public Function 獲取電子表集合(filePath) As List(Of String)

Dim ConnStr As String = "Provider=microsoft.ace.oledb.12.0;Data Source=" filePath ";Extended Properties='Excel 12.0; HDR=no;IMEX=1';"

Dim list As New List(Of String)()

Dim Conn2 As New OleDbConnection(ConnStr)

Try

If Conn2.State = ConnectionState.Closed Then

Conn2.Open()

End If

Dim dt As DataTable = Conn2.GetSchema("Tables")

For Each row As DataRow In dt.Rows

If row(3).ToString() = "TABLE" Then

list.Add(row(2).ToString())

End If

Next

Catch e As Exception

'Throw e

Finally

If Conn2.State = ConnectionState.Open Then

Conn2.Close()

End If

Conn2.Dispose()

End Try

Return list

End Function

//////////////////

開始打開指定EXCEL到DG

Call connDB(Excelpath)

Dim sqlstr As String = "select * from [" Me.ListBox1.Text "]"

With rs

If rs.State 0 Then rs.Close()

.CursorLocation = ADODB.CursorLocationEnum.adUseClient

.Open(sqlstr, conn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)

If Not rs.EOF And Not rs.BOF Then

Dim da As New System.Data.OleDb.OleDbDataAdapter

Dim ds As New DataSet

da.Fill(ds, rs, "注冊(cè)表")

DG.DataSource = Nothing

DG.DataSource = ds.Tables(0)

DG.Refresh()

End If

End With

用vb.net把圖片導(dǎo)入EXCEL中，并固定大小和位置。

首先被讀出，并通過寫入到指定的Excel電子表格的方式，插入數(shù)據(jù)庫的結(jié)果可以！ ！

一般可以使用OLEDB連接到數(shù)據(jù)庫！在EXCEL表格中指定的表，也可以通過OLEDB插入

vb.net中，如何像下圖一樣，用很簡(jiǎn)單的辦法，導(dǎo)入1000張圖片。

很簡(jiǎn)單的方法，貌似沒有。這個(gè)需要自己寫很多代碼：

用一個(gè)ListView控件。

判斷滾動(dòng)條當(dāng)前所顯示的圖片集合，獲取它們的物理路徑。

用Bitmap.FromImage方法把這些圖片讀出來，

然后獲取縮略圖，

把縮略圖用Graphics.DrawImage()繪制出來。

我可以提供Bitmap如何獲取縮略圖的方法：

'''?summary必須創(chuàng)建一個(gè)委托并將對(duì)此委托的引用作為獲取縮略圖?callback?參數(shù)傳遞，但不使用此委托。/summary

Public?Function?ThumbnailCallback()?As?Boolean

Return?False

End?Function

'''?summary返回Image，表示圖像指定?寬?和?高?的縮略圖。/summary

Public?Function?獲取縮略圖(位圖?As?Bitmap,?寬?As?Integer,?高?As?Integer)?As?Image

Dim?myCallback?As?New?Image.GetThumbnailImageAbort(ThumbnailCallback)

Return?位圖.GetThumbnailImage(寬,?高,?myCallback,?IntPtr.Zero)

End?Function