MSFlexGrids控件和mysql的交互问题
这个控件只能access数据库进行交互么?如果和mysql交互的时候,怎么交互,能给个例子么?
----------------------------------------------------------------------------------------------------
access的时候:
Set a = OpenDatabase("D:\HMCA\HMCA.mdb", False, False, ";pwd=49612159")
Set c = a.CreateQueryDef("")
c.SQL = "select * from 加工别代号 order by 加工类别代号"
Set b = c.OpenRecordset()
If b.RecordCount = 0 Then
MsgBox "第一次运行本系统,系统中没有任何数据,请添加数据!", vbInformation, "加工别代号"
Exit Sub
End If
MSFlexGrid1.Rows = b.RecordCount + 1
b.MoveFirst
Call header
For i = 1 To b.RecordCount
MSFlexGrid1.TextMatrix(i, 0) = ""
MSFlexGrid1.TextMatrix(i, 1) = Trim(b!加工类别代号)
MSFlexGrid1.TextMatrix(i, 2) = Trim(b!加工类别说明)
MSFlexGrid1.TextMatrix(i, 3) = Trim(b!加工代号)
MSFlexGrid1.TextMatrix(i, 4) = Trim(b!加工说明)
MSFlexGrid1.TextMatrix(i, 5) = Trim(b!异动日期)
MSFlexGrid1.TextMatrix(i, 6) = Trim(b!使用状态)
b.MoveNext
Next i
RowSelec = 0
b.Close
Me.Refresh
---------------------------------------------------------------------------------------------------- --------------------编程问答-------------------- 就是取数据送到Flexgrid中和从grid中取内容送到库中。
用additem方法往gird中送内容;
从gird中取的时候,要按格子取。设.col和.row的值(活动格),然后取出这个格中的内容(好像是.text属性吧,)。用循环取,外层循环n次,内层循环m次。(n,m是行rows、列cols的数,注意标题行是0行,也占行了。)
补充:VB , 基础类