"Unable to Allocate Memory for FlexGrid"如何解决？

[zengzheng]

我在用VB的Grid读取数据时，报错为“Unable to Allocate Memory for FlexGrid”，数据可以显示出来，但就是会出错。而且只是在第一次运行时报错，报错后重新操作可以运行过去。

Dim s as String
set s = "select Empno, EmpID from Employee where EmpID = ?"
出错位置：-->>> .SQL = s
现象很怪，请各高手帮忙解决，感激不尽！

[winehero]

没见过，帮顶!

不过你代码也有问题,如:s本为字符型,怎能用Set s=...
能否贴出详细代码?

[上官云峰]

你试试吧，好用的,
记得要引用ado

Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
'strsql 是你的查询语句 你可以order by 排序的字段
'strsql="select xh as 学号 from 表" 这里的学号就是你数据表中字段的标题
strsql="select 字段 from 表"
Set Db = New Connection
Db.CursorLocation = adUseClient
'下面的连接数据字符串你要修改一下
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
end sub

[zengzheng]

只要绕过了第一次点击，之后的任何一次都可以执行

或如何只将第一次点击，合成为两次点击，
但在VB中，好像嵌套方法会出错
有哪位高手可以帮忙解决啊？

[zengzheng]

up

[zengzheng]

解决了，原来是其中一条SQL语句漏了where 条件，
导致数据太大，出了问题。
和MSDN中描述的情况一样！找了好久！！