datagrid中的内容一显示就没有了,不知道如何处理,请教高人啊

源程序的代码是这样的:

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中的数据也就没有了。

希望高人指点!

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

bzcnc

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值