源程序的代码是这样的:
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.ConnectionString = "provider=msdaora;user id= sss;password=sss;data source=sss"
cnn.Open
If cnn.State = adStateOpen Then
Set rs.ActiveConnection = cnn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
Dim sql_state As String
sql_state = "select * from table1 where latn_id = 543 and calling_number= '1234567'"
rs.Open sql_state
Set DataGrid1.DataSource = rs
End If
cnn.Close
End Sub
执行上面的程序,检查代码有很多次,从网上搜索资料,也没有发现我这次遇到的问题,请指点一下!
意外的收获:如果在Set DataGrid1.DataSource = rs 后面随便加上一个命令,那么datagrid中就会存在数据了。
例如:msgbox rS.RECORDCOUNT 就会在datagrid中显示出你想要显示的数据,如果你点击了确定后,那么相应的datagrid中的数据也就没有了。
希望高人指点!