1、首先得到一個第二列不重復(fù)的一個查詢視圖:
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴,公司提供的服務(wù)項目有:申請域名、網(wǎng)頁空間、營銷軟件、網(wǎng)站建設(shè)、魚臺網(wǎng)站維護、網(wǎng)站推廣。
select 第二列 from 數(shù)據(jù)表 group by 第二列
2、將不需要的記錄標(biāo)記為刪除:
for 從查詢試圖取一條記錄A
select * from 數(shù)據(jù)表 where 第二列=記錄A order by id
for
如果是第一個記錄,跳過繼續(xù)循環(huán)
否則更新第二列內(nèi)容為“刪除”
記錄指針移到下一條記錄
next
next
delete from 數(shù)據(jù)表 where 第二列=“刪除”
Try
'先標(biāo)記表中行狀態(tài)為刪除,不能使用Clear方法,此方法會將dataset.table中所有行清除
for each dr as datarow in DataDataSet.Tables("recip").Rows
dr.delete
next
‘然后更新
'注意使用此方法更新必須保存數(shù)據(jù)表中包含索引
RecipTableAdapter.Update(DataDataSet,"recip")
’然后再AcceptChanges,此動作必須在Update之后
DataDataSet.Tables("recip").AcceptChanges()
Catch ex As Exception
MessageBox.Show(ex.Message, "系統(tǒng)提示", 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;
}
}
建立一個類,明自己取,然后調(diào)用就是了
例如:
類
BC=NEW
類();
STRING
ist="INSERT
INTO
XX(1,2,3)VALUES(A,B,C)";
BC.ExecSQL(ist);
就可以了