VB6.0 MSFlexGrid控件连接数据源的问题
关键的代码如下：
rs.CursorLocation = adUseClient
Call OpenRecordset(rs, "指标项目")
If Not rs.BOF Then
Set MSFlexGrid1.DataSource = rs
MSFlexGrid1.Refresh
End If
在执行到Set MSFlexGrid1.DataSource = rs的时候提示“对象变量或with变量块未设置”。SQL语句是没有问题也有返回值，rs正常取到值了的，就是在Set MSFlexGrid1.DataSource = rs这一句的时候出的错，如果不用MSFlexGrid1把它换成DataGrid1，Set DataGrid1.DataSource = rs又是OK的，这是什么情况？MSFlexGrid不支持？急用，求解答
MSHFlexGrid也没有问题得。。。果断放弃MSFlexGrid？
可能还是MSFlexGrid控件的问题,现在使用的MSHFlexGrid来替代就OK了
VB6.0 连接SqL2005 数据库是出现错误,对象变量或with块变量未设置_百度...
你的代码没有错误，如果总是出现“对象变量或with块变量未设置”错误，只有一个可能，就是你的 MSHFlexGrid 控件的问题。当用的是 MSFlexGrid 控件时，会出现你说的问题。
如何向vb MSFlexGrid控件添加数据?
1）使用绑定到数据源。可使用ADODB数据源或Data控件绑定MSFlexGrid控件。2）使用AddItem方法添加数据。AddItem 方法 (MSHFlexGrid)，该方法将一个行添加到 MSHFlexGrid 控件中。Private Sub Command1_Click() MSFlexGrid1.Cols = 5 MSFlexGrid1.AddItem vbTab & "1" & vbTab & "2" & vbTab ...
怎么添加msflexgrid控件
VB6.0可使用绑定到数据源、使用AddItem方法添加数据或逐一单元格添加数据，来向 MSFlexGrid控件添加数据。 1）使用绑定到数据源。 可使用ADODB数据源或Data控件绑定MSFlexGrid控件。 2）使用AddItem方法添加数据。 AddItem 方法 (MSHFlexGrid)，...
vb6.0中怎样使data所在记录是DataGrid光标所在行记录?
由于MSFlexGrid控件不支持Adodc数据源，必须添加Data数据源，这个想来大家都比我熟悉，好了闲话少说，窗体名称取作“DataGrid和MSFlexGrid控件读取数据的比较”添加了二组TextBox控件数组，分别是Text1(0).Text到Text1(4).Text和Text2(0).Text到Text2(4).Text，...
关于vb6的data控件的recordset对象的一些问题
2:VB连接数据库文件: 2-1:启动VB编辑器--新建一个工程2-2:添加控件 工程(P)--部件(O)--勾选上“Microsoft FlexGrid Control 6.0”--应用(A)2-3:在窗体上画上2个控件 Data1 和 MSFlexGrid12-4:Data1控件的基本属性 Data1.Caption="Data1的名字" Data1.databaseName="Data1要连接到的数据库位置设...
VB中ACCESS数据库的查询,并把结果显示在MSHFlexGrid控件里面
Adodc1.RecordSource="Select * From 农业局申报 Where 文件号='"+控件名称+"'"'---创建数据源，查询记录集合 Adodc1.Refresh '---激活 End Sub 这样就算是连接数据库，当然你的文件号查询可以做成下拉列表或者显示在有个表单里，点击连接查询，不一定要你去输入，这是做个简单的举例，希望对你...
vc2008 MFC中怎么使用msflexgrid控件
使用MsFlexGrid控件的几个函数作者:中国论坛网收集 来源:http:\/\/www.51one.net 加入时间:2004-8-25在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的程序(...
用VB调用存储过程
MsgBox "已将数据库连接断开!"End Function Private Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集 Dim mag As String On Error GoTo strerrmag Set rs = New ADODB.Recordset With rs .ActiveConnection = conn .CursorLocation = adUseClient .CursorType = adOpen...
