谁要高分!!

Question

每keypress一次，就查一次数据库？
可能速度太慢了，试一试吧

Answer 1

在控件的KeyUp事件中写入代码，设置记录集的筛选条件。如：
dgData:datagrid控件
Text1:text控件
dim adoConn as New adodb.Connection
dim rstX as New Adodb.Recordset
private sub form_load()
 adoconn.provider="Microsoft.jet.oledb.4.0"
 adoconn.ConnectionString="data source=xx.mdb"
 adoconn.OPen
 rstX.open "Select xm,xh from student",adoconn
 set dgdata.datasource=rstxend sub
private sub text1_keyup(keycode)
  rstx.Filter="xm='" & trim(text1.text) & "'"
end sub