datagrid
Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset
Private Sub Command1_Click() cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\stusys.mdb" rs.CursorLocation = adUseClient rs.Open "select sno ,sname,begintime,endtime from info where sno='" & Text1.Text & "'", cnn, 1, 3 If rs.EOF = False Then
Set DataGrid1.DataSource = rs DataGrid1.Refresh Text1.Text = "" Else MsgBox "该用户不存在!请重新输入!" End If End Sub
form上有datagride和一个输入框,当输入一个sno时可以在表中显示结果,但是要输入下一个sno时就提示对象打开时不允许操作! 我是哪里 错啦? 而且我还想实现的就是,当输入下一个学号时,表中的数据为空