很傻很天真地请教下关于ADO和MSFlexGrid的问题

Question

'看了相关的资料MSFlexGrid控件不支持ADO的层次显示...  '但俺用的是ACCESS的数据库..程序上用了MSFlexGrid控件.也引用了ActiveX Data Objects 2.7..  '问题是
      '为什么没有引用DAO还可以使用MSFlexGrid控件呢?         '俺这样用算不算是ADO的连接方法?           '如果把数据库换成是SQL SEVER了.MSFlexGrid控件还能用吗?
         

Answer 1

Public Sub OpenConn() '连接数据库
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\data.accdb;Jet OLEDB:Database Password=123;Persist Security Info=False;"
End Sub
Private Sub Command3_Click() '保存
Dim i As Integer
End SubCall OpenConnFor i = 1 To MSFlexGrid1.Rows - 1
 NumId = NumId + 1
 
   SQL = "insert into XSD  values ('" & NumId & "','" & Label4.Caption & "','" & Format(DTPicker1.Value, "yyyy-mm-dd") & "','" & Text3.Text & "','" & Label1(7).Caption & "','" & Label3.Caption & "','" & Text4.Text & "','" & Text5.Text & "','" & MSFlexGrid1.TextMatrix(i, 0) & "','" _
                                  & MSFlexGrid1.TextMatrix(i, 1) & "','" & MSFlexGrid1.TextMatrix(i, 2) & "','" & MSFlexGrid1.TextMatrix(i, 3) & "','" & MSFlexGrid1.TextMatrix(i, 4) & "','" & MSFlexGrid1.TextMatrix(i, 5) & "','" & MSFlexGrid1.TextMatrix(i, 6) & "','" & MSFlexGrid1.TextMatrix(i, 7) & "','" & MSFlexGrid1.TextMatrix(i, 8) & "','" & MSFlexGrid1.TextMatrix(i, 9) & "','" & MSFlexGrid1.TextMatrix(i, 10) & "','" & MSFlexGrid1.TextMatrix(i, 11) & "','" & Label1(5).Caption & "')"
   rs.Open SQL, cn, 1, 3
Next
Call CloseConnMsgBox "单据保存成功!", 48, "提示"

Answer 2

MSFlexGrid和有没有数据库是没有关系的！

Answer 3

MSFlexGrid控件是加microshoft flexgrid control 6.0也引用了ActiveX Data Objects 2.7
用ado'如果把数据库换成是SQL SEVER了.MSFlexGrid控件还能用吗?其他数据库换cn.Open "Provider就可以了，和MSFlexGrid没有关系

Answer 4

ado管数据库的连接，MSFlexGrid是把ado的记录集拿来用
数据库————〉ado——————〉MSFlexGrid

Answer 5

原来是这回事.谢谢jhone99兄 .阿勇兄!

Answer 6

MSFlexGrid和数据裤没有必然联系
可以绑定也可以不绑定
就好像TextBox,可以绑定数据库，也可以不绑定