vb.net的DataGridView如何编辑后保存到Access数据库中？
[问题点数：40分，结帖人zzahkj]
本版专家分：31
结帖率 100%
CSDN今日推荐
本版专家分：816296
2012年 荣获名人称号
2010年 总版技术专家分年内排行榜第一2009年 总版技术专家分年内排行榜第一
2011年 总版技术专家分年内排行榜第二
2011年3月 总版技术专家分月排行榜第一2011年2月 总版技术专家分月排行榜第一2011年1月 总版技术专家分月排行榜第一2010年12月 总版技术专家分月排行榜第一2010年11月 总版技术专家分月排行榜第一2010年10月 总版技术专家分月排行榜第一2010年9月 总版技术专家分月排行榜第一2010年8月 总版技术专家分月排行榜第一2010年7月 总版技术专家分月排行榜第一2010年6月 总版技术专家分月排行榜第一2010年5月 总版技术专家分月排行榜第一2010年3月 总版技术专家分月排行榜第一2010年4月 总版技术专家分月排行榜第一2010年2月 总版技术专家分月排行榜第一2010年1月 总版技术专家分月排行榜第一2009年12月 总版技术专家分月排行榜第一2009年11月 总版技术专家分月排行榜第一2009年10月 总版技术专家分月排行榜第一2009年8月 总版技术专家分月排行榜第一2009年7月 总版技术专家分月排行榜第一2009年6月 总版技术专家分月排行榜第一
本版专家分：31
本版专家分：10021
本版专家分：31
本版专家分：10021
本版专家分：10021
本版专家分：31
本版专家分：18840
本版专家分：1258
本版专家分：31
本版专家分：31
本版专家分：1258
本版专家分：1258
本版专家分：31
本版专家分：710
本版专家分：31
本版专家分：710
本版专家分：55
本版专家分：31
本版专家分：47
本版专家分：55
本版专家分：1258
本版专家分：1258
本版专家分：31
本版专家分：1258
本版专家分：225
本版专家分：225
本版专家分：225
本版专家分：225
匿名用户不能发表回复！
其他相关推荐百度文库-信息提示
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&100W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
对不起，该文档已被删除，无法查看
15秒后，自动返回首页vb.net datagridview 已设定allowusertoaddrows为False 怎样追加行_百度知道
vb.net datagridview 已设定allowusertoaddrows为False 怎样追加行
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：83
获赞数：482
追加行用：DataGridView1.Rows.Add()追加多行：DataGridView1.Rows.Add(n) ' 加n行，n 为整数另：插入行：DataGridView1.Rows.Insert(i,n)
' i 插入行位置（首行为0），n插入的行数如果只插入1行：DataGridView1.Rows.Insert(i) 删除行： DataGridView1.Rows.RemoveAt(i) ' i 删除行位置 希望可以帮到你。
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。24小时热门版块排行榜&&&&
【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 zzahkj 的 19 个金币
，回帖就立即获得 1 个金币，每人有 1 次机会
(著名写手)
在线: 436.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.&
& && && && && && &&&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&quot
& && && && && && &&&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$]&quot
& && &&&Conn.Close()
& && &&&Return ds
& & End Function 'xsldata
上面可以实现Excel导入到Access功能，但是在DataGridView控件上不能显示更新后的数据还是更新前的？菜鸟刚接触这个，不是很懂，希望高手指点迷津！
& 猜你喜欢
已经有34人回复
已经有5人回复
已经有8人回复
已经有91人回复
已经有44人回复
已经有16人回复
已经有5人回复
已经有23人回复
已经有105人回复
已经有38人回复
& 本主题相关商家推荐:
& 本主题相关价值贴推荐，对您同样有帮助:
已经有7人回复
已经有10人回复
已经有932人回复
已经有13人回复
已经有3人回复
已经有3人回复
已经有12人回复
已经有10人回复
已经有4人回复
已经有3人回复
已经有7人回复
已经有4人回复
已经有13人回复
已经有523人回复
& 抢金币啦！回帖就可以得到:
(小有名气)
在线: 44.7小时
虫号: 385122
★ ★ zzahkj(金币+1):谢谢参与jjdg(金币+1): 感谢参与
关于编程语言的问题建议到这些专业的地方，回答也快
相关版块跳转
第一性原理
我要订阅楼主
的主题更新
小木虫,学术科研互动社区,为中国学术科研免费提供动力
违规贴举报删除请发送邮件至：
广告投放与宣传请联系 李想 QQ：
QQ：&&邮箱：
Copyright &
MuChong.com, All Rights Reserved. 小木虫 版权所有温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(2850)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_094066',
blogTitle:'VB.Net使用datagridview实现分页',
blogAbstract:'在使用DataGridView显示来自DataTable的记录时，如果DataTable里的记录太多(上百条)，那么用DataGridView查看记录就很不方便，如果能让DataGridView分页显示，每页只显示10条（可以随意规定每页显示的条数），并且配以页面之间的跳转按钮，岂不是方面了许多？现在就来说说我是怎么做到的吧。\r\n我自己编写了一个类用于辅助DataGridView控件的记录分页显示，并提供页面跳转的方法。下面是这个类的源代码：\r\nPublic Class ClsDataGridViewPage\r\n&&& \'每页记录数&&& Private _RowsPerPage As Integer',
blogTag:'太原软件开发,网站设计,太原市李江软件开发工作室,山西软件开发',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:3,
publishTime:5,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'1',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}}