怎样动态绑定DataGrid?

hzf005 2003-08-22 05:04:27

我有两张表，一张主表r_request_master,一张从表r_request_detail.
主表的关键字为pr_id,从表的关键字为fk_pr_id,pr_item_id.一个订单号可能对应多条明细，所以我用到DataGrid这个控件，但不知道怎样动态绑定，请高手指点，最好有模仿实例！谢谢！

...全文

39 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

changechange 2003-08-22

打赏
举报

'引用Microsoft ActiveX Data Object 2.x

Dim conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\northwind.mdb;Persist Security Info=False"
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", conn, 1,1
Set DataGrid1.DataSource = Rs

xinshou1979330 2003-08-22

打赏
举报

真的来晚了

就是楼上说的

老马鲍勃 2003-08-22

打赏
举报

dim strSql as string '定义SQL 查询语句接受变量
dim strConnectString as string '定义数据库连接字符串
dim rs as new adodb.recordset
strSql = "SQL 查询语句"
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.Open strSql, strConnectString
If rs.BOF = True And rs.EOF = True Then
rs.Close
Exit Function
Else
Set DataGrid1.DataSource = rs
Endif

hzf005 2003-08-22

打赏
举报

谢谢！我用的是Oracle，账号：mms/mms,我试试看..

lihonggen0 2003-08-22

打赏
举报

你要动态改变sql 语句，Rs记录集就改变了

再用Set DataGrid1.DataSource = Rs重新绑定

lihonggen0 2003-08-22

打赏
举报

你只要动态改变DataGrid 的数据源 Rs就可以了

lihonggen0 2003-08-22

打赏
举报

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open

Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

Set DataGrid1.DataSource = Rs