VB与ADO的用法 （增删改查）

本文链接：https://blog.csdn.net/chouwa_wa/article/details/6460783

Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub CmdAdd_Click()
    Dim sname, stel, saddr As String
      sname = TxtName.Text
      stel = TxtTel.Text
      saddr = TxtAddr.Text
    Dim StrSQL As String
        StrSQL = "insert into stu values ('" & sname & "','" & stel & "','" & saddr & "') "
        MSH_ADO cn, StrSQL
End Sub

Private Sub CmdDelete_Click()
    Dim sid As Integer
      sid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
    Dim StrSQL As String
        StrSQL = "delete stu where sid=" & sid
        MSH_ADO cn, StrSQL
End Sub

Private Sub CmdUpdate_Click()
    Dim sid As Integer
    Dim sname, stel, saddr As String
      sid = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
      sname = TxtName.Text
      stel = TxtTel.Text
      saddr = TxtAddr.Text
    Dim StrSQL As String
        StrSQL = "update stu set sname='" & sname & "',stel='" & stel & "',saddr='" & saddr & "'  where sid=" & sid
        MSH_ADO cn, StrSQL
End Sub

Private Sub Form_Load()
     cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=My_Stu;Data Source=."
     cn.Open
        Set rs = cn.Execute("select * from stu")
        Set MSHFlexGrid1.DataSource = rs
    MSHFlexGrid1.ColWidth(0) = 0
    cn.Close
End Sub
Private Sub MSHFlexGrid1_EnterCell()
   '单击某一单元时，改变该行颜色
    Dim i_Col     As Integer
    Dim c_col     As Integer
    c_col = MSHFlexGrid1.Col
    If c_col > 0 Then
          For i_Col = 0 To MSHFlexGrid1.Cols - 1
                  MSHFlexGrid1.Col = i_Col
                  MSHFlexGrid1.CellBackColor = &HFFFFC0
          Next i_Col
          MSHFlexGrid1.Col = c_col
    End If
       TxtName.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
       TxtTel.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 3)
       TxtAddr.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 4)
End Sub

Private Sub MSHFlexGrid1_LeaveCell()
    '当某一行失去焦点时，改变该行颜色
    Dim i_Col     As Integer
    Dim c_col     As Integer
    c_col = MSHFlexGrid1.Col
    For i_Col = 0 To MSHFlexGrid1.Cols - 1
            MSHFlexGrid1.Col = i_Col
            MSHFlexGrid1.CellBackColor = vbWhite
    Next i_Col
    MSHFlexGrid1.Col = c_col
End Sub
Private Function MSH_ADO(cn As ADODB.Connection, StrSQL As String)
    cn.Open
    cn.Execute (StrSQL)
    Dim rs As ADODB.Recordset
        Set rs = cn.Execute("select * from stu")
        Set MSHFlexGrid1.DataSource = rs
    cn.Close
End Function