Cómo consultar los datos de un determinado intervalo en la base de datos SQL en programación VB y devolver el número de registros a las variables del programa VB
RecSet1 privado como nuevo conjunto de registros
Dim sSql As String
sSql = " SELECT* FROM Table WHERE MainID='" amp; amp; _
" UNION " amp; _
" SELECCIONE MainID, Nombre, VipID, Sexo, Nacimiento, MPhone, Teléfono, Dirección, BDate, CardID, BCoID, BPosID, UmType. , UmDiscount, UpdateTime, State, CASE WHEN State=0 ENTONCES 'No confirmado' ELSE 'Committed' FINALIZA COMO StateName FROM UserInfo DONDE MainId NO EN (SELECCIONE MainID FROM UserInfo2 WHERE MainID='" & MainID & "') AND MainID='" amp; MainID amp; "'"
Si RecSet1.State = adStateOpen Entonces RecSet1.Close
RecSet1.Open sSql, adoconn
Si no (RecSet1. BOF) Y no (RecSet1.EOF) Entonces
Me.txtCusId.text = MainID
Me.txtCusName.text = Trim(RecSet1!Name) 'Nombre del miembro
Me.TxtDel.text = Trim(RecSet1!UmDiscount) 'Descuento
Else
Me.txtCusId.text = ""
Me.txtCusName .text = ""
Me.TxtDel.text = "1"
Fin si