×

MSFlexGrid 控件有什么特性,它不能直接绑定ADO控件吗 MSFlexGrid 控件有什么特性,它不能直接绑定ADO控件吗Set MSFlexGrid1.DataSource = ADODC

hqy hqy 发表于2023-03-06 17:34:47 浏览169 评论0

抢沙发发表评论

MSFlexGrid 控件有什么特性,它不能直接绑定ADO控件吗

MSFlexGrid 控件有什么特性,它不能直接绑定ADO控件吗Set MSFlexGrid1.DataSource = ADODC1程序说有错误


应使用MSHFlexGrid控件。MSFlexGrid控件只能绑定DATA控件,见VB5.0帮助文档。如想能绑定ADO控件必须使用它的升级版本MSHFlexGrid控件,它既能绑定DATA控件也能绑定控件,见VB6.0帮助文档。
如选DATA控件,则代码为:Set MSFlexGrid1.DataSource = DATA1  (默认是mdb,不支持SQL)
-----------------------
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select * From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set MSFlexGrid1.DataSource = rst '给DataGrid修改数据源




你的位置: 问答吧 -> VB -> 问题详情
vb 怎么将文本导入到MSFLEXGRID 控件里
怎么将N行文本, 导入到MSFLEXGRID 控件里
格式为:
张三----男
李四---- 男
小王-----男
李四---- 男
如果有重复项,就不导入重复项,

导入成功后,再保存MSFLEXGRID 控件中的内容到文本文档
作者: maomingao20   发布时间: 2011-06-01
没用过msflexgrid控件,不过用过datagrid
哦对了,为什么lz不将txt导入到excel或者其他数据库中呢?
这样就省去了循环对txt中字符串的处理了,因为msflexgrid可以一次性读取数据库的数据并显示.

首先引用msflexgrid控件,
VB code
private sub form_load()
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\temp.xls;Extended Properties='Excel 8.0;HDR=Yes'"
    rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic    
    Set msflexgrid1.DataSource = rsend sub

VB查询数据库代码
https://wenku.baidu.com/view/fe27f678346baf1ffc4ffe4733687e21ae45ff7a.html
---------------------


如选ADO控件,则代码为:Set MSHFlexGrid1.DataSource = ADODC1 (可以支持多种 ,SQL,mdb等)


打赏

本文链接:https://www.kinber.cn/post/3700.html 转载需授权!

分享到:


推荐本站淘宝优惠价购买喜欢的宝贝:

image.png

 您阅读本篇文章共花了: 

群贤毕至

访客