前沿拓展:
vb數(shù)據(jù)庫(kù)
重新連接數(shù)據(jù)庫(kù) 或者如2樓所說(shuō) 一般是做重新連接,按這樣的情況,你應(yīng)該在編寫(xiě)之前就建立個(gè)揮湖沉據(jù)照絕怕專(zhuān)門(mén)用來(lái)刷新的函懷商海根地活數(shù),到時(shí)調(diào)用一下就很方便了。
視頻加載中…
今天學(xué)習(xí)了劉金玉老師零基礎(chǔ)VB教程的第84期,學(xué)習(xí)的主要內(nèi)容是mshflexgrid聯(lián)動(dòng)數(shù)據(jù)庫(kù)刪除。
一、思路
今天學(xué)習(xí)的內(nèi)容,主要在昨天數(shù)據(jù)錄**動(dòng)的基礎(chǔ)上,增加刪除聯(lián)動(dòng)的功能,思路都差一樣,主要是如何確定需要?jiǎng)h除的行,在確定后使用"delete from [users] where [id]=" & MSHFlexGrid1.TextMatrix(Row, 0)刪除所在行的數(shù)據(jù),MSHFlexGrid1.TextMatrix(Row, 0)表示當(dāng)前選中的行第一列的值。(補(bǔ)充知識(shí):MSHFlexGrid1.row表示選中的行號(hào))。
二、兩步聯(lián)動(dòng)刪除數(shù)據(jù)
1.第一步:刪除數(shù)據(jù)庫(kù)的數(shù)據(jù)
Private Sub Command3_Click()
If conn.State = 0 Then
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:作業(yè)成果學(xué)習(xí)VB編程第67天Database1.mdb;Persist Security Info=False"
conn.Open
End If
Set rs = New ADODB.Recordset
sql = "delete from [users] where [id]=" & MSHFlexGrid1.TextMatrix(Row, 0)
MsgBox sql
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
End Sub
2.第二步:刪除mshflexgrid表格對(duì)應(yīng)的數(shù)據(jù)
方法一:通過(guò)調(diào)用重新查詢方式更新mshflexgrid表格,達(dá)到聯(lián)動(dòng)刪除數(shù)據(jù)的效果。此方法存在浪費(fèi)運(yùn)行資源,效率不高的弊端,不推薦使用。
方法二:直接在mshflexgrid表格上刪除對(duì)應(yīng)的行, 使用MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row可以刪除選中指定的行。
三、運(yùn)行效果詳見(jiàn)視頻
拓展知識(shí):
前沿拓展:
vb數(shù)據(jù)庫(kù)
重新連接數(shù)據(jù)庫(kù) 或者如2樓所說(shuō) 一般是做重新連接,按這樣的情況,你應(yīng)該在編寫(xiě)之前就建立個(gè)揮湖沉據(jù)照絕怕專(zhuān)門(mén)用來(lái)刷新的函懷商海根地活數(shù),到時(shí)調(diào)用一下就很方便了。
視頻加載中…
今天學(xué)習(xí)了劉金玉老師零基礎(chǔ)VB教程的第84期,學(xué)習(xí)的主要內(nèi)容是mshflexgrid聯(lián)動(dòng)數(shù)據(jù)庫(kù)刪除。
一、思路
今天學(xué)習(xí)的內(nèi)容,主要在昨天數(shù)據(jù)錄**動(dòng)的基礎(chǔ)上,增加刪除聯(lián)動(dòng)的功能,思路都差一樣,主要是如何確定需要?jiǎng)h除的行,在確定后使用"delete from [users] where [id]=" & MSHFlexGrid1.TextMatrix(Row, 0)刪除所在行的數(shù)據(jù),MSHFlexGrid1.TextMatrix(Row, 0)表示當(dāng)前選中的行第一列的值。(補(bǔ)充知識(shí):MSHFlexGrid1.row表示選中的行號(hào))。
二、兩步聯(lián)動(dòng)刪除數(shù)據(jù)
1.第一步:刪除數(shù)據(jù)庫(kù)的數(shù)據(jù)
Private Sub Command3_Click()
If conn.State = 0 Then
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:作業(yè)成果學(xué)習(xí)VB編程第67天Database1.mdb;Persist Security Info=False"
conn.Open
End If
Set rs = New ADODB.Recordset
sql = "delete from [users] where [id]=" & MSHFlexGrid1.TextMatrix(Row, 0)
MsgBox sql
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
End Sub
2.第二步:刪除mshflexgrid表格對(duì)應(yīng)的數(shù)據(jù)
方法一:通過(guò)調(diào)用重新查詢方式更新mshflexgrid表格,達(dá)到聯(lián)動(dòng)刪除數(shù)據(jù)的效果。此方法存在浪費(fèi)運(yùn)行資源,效率不高的弊端,不推薦使用。
方法二:直接在mshflexgrid表格上刪除對(duì)應(yīng)的行, 使用MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row可以刪除選中指定的行。
三、運(yùn)行效果詳見(jiàn)視頻
拓展知識(shí):
原創(chuàng)文章,作者:九賢生活小編,如若轉(zhuǎn)載,請(qǐng)注明出處:http:///11484.html