这个控件只能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----------------------------------------------------------------------------------------------------
如果和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----------------------------------------------------------------------------------------------------
解决方案 »
- 关于窗体大小的问题,特急,特急!哥哥,姐姐们都请进!
- 请各位高手帮帮我把,VB问题
- 模拟鼠标单击问题
- InterMecPD41
- Rem 界面一个编辑框一个按钮,我希望单击按钮时能把编辑框中我选择的内容显示出来。要怎么改着代码?
- 如何利用VB+SQL SERVER 2000开发局域网数据库系统
- 怎么样引用DLL文件到工程中?
- "SELECT * INTO [EXCEL 8.0;DATABASE=C:\info.XLS].[info] FROM [info] "
- MDI窗体中如何使得打开的窗体只有一个?
- 请问此问题如何解决:“多步OLE DB操作产生错误。请检查每个OLE DB状态值。没有工作被完成。"
- 求助 VB菜鸟
- vb 中如何用combol进行选择 比如有选择项 成功,失败
用additem方法往gird中送内容;
从gird中取的时候,要按格子取。设.col和.row的值(活动格),然后取出这个格中的内容(好像是.text属性吧,)。用循环取,外层循环n次,内层循环m次。(n,m是行rows、列cols的数,注意标题行是0行,也占行了。)