版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

>论坛更新日志 (2948)
>虫友互识 (520)
>导师招生 (194)
>休闲灌水 (151)
>考博 (140)
>论文投稿 (103)
>文献求助 (92)
>硕博家园 (66)
>博后之家 (65)
>考研 (60)
>教师之家 (42)
>招聘信息布告栏 (38)
>基金申请 (33)
>精细化工 (29)
>公派出国 (27)
>找工作 (22)

返回列表

zzahkj

木虫 (著名写手)

应助: 42 (小学生)
金币: 1929.7
帖子: 1520
在线: 465.5小时
虫号: 964751

[交流] VB.net将Excel导入到Access但datagridview上不能显示更新后的数据？

Private Sub 数据导入ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 数据导入ToolStripMenuItem.Click
      Dim dresult As DialogResult = Me.openFileDialog1.ShowDialog()
      If dresult = System.Windows.Forms.DialogResult.OK Then
         Dim filepath As String = openFileDialog1.FileName
         If filepath = "" Then
            MessageBox.Show("请选择要导入的Excel文档！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
         Else
            Dim ds As New DataSet()
            '取得数据集
            '调用下面的函数
            ds = xsldata(filepath)
            'dataGridView2.DataSource = ds.Tables[0];
            Dim errorcount As Integer = 0 '记录错误信息条数
            Dim updatecount As Integer = 0 '更新信息条数
            Dim insertcount As Integer = 0 '记录插入成功条数
            Dim mess As String = ""
            Dim i As Integer
            For i = 0 To (ds.Tables(0).Rows.Count) - 1
                  Dim mc As String = ds.Tables(0).Rows(i).Item(0).ToString  '读取每一行的第一列数据
                  Dim kbc As Double = CType(ds.Tables(0).Rows(i).Item(1), Double)
                  Dim hsc As Double = CType(ds.Tables(0).Rows(i).Item(2), Double)
                  Dim shtc As Double = CType(ds.Tables(0).Rows(i).Item(3), Double)
                  Dim ysc As Double = CType(ds.Tables(0).Rows(i).Item(4), Double)
                  Dim djc As Double = CType(ds.Tables(0).Rows(i).Item(5), Double)
                  Dim stc As Double = CType(ds.Tables(0).Rows(i).Item(6), Double)
                  Dim dzc As Double = CType(ds.Tables(0).Rows(i).Item(7), Double)
                  Dim hhc As Double = CType(ds.Tables(0).Rows(i).Item(8), Double)
                  Dim dhc As Double = CType(ds.Tables(0).Rows(i).Item(9), Double)
                  Dim zjc As Double = CType(ds.Tables(0).Rows(i).Item(10), Double)
                  Dim yx As Double = CType(ds.Tables(0).Rows(i).Item(11), Double)
                  Dim bgzl As Double = CType(ds.Tables(0).Rows(i).Item(12), Double)
                  Dim gjzs As Double = CType(ds.Tables(0).Rows(i).Item(13), Double)
                  Dim kxb As Double = CType(ds.Tables(0).Rows(i).Item(14).ToString, Double)
                  Dim yxzs As Double = CType(ds.Tables(0).Rows(i).Item(15).ToString, Double)

                  Dim Str As String = "insert into zuankong(名称,空白层,含水层,砂土层,岩石层,堆积层,死土层,地质层,火化层,地核层,中间层,岩性,比贯入阻力,标贯击数,孔隙比,液性指数) Values ('" + mc + "','" & Trim(kbc) & "','" & Trim(hsc) & "','" & Trim(shtc) & "','" & Trim(ysc) & "','" & Trim(djc) & "','" & Trim(stc) & "','" & Trim(dzc) & "','" & Trim(hhc) & "','" & Trim(dhc) & "','" & Trim(zjc) & "','" & Trim(yx) & "','" & Trim(bgzl) & "','" & Trim(gjzs) & "','" & Trim(kxb) & "','" & Trim(yxzs) & "') "
            Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection
                  conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & System.Windows.Forms.Application.StartupPath & "\zkshujuku.mdb;"
                  Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand
                  conn.Open() '打开连接
                  cmd.Connection = conn
                  Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(Str, conn)
                  da.Fill(ZkshujukuDataSet, "zuankong"

                  DataGridView1.DataSource = ZkshujukuDataSet.Tables(0) '更换datagridview1的数据源
                  DataGridView1.Refresh()
            Next
               End If
      End If
End Sub

Private Function xsldata(ByVal filepath As String) As DataSet

      Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties='Excel 8.0;IMEX=1'"

      Dim Conn As New System.Data.OleDb.OleDbConnection(strCon)

      Dim strCom As String = "SELECT * FROM [Sheet1$]"

      Conn.Open()

      Dim myCommand As New System.Data.OleDb.OleDbDataAdapter(strCom, Conn)

      Dim ds As New DataSet()

      myCommand.Fill(ds, "[Sheet1$]"

Conn.Close()

Return ds
End Function 'xsldata
上面可以实现Excel导入到Access功能，但是在DataGridView控件上不能显示更新后的数据还是更新前的？菜鸟刚接触这个，不是很懂，希望高手指点迷津！

回复此楼

» 猜你喜欢

售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有8人回复
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低已经有13人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有8人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有8人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有11人回复
为什么中国大学工科教授们水了那么多所谓的顶会顶刊，但还是做不出宇树机器人？已经有8人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有5人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有6人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有9人回复
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急已经有4人回复

» 本主题相关价值贴推荐，对您同样有帮助:

紫外检测器显示over 已经有7人回复
twcplot 导入cas，dat文件显示“out of memory” 已经有10人回复
鸟瞰密度泛函理论中文版(A_Bird's-Eye_View_of_Density-Functional_Theory) 已经有952人回复
菜鸟问题准备投稿SCI论文的图用普通的EXCEL绘制软件行么已经有13人回复
谁知道怎么在excel做平均数图表？已经有3人回复
从excel读取数据多项式拟合出错已经有3人回复
【分享】excel应用 V2.1【已搜索无重复】已经有12人回复
怎么样设置matlab在excel中的输出位置已经有10人回复
如何用VB调用出Access中的数据库？已经有4人回复
【求助】vb.net的DataGridView如何编辑后保存到Access数据库中？已经有7人回复
求助：Excel图X坐标轴更新问题已经有4人回复
【求助】VC++.NET/VC++ 调用EXCEL文件显示数据再控件上【已解决】已经有13人回复

» 抢金币啦！回帖就可以得到:

查看全部散金贴

1楼 2011-07-07 21:47:06

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

phenols

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 3257.2
帖子: 215
在线: 44.7小时
虫号: 385122

★ ★
zzahkj(金币+1):谢谢参与
jjdg(金币+1): 感谢参与 2011-07-31 14:51:37

关于编程语言的问题建议到http://community.csdn.net/这些专业的地方，回答也快

赞一下(2人)