Private Sub ConsultarXID()
Dim StringSql as String
Dim Rs As DAO.Recordset
StringSql="Select * from MiTabla Where Id=' " & TextBox1 & " ' "
Set Rs=Currentdb.OpenRecordset(StringSql, dbOpenSnapshot)
TextBox1=Rs.Fields("Campo1")
TextBox2=Rs.Fields("Campo2")
TextBox2=Rs.Fields("Campo3")
Rs.Close
Set Rs=Nothing
End Sub
'Esta consulta es solo para obtener el conteo de registros que
'contiene una tabla
Private Sub ContRegistros()
Dim StringSql As String
Dim Rs as DAO.Recordset
StringSql="Select Count(Campo1)From MyTabla"
Set Rs=currentdb.OPenRecordset(StringSql, DbopenSnapshot)
TextBox1=Rs.Fields(0)
Rs.Close
Set Rs=Nothing
End Sub
Cualquiera duda o pregunta enviarme un E-Mail y luego estare publicando su respuesta.
|