vb.net系统中数据的导入 - 编程论坛

#2

tance1232010-04-20 21:11

刚学vb不久

#3

wangwubing2010-05-14 13:01

我要晕了

#4

2010-05-14 14:57

这个问题我一个月以前也问过，网上有很多代码可以参考，但是都不能直接用，比较烦。我最后是找人帮我做了一个，哎，这就是人生啊

#5

wangwubing2010-05-14 20:05

真的是人生啊！

#6

ouxianzhi5202010-05-16 22:03

利用dataset对像用一下。然后再搜索一下相关的代码吧。

#7

sywzs2010-05-19 13:59

建立与 Excel 的连接，然后把数据读到表中。

#8

grantcy2010-05-19 15:22

同7楼
用 oledb 的控件连接 excel
读取内容方式和一般的sql语句相同如 "select * from [sheet1$]"

#9

tance1232010-05-19 16:12

刚学vb。net不知道怎么做有没有朋友推荐个好点的教程或者例子，学习类别的网站供小弟研究下啊万分感谢啊

#10

sywzs2010-05-20 05:49

下面的代码打开一个EXCEL文档，并读取Sheet1表的内容，仅供参考。
    Dim MyDS As DataSet
    Dim MyCmd As OleDbDataAdapter
    Dim MyCon As OleDbConnection
    Dim OFD1 As New OpenFileDialog
    OFD1.Filter = "Excel Files|*.Xls"
    OFD1.Title = "连接 Excel 数据"
    If OFD1.ShowDialog() = DialogResult.OK Then
        If OFD1.FileName <> "" Then
        MyCon = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source=" & OFD1.FileName & ";Extended Properties=Excel 8.0;")
        MyCmd = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyCon)
        MyDS = New System.Data.DataSet
        MyCmd.Fill(MyDS, "EXL")
        Me.DataGridView1.DataSource = MyDS.Tables("EXL")
        End If
    End If

#11

taoshen2042010-05-25 14:17

yun

#12

taoshen2042010-05-25 14:18

都是没用的