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

1.使用PHP

成都網(wǎng)站設(shè)計、網(wǎng)站建設(shè)的關(guān)注點(diǎn)不是能為您做些什么網(wǎng)站，而是怎么做網(wǎng)站，有沒有做好網(wǎng)站，給創(chuàng)新互聯(lián)建站一個展示的機(jī)會來證明自己，這并不會花費(fèi)您太多時間，或許會給您帶來新的靈感和驚喜。面向用戶友好，注重用戶體驗(yàn)，一切以用戶為中心。

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

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

·將EXCEL表另存為CSV形式；

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

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

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

VB.NET怎樣實(shí)現(xiàn)導(dǎo)入導(dǎo)出文本文件

用System.IO.StreamReader類可以讀各類文本文件，用System.IO.StreamWriter 類則可以寫各類文本文件，從而實(shí)現(xiàn)導(dǎo)入導(dǎo)出文本文件功能。這兩個類均支持各類編碼格式（默認(rèn)的是Unicode和UTF-8）。

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

解題思路：

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

用一個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, "注冊表")

DG.DataSource = Nothing

DG.DataSource = ds.Tables(0)

DG.Refresh()

End If

End With