十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
1、首先得到一个第二列不重复的一个查询视图:
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:申请域名、网页空间、营销软件、网站建设、鱼台网站维护、网站推广。
select 第二列 from 数据表 group by 第二列
2、将不需要的记录标记为删除:
for 从查询试图取一条记录A
select * from 数据表 where 第二列=记录A order by id
for
如果是第一个记录,跳过继续循环
否则更新第二列内容为“删除”
记录指针移到下一条记录
next
next
delete from 数据表 where 第二列=“删除”
Try
'先标记表中行状态为删除,不能使用Clear方法,此方法会将dataset.table中所有行清除
for each dr as datarow in DataDataSet.Tables("recip").Rows
dr.delete
next
‘然后更新
'注意使用此方法更新必须保存数据表中包含索引
RecipTableAdapter.Update(DataDataSet,"recip")
’然后再AcceptChanges,此动作必须在Update之后
DataDataSet.Tables("recip").AcceptChanges()
Catch ex As Exception
MessageBox.Show(ex.Message, "系统提示", MessageBoxButtons.OK)
End Try
Dim myconn As New OleDb.OleDbConnection
Dim mycommand As New OleDb.OleDbCommand
myconn.ConnectionString = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=C:\Users\Administrator\Documents\账号密码.accdb "
myconn.Open()
mycommand.Connection = myconn
Dim sql5 As String = "delete from 表3 where userid='" (TextBox1.Text) "'"
mycommand.CommandText = sql5
mycommand.CommandType = CommandType.Text
mycommand.ExecuteNonQuery()
Dim sql3 As String = "update 表2 set Balance=Balance-2 where UserID='" (TextBox1.Text) "'"
mycommand.CommandText = sql3
mycommand.CommandType = CommandType.Text
mycommand.ExecuteNonQuery()
myconn.Close()
sQueryString是SQL(增删查改)语句
public
Boolean
ExecSQL(string
sQueryString)
{
SqlConnection
con
=
new
SqlConnection(ConfigurationManager.AppSettings["conStr"]);
con.Open();
SqlCommand
dbCommand
=
new
SqlCommand(sQueryString,
con);
try
{
dbCommand.ExecuteNonQuery();
con.Close();
}
catch
{
con.Close();
return
false;
}
return
true;
}
}
建立一个类,明自己取,然后调用就是了
例如:
类
BC=NEW
类();
STRING
ist="INSERT
INTO
XX(1,2,3)VALUES(A,B,C)";
BC.ExecSQL(ist);
就可以了