With Adodc1.Recordset
If .RecordCount > 0 Then
Do While .EOF = False
View_tfdata
.MoveNext
Loop
End If
End With
如何把此段代码改成用ADODB
急急急!SQLserver通过adodb连接问题,大神进
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
4条回答 默认 最新
- 普通网友 2018-01-14 11:22关注
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql1 As String
Dim sql2 As String
cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MZJJSFXT;Data Source=."
cn.Open
sql1 = "select 结算方式 as 收款方式,count(收据号)as 收据数,sum(总金额)as 金额 from 收费单据信息表 where 操作员='" + Txtsky.Text + "'and 收据号 between '" + Txtsjn1.Text + "'And '" + Txtsjn2.Text + "'group by 结算方式"
If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
rs.Open sql1, cn, adOpenKeyset, adLockOptimistic
With rs
If rs.RecordCount > 0 Then
Do While rs.EOF = False
View_sfdata
rs.MoveNext
Loop
End If
End With
rs.Close
Set rs = Nothing本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥88 找成都本地经验丰富懂小程序开发的技术大咖
- ¥15 如何处理复杂数据表格的除法运算
- ¥15 如何用stc8h1k08的片子做485数据透传的功能?(关键词-串口)
- ¥15 有兄弟姐妹会用word插图功能制作类似citespace的图片吗?
- ¥200 uniapp长期运行卡死问题解决
- ¥15 请教:如何用postman调用本地虚拟机区块链接上的合约?
- ¥15 为什么使用javacv转封装rtsp为rtmp时出现如下问题:[h264 @ 000000004faf7500]no frame?
- ¥15 乘性高斯噪声在深度学习网络中的应用
- ¥15 关于docker部署flink集成hadoop的yarn,请教个问题 flink启动yarn-session.sh连不上hadoop,这个整了好几天一直不行,求帮忙看一下怎么解决
- ¥15 深度学习根据CNN网络模型,搭建BP模型并训练MNIST数据集