溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊(cè)×
其他方式登錄
點(diǎn)擊 登錄注冊(cè) 即表示同意《億速云用戶服務(wù)條款》

mshflexgrid如何聯(lián)動(dòng)數(shù)據(jù)庫(kù)刪除

發(fā)布時(shí)間：2021-12-14 14:00:21 來(lái)源：億速云 閱讀：144 作者：小新 欄目：大數(shù)據(jù)

小編給大家分享一下mshflexgrid如何聯(lián)動(dòng)數(shù)據(jù)庫(kù)刪除，希望大家閱讀完這篇文章之后都有所收獲，下面讓我們一起去探討吧！

Mshflexgrid屬性運(yùn)用

MSHFlexGrid1.Row 返回當(dāng)前選中的行號(hào)

MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)代表返回指定行的第一列的值

刪除后的刷新思想

1、數(shù)據(jù)庫(kù)刪除后，重新進(jìn)行一遍查詢（不推薦，消耗性能大）

2、數(shù)據(jù)庫(kù)刪除后，直接在mshflexgrid上面進(jìn)行刪除指定行，使用語(yǔ)句MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row

RemoveItem方法后面添加一個(gè)索引值，就可以刪除指定行

文件列表：

mshflexgrid如何聯(lián)動(dòng)數(shù)據(jù)庫(kù)刪除

界面：

mshflexgrid如何聯(lián)動(dòng)數(shù)據(jù)庫(kù)刪除

源代碼：

Option ExplicitDim sql As StringDim conn As New ADODB.ConnectionDim rs As ADODB.Recordset
Private Sub Command1_Click()If conn.State = 0 Then    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database3.mdb;Persist Security Info=False"    conn.OpenEnd If
sql = "insert into [users]([username],[password]) values('" & Text1.Text & "','" & Text2.Text & "')"
Set rs = New ADODB.Recordset
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic'MsgBox "錄入成功！"
sql = "select * from users"rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic

Set MSHFlexGrid1.DataSource = rs
'表頭MSHFlexGrid1.TextMatrix(0, 0) = "唯一編號(hào)"MSHFlexGrid1.TextMatrix(0, 1) = "賬號(hào)"MSHFlexGrid1.TextMatrix(0, 2) = "密碼"
End Sub
Private Sub Command2_Click()If conn.State = 0 Then    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database3.mdb;Persist Security Info=False"    conn.OpenEnd If
Set rs = New ADODB.Recordsetsql = "select * from users"rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
Set MSHFlexGrid1.DataSource = rs
'表頭MSHFlexGrid1.TextMatrix(0, 0) = "唯一編號(hào)"MSHFlexGrid1.TextMatrix(0, 1) = "賬號(hào)"MSHFlexGrid1.TextMatrix(0, 2) = "密碼"End Sub
Private Sub Command3_Click()
If conn.State = 0 Then    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database3.mdb;Persist Security Info=False"    conn.OpenEnd If
Set rs = New ADODB.Recordset
sql = "delete from [users] where [id]=" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic
'Call Command2_Click   '方法1
'方法2
MSHFlexGrid1.RemoveItem MSHFlexGrid1.Row
End Sub

看完了這篇文章，相信你對(duì)“mshflexgrid如何聯(lián)動(dòng)數(shù)據(jù)庫(kù)刪除”有了一定的了解，如果想了解更多相關(guān)知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道，感謝各位的閱讀！

向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如果涉及侵權(quán)請(qǐng)聯(lián)系站長(zhǎng)郵箱：is@yisu.com進(jìn)行舉報(bào)，并提供相關(guān)證據(jù)，一經(jīng)查實(shí)，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手