| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1931 人关注过本帖
标题:[求助]数据库表删除问题
只看楼主 加入收藏
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
收藏
 问题点数:0 回复次数:20 
[求助]数据库表删除问题
我的代码只能删除datagrid1中的和绑定的文本框中的内容....删不掉数据库中的内容....(我用的是access)
请高手帮忙
看看代码怎么写...
我是初学者...希望写详细点的....
先谢过!!!!!
代码如下:
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If (Me.BindingContext(objDataSet1, "ad_class").Count > 0) Then
Me.BindingContext(objDataSet1, "ad_class").RemoveAt(Me.BindingContext(objDataSet1, "ad_class").Position)
Me.objDataSet1_PositionChanged()
End If
End Sub
在线等回答..谢谢!~!~!
搜索更多相关主题的帖子: 数据库 删除 
2006-10-24 10:02
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
收藏
得分:0 
补充一下:
我要删除的是选中datagrid1中相应的记录时...同时也删除数据库表中相应的记录....

我的小站:http://www.欢迎光临!
2006-10-24 10:34
wangfuli
Rank: 4
等 级:贵宾
威 望:12
帖 子:206
专家分:10
注 册:2005-11-11
收藏
得分:0 

上面的代码没错了,只要加个da.update(ds,"tablename")就可以了


2006-10-24 10:39
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
收藏
得分:0 

我加上这句 Me.OleDbDataAdapter1.Update(objDataSet1, "ad_class")后
运行时出现这个错误:



未处理的“System.InvalidOperationException”类型的异常出现在 system.data.dll 中。

其他信息: 当传递具有已删除行的 DataRow 集合时,更新要求有效的 DeleteCommand。


我的小站:http://www.欢迎光临!
2006-10-24 11:44
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
收藏
得分:0 
高手帮帮我呀...我做到这里卡在这边啦...谢谢啦

我的小站:http://www.欢迎光临!
2006-10-24 16:06
wangfuli
Rank: 4
等 级:贵宾
威 望:12
帖 子:206
专家分:10
注 册:2005-11-11
收藏
得分:0 

dim db as new oledbcommandbuilder(da)
da.update(ds,"tablename")


2006-10-24 16:12
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
收藏
得分:0 
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If (Me.BindingContext(objDataSet1, "ad_class").Count > 0) Then
Me.BindingContext(objDataSet1, "ad_class").RemoveAt(Me.BindingContext(objDataSet1, "ad_class").Position)
Me.objDataSet1_PositionChanged()
Dim da As New OleDbDataAdapter
Dim db As New OleDbCommandBuilder(da)
da.Update(objDataSet1, "ad_class")
End If
End Sub

我改成这样还是有错误?
到底应该怎么改帮帮我....谢谢!!!!!!
我是新手不太懂呀..能帮我写清楚点么?谢谢了

我的小站:http://www.欢迎光临!
2006-10-24 17:24
wangfuli
Rank: 4
等 级:贵宾
威 望:12
帖 子:206
专家分:10
注 册:2005-11-11
收藏
得分:0 
Dim da As New OleDbDataAdapter有问题了,OleDbCommandBuilder跟踪的da应该是你检索出数据的da,
或者是直接在给OleDbCommandBuilder绑定一个新的da,但是这里的da 要有更新的查询和连接字符串
下面的代码应该可以,我试做了:是把OleDbCommandBuilder绑定一个新的da
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
If (Me.BindingContext(objDataSet1, "ad_class").Count > 0) Then
Me.BindingContext(objDataSet1, "ad_class").RemoveAt(Me.BindingContext(objDataSet1, "ad_class").Position)
Me.objDataSet1_PositionChanged()
Dim da As New OleDbDataAdapter(str,cnnstr)
Dim db As New OleDbCommandBuilder(da)
da.Update(objDataSet1, "ad_class")
End If
End Sub

2006-10-24 21:15
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
收藏
得分:0 

谢谢!!!!!

我再试试!!!!!!!!!


我的小站:http://www.欢迎光临!
2006-10-26 22:25
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
收藏
得分:0 
大哥帮帮忙?

Dim da As New OleDbDataAdapter(str,cnnstr)

里面的str,cnnstr在前面应该怎么定义...麻烦你啦..不好意思..我刚学..所以笨了点


谢谢你呀!~~~~

我的小站:http://www.欢迎光临!
2006-10-26 23:43
快速回复:[求助]数据库表删除问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043281 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved