vb初手请教数据库问题

Question

我想在MSFlexGrid控件中引用数据库,请教如何引用数据库并进行读/该/写等等操作?请能提供这方面的具体应用例子最好了. 初手水平较底,请能在答复时使用上注释, 谢谢!

Answer 1

现在我都不用VB了，机器没有安装，如果你要的话，我把窗体及源码给你，我的QQ：402777306

Answer 2

Private Sub Form_Click ()
   Dim Entry, i, Msg               '声明变量。
   Msg = _
   "Choose OK to add 100 items to your MSFlexGrid."
   MsgBox Msg   '显示消息。
   MSHFlexGrid1.Cols = 2         '每行有两个字符串。
   For i = 1 To 100   '从 1 计数到 100。
      Entry = "Entry " & Chr(9) & I   '创建项。
      MSHFlexGrid1.AddItem Entry      '添加项。
   Next i
   Msg ="Choose OK to remove every other entry."
   MsgBox Msg                     '显示消息。
   For i =1 To 50               '决定怎样删除
      MSHFlexGrid1.RemoveItem i   '其它每一项。
   Next I                        
   Msg ="Choose OK to clear all items."
   MsgBox Msg                     '显示消息。
   MSFlexGrid1.Clear               '清除列表框。
End Sub

Answer 3

使用ADO吧，，呵呵，，我喜欢使用ADO。

Answer 4

现在都不用VB了吗?干嘛都没人具体点讲讲怎么样在VB用MSFlexGrid控件来对数据库进行读/该/写的?

Answer 5

用ADO和数据环境都可以，就是执行相应的update就是了

Answer 6

Public Function WriteDataToMGrid(MGrid As Object, strSQL As String, col As Integer) '往MSHFlexGrid网格写入数据并控制其颜色
On Error GoTo err
Dim rs As ADODB.Recordset
Dim i As Integer
Dim R As Integer
Dim color As Long
Set rs = New ADODB.Recordset
rs.Open strSQL, cnn, adOpenKeyset, adLockReadOnly
MGrid.Cols = col
MGrid.Visible = False
If rs.EOF = False Then
    rs.MoveFirst
    Do While Not rs.EOF
        MGrid.Rows = R + 2
        MGrid.row = R + 1
        MGrid.RowHeight(R) = 250
        If R Mod 2 = 0 Then
          color = &HFFC0C0
        Else
          color = &H80000018
        End If
        For i = 0 To col - 1
           MGrid.col = i
           MGrid.ColAlignment = 4
           If i = 0 Then
               MGrid.ColWidth(i) = 700
               MGrid.Text = R + 1
               MGrid.ColAlignment = 1
           Else
               If IsNull(rs.Fields(i - 1)) Then
                  MGrid.Text = ""
               Else
                  MGrid.Text = Trim$(rs.Fields(i - 1))
               End If
           MGrid.CellBackColor = color
           End If
        Next i
        R = R + 1
        rs.MoveNext
    Loop
End If
MGrid.Visible = True
MGrid.row = 1
MGrid.col = 1
rs.Close
Set rs = Nothing
Exit Function
err:
MsgBox err.Number & " " & err.Description
End Function