代码: SQLext DBN, "delete * from slots_serach" If lstPort.Text = "" Then Exit Sub End If stbState.Panels(1).Text = "正在查询中......" Dim rs As New ADODB.Recordset Dim temp_text As String temp_text = "SELECT * FROM slots_info WHERE (((slots_info.ne_name)=""" & cboNename.Text & """) AND ((slots_info.src_vc4)="""") AND (slots_info.src_board=""" & cboBoard.Text & """) AND (slots_info.src_slot=""" & lstPort.Text & """))" Set rs = SQLquery(DBN, temp_text) rs.MoveFirst While Not rs.EOF temp_text = "insert into slots_serach(ne_name,slot_level,src_sys,src_board,src_vc4,src_slot,snk_sys,snk_board,snk_vc4,snk_slot) values (""" & rs.Fields(0).Value & """,""" & rs.Fields(1).Value & """,""" & rs.Fields(2).Value & """,""" & rs.Fields(3).Value & """,""" & rs.Fields(4).Value & """,""" & rs.Fields(5).Value & """,""" & rs.Fields(6).Value & """,""" & rs.Fields(7).Value & """,""" & rs.Fields(8).Value & """,""" & rs.Fields(9).Value & """)" SQLext DBN, temp_text rs.MoveNext Wend DBclose 其中SQLext为使用adodb.command对象做的过程,参数1为数据库,参数2为SQL语言文本 SQLquery为使用adodb.recordset对象做的函数,参数同SQLext,用于返回查询结果记录集。 数据。why??? 现在我想实现每次执行上面过程后就会自动更新dategrid显示的数据为最新,应该怎么修改代码?? 在窗体上加了个ADODC的控件,数据源是上面过程中的添加记录的slots_serach表,在窗体上在加一个dategrid控件,数据源指向ADODC控件。问题是:在上面过程“WEND”后加入ADODC1.Refresh和Dategrid.Refresh,dategrid控件显示都不能显示最新的insert into后的数据,但如果在添加一个按钮,代码写ADODC1.Refresh 在执行完以上过程后,再点这个按钮,就能将dategrid控件表格更新显示最新 谢谢各位高手