Private RecSet1 As New Recordset
Dim sSql As String
sSql = " SELECT FROM Table WHERE MainID='" & MainID & "'" & _
" UNION " & _
" SELECT MainID, Name, VipID, Sex, Birth, MPhone, Phone, Addr, BDate, CardID, BCoID, BPosID, UmType, UmDiscount, UpdateTime,State, CASE WHEN State=0 THEN '未提交' ELSE '已提交' END AS StateName FROM UserInfo WHERE MainId NOT IN(SELECT MainID FROM UserInfo2 WHERE MainID='" & MainID & "') AND MainID='" & MainID & "'"
If RecSet1State = adStateOpen Then RecSet1Close
RecSet1Open sSql, adoconn
If Not (RecSet1BOF) And Not (RecSet1EOF) Then
MetxtCusIdtext = MainID
MetxtCusNametext = Trim(RecSet1!Name) '会员姓名
MeTxtDeltext = Trim(RecSet1!UmDiscount) '折扣
Else
MetxtCusIdtext = ""
MetxtCusNametext = ""
MeTxtDeltext = "1"
End If
以上就是关于在vb编程中怎样查询sql数据库中某一个区间的数据并把记录条数返回给vb程序的变量全部的内容,包括:在vb编程中怎样查询sql数据库中某一个区间的数据并把记录条数返回给vb程序的变量、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)