有一个MSFlexGrid控件,要怎么样设置它同Oracle数据库的连接
就是说,把Oracle数据库中的PATS_IN_TRANSFERRING表的内容在MSFlexGrid中显示出来
select * from PATS_IN_TRANSFERRING怎么样显示呢?谢谢
就是说,把Oracle数据库中的PATS_IN_TRANSFERRING表的内容在MSFlexGrid中显示出来
select * from PATS_IN_TRANSFERRING怎么样显示呢?谢谢
调试欢乐多
MSFlexGrid.TextMatrix(行, 列) =rs!***
循环给每一个单元格填值
记得要引用ado
你只需要在工程/引用 miscrosoft Activex data objects 2.x library 就可以了
Dim Db As Connection
Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
strsql="select 字段 from 表 where 你的条件"
Set Db = New Connection
Db.CursorLocation = adUseClient
'下面的连接数据字符串你要修改一下,改成orcle的字符串
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 MSFlexGrid.DataSource = adoPrimaryRS
end sub
rs.Open "select * from PATS_IN_TRANSFERRING", conn, 1, 1Set MSFlexGrid.DataSource = rs