20545.html
来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 31 行
HTML
31 行
<html> <head> <title>一样..............</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>一样..............</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by ADO on October 22, 1999 at 23:43:52:<p>In Reply to: <a href="20529.html">Re: 真的不了解.......</a> posted by Joint on October 22, 1999 at 14:09:39:<p>: 做了修改,试看看吧...<br>: 放一个datagrid及adodc观察看看<p>: Dim cn As ADODB.Connection<br>: Dim rs As ADODB.Recordset<br>: Set cn = New ADODB.Connection<p>: cn.CursorLocation = adUseClient<br>: cn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=d:\database\music.mdb;"<p>: Set rs = New ADODB.Recordset<br>: rs.Open "select * from comic_name", cn, adOpenStatic, adLockOptimistic<p>: Set DataGrid1.DataSource = rs<br>: Set adodc1.Recordset = rs<p>: 'Set Text1.DataSource = rs<br>: 'Text1.DataField = "索引"<p>结果还是一样....一样的排序......<p>谢谢你.....<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20545--><!--top: 20558--><li><a href="20558.html">Re: 一样..............</a> <b>Joint</b> <i>15:13:59 10/23/99</i>(<!--responses: 20558-->1)<ul><!--insert: 20558--><!--top: 20560--><li><a href="20560.html">Re: 一样..............</a> <b>ADO</b> <i>19:23:23 10/23/99</i>(<!--responses: 20560-->0)<ul><!--insert: 20560--></ul><!--end: 20560--></ul><!--end: 20558--></ul><!--end: 20545--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?