这样也可以 Set Cnxn1 = New ADODB.Connection Cnxn1.ConnectionString = "Provider='sqloledb';Data Source='MySqlServer';" & _ "Initial Catalog='Pubs';Integrated Security='SSPI';" Cnxn1.Open
没错!conn没有定义Private Sub FillFlex(conn as adodb.connection)Dim rrs As New ADODB.Recordset rrs.Open "select * from team", conn, adOpenStatic, adLockOptimistic Set DGridinfoall.DataSource = rrsEnd Sub
你看看conn是否定义成全局变量
MSFlexGrid是不是intrinsic Data control 如果这样就不能在运行是指定数据原
我查了一下资料,MSFlexGrid控件支持数据绑定,不过是只读的。所以不能在运行时设置数据源
谢谢大家,我的conn是全局的。 我的模块里定义的。 代码是这样的。Public conn As ADODB.Connection '数据库连接 Public gamers As New ADODB.Recordset '比赛用数据集我在Form_load() 里已经创建实例,代码如下:Private Sub Form_Load() '-------------初始化数据--------------- Set conn = New ADODB.Connection On Error GoTo doerr '-------连接数据库------- conn.ConnectionString = "Driver={SQL Server};UID=sa;PWD=;server=localhost;database=sports" conn.Open doerr: ... resume End Sub 所以我认为不是连接的问题,我觉得ch21st说的有道理,不过我没 有资料,也查不到。 如果使用ADODC的数据绑定控件是没有问题的。 只是我不明白为什么我在程序运行的过程中定义的数据集不能作为 MSFlexGrid的数据源。有什么令人信服的资料可查吗?
Set Cnxn1 = New ADODB.Connection
Cnxn1.ConnectionString = "Provider='sqloledb';Data Source='MySqlServer';" & _
"Initial Catalog='Pubs';Integrated Security='SSPI';"
Cnxn1.Open
rrs.Open "select * from team", conn, adOpenStatic, adLockOptimistic
Set DGridinfoall.DataSource = rrsEnd Sub
如果这样就不能在运行是指定数据原
我的模块里定义的。
代码是这样的。Public conn As ADODB.Connection '数据库连接
Public gamers As New ADODB.Recordset '比赛用数据集我在Form_load()
里已经创建实例,代码如下:Private Sub Form_Load()
'-------------初始化数据---------------
Set conn = New ADODB.Connection
On Error GoTo doerr
'-------连接数据库-------
conn.ConnectionString = "Driver={SQL Server};UID=sa;PWD=;server=localhost;database=sports"
conn.Open
doerr:
...
resume
End Sub 所以我认为不是连接的问题,我觉得ch21st说的有道理,不过我没
有资料,也查不到。 如果使用ADODC的数据绑定控件是没有问题的。 只是我不明白为什么我在程序运行的过程中定义的数据集不能作为
MSFlexGrid的数据源。有什么令人信服的资料可查吗?