如何实现这样的功能?急!给分从速!

Question

在一个绑定一个记录集的窗体中设置一个查询按钮,按则进入查询窗体,查询结果放入一个Dategrid,或msFlexGrid 中,双击则又回到第一个窗体,并且上面的上一条,下一个,首个,尾个能用,最好给段代码!给分从速!

Answer 1

ado数据控件上不是本来就有上一条,下一个,首个,尾个的按纽吗?直接用不行吗?

Answer 2

resultset.first
resultset.prev
resultset.next
resultset.last

Answer 3

双机DATAGRID中某条记录，绑定的页面的记录移到相应的记录！

Answer 4

利用data和dbgrid不就能实现这样的功能吗？？？？？？？？？？

Answer 5

用SSTab + data + DBGrid  双击 DBGrid SSTab1.Tab = 0
注 DBGrid放在SSTab1.Tab = 1

Answer 6

ADO连接：
工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）Option ExplicitDim WithEvents adoRS As Recordset
Dim db As Connection
'提数据事件
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
'                           ##########################################
'打开密码是1234的Access2000数据库db1.mdb
'不需要密码，就把Jet OLEDB:Database Password=1234;这段去掉    Set adoRS = New Recordset
    
    adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
    '赋值给 DataGrid 表
    Set DataGrid1.DataSource = adoRS
    '表刷新
    DataGrid1.Refresh
'添加事件和保存
    adoRS.AddNew
    '保存
    adoRS![字段a] = text1.Text
    adoRS![字段b] = text2.Text
    adoRS.UpdateBatch adAffectAll'删除
    adoRS.Delete
    '重新赋值给表
    adoRS.Requery
    Set DataGrid1.DataSource = adoRS
    DataGrid1.Refresh    '其他相关操作：
    '上一条
    If Not adoRS.BOF Then adoRS.MovePrevious
    If adoRS.BOF And adoRS.RecordCount > 0 Then
         '已到最后返回
         adoRS.MoveFirst
    End If
    '下一条
    If Not adoRS.EOF Then adoRS.MoveNext    '下一条
    If adoRS.EOF And adoRS.RecordCount > 0 Then
          '已到最后返回
          adoRS.MoveLast
    End If
    '第一条
    If Not adoRS.BOF Then adoRS.MoveFirst
    '最末
    If Not adoRS.EOF Then adoRS.MoveLast

Answer 7

我这里表和绑定的页面不在同一窗体！而却绑定的数据是全部的数据，而双击的DATAGRID的数据员则是部分的数据，

Answer 8

工程--->引用--->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

Answer 9

我也知道怎样在一个窗体里连接，但是这里是不同的窗体，怎样控制datagrid中的当前记录
然后再在由多个TEXTBOX和checkbox,combo组成的另一窗体里移到响应的的记录?

Answer 10

我想问的是怎样判断一个结果集的状态？
如：我双击的记录RS!ID是121，如何将记录集移到RS!ID为121的记录？
可以这样吗？
     if(rs!Id <> "121")then
              rs.movenext
     endif