当前位置:编程学习 > VB >>

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 ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,