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 转载需授权!
推荐本站淘宝优惠价购买喜欢的宝贝: