刘金玉的零基础VB教程085期：mshflexgrid联动数据库更新

Option Explicit
Dim sql As String
Dim conn As New ADODB.Connection
Dim 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.Open
End 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) = "唯一编号"
MSHFlexGrid1.TextMatrix(0, 1) = "账号"
MSHFlexGrid1.TextMatrix(0, 2) = "密码"

End Sub

Public 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.Open
End If

Set rs = New ADODB.Recordset
sql = "select * from users"
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic

Set MSHFlexGrid1.DataSource = rs

'表头
MSHFlexGrid1.TextMatrix(0, 0) = "唯一编号"
MSHFlexGrid1.TextMatrix(0, 1) = "账号"
MSHFlexGrid1.TextMatrix(0, 2) = "密码"

Command4.Enabled = True
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.Open
End 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

Private Sub Command4_Click()
Form2.Show vbModal
End Sub

Option Explicit
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

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.Open
End If
'更新数据库
Set rs = New ADODB.Recordset
sql = "update [users] set [username]='" & Text1.Text & "',[password]='" & Text2.Text & "' where id=" & Label2.Caption
rs.Open sql, conn, adOpenKeyset, adLockBatchOptimistic

'更新mshflexgrid

Form1.MSHFlexGrid1.TextMatrix(Form1.MSHFlexGrid1.Row, 1) = Text1.Text
Form1.MSHFlexGrid1.TextMatrix(Form1.MSHFlexGrid1.Row, 2) = Text2.Text

Unload Form2




End Sub

Private Sub Form_Load()

Label2.Caption = Form1.MSHFlexGrid1.TextMatrix(Form1.MSHFlexGrid1.Row, 0)
Text1.Text = Form1.MSHFlexGrid1.TextMatrix(Form1.MSHFlexGrid1.Row, 1)
Text2.Text = Form1.MSHFlexGrid1.TextMatrix(Form1.MSHFlexGrid1.Row, 2)
End Sub