标题:[求助]数据库表删除问题
取消只看楼主
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
 问题点数:0 回复次数:14 
[求助]数据库表删除问题
我的代码只能删除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
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
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
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
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()
str = "select * from ad_class"
Dim da As New OleDbDataAdapter(Str, cnnstr)
Dim db As New OleDbCommandBuilder(da)
da.Update(objDataSet1, "ad_class")

End If
End Sub
出现以下错误:

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

其他信息: DataAdapter.SelectCommand.Connection 属性需要初始化;
怎么办呀???????????????????????


我的小站:http://www.欢迎光临!
2006-10-27 00:09
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
得分:0 
我在代码外面有定义:
Public cnnstr As OleDbConnection
Public str As String

我的小站:http://www.欢迎光临!
2006-10-27 00:10
cokick
Rank: 1
等 级:新手上路
帖 子:151
专家分:0
注 册:2006-6-8
得分:0 
谁能帮我呀?
给我完整一点的代码呀..我是新手急着用呀..谢谢..

我自己试了很多次了/...实在不行呀...

我的小站:http://www.欢迎光临!
2006-10-28 16:22



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-98319-1-1.html




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

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