Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic ADO - Problema para contar registros segun variable

  Imprimir  
Vista:

Problema para contar registros segun variable

Publicado por Miguel (3 intervenciones) el 28/05/2012 02:29:27
Hola amigos del foro por necesito preguntarles como puedo hacer para que en un textbox me muestre la cantidad de registros segun criterio ingresado en otros dos textbox ,tengo base de datos access 2000 y visual basic 6.0.les pongo el codigo para que lo vean.Muchas gracias.
Por favor donde esta el error.


Codigo completo
----------------------------------
Option Explicit


Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset


Private Sub Command1_Click()
On Error GoTo error_Handler
Dim rst As New ADODB.Recordset
Dim ceemes As String

If cn.State = adStateOpen Then
ceemes = "SELECT Count(*) as Este_mes FROM Ingreso WHERE ProximoPago <= " & CDate(Text2) & "" And " & CDate(Text3) & """
Set rst = cn.Execute(ceemes, , adCmdText)
Text1.Text = rst("Este_mes")
Set rst = Nothing
End If
Exit Sub
error_Handler:
MsgBox Err.Description, vbCritical

End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
With cn
Dim path_bd As String

path_bd = "C:\Documents and Settings\mike\Escritorio\P3\db1.mdb"
.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & path_bd & ";" & "Persist Security Info=False"
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Not cn Is Nothing Then
If cn.State = adStateOpen Then cn.Close
Set cn = Nothing
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problema para contar registros segun variable

Publicado por cmgcharli (24 intervenciones) el 28/05/2012 08:14:39
Por tu codigo parece ser que lo que quieres es extrae un intervalo de registro que se encuentre comprendidos entre dos fechas

ceemes="SELECT * FROM Ingreso WHERE ProximoPago=>DATEVALUE('" & CDate(Text2) & "') AND ProximoPago<=DATEVALUE('" & CDate(Text3) & "')"

Set rst = New ADODB.Recordset

rst.Open ceemes, cn, adOpenKeyset, adLockOptimistic, adCmdText

Text1.Text=rst.RecordCount
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema para contar registros segun variable

Publicado por Miguel (3 intervenciones) el 29/05/2012 02:25:20
gracias por tu pronta respuesta y ayuda me es de mucha utilidad,pero al poner el codigo me dice error de sintaxis falta operador en la expresion de consulta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema para contar registros segun variable

Publicado por Miguel (3 intervenciones) el 29/05/2012 02:38:22
Ya lo arregle faltaban unas comillas pero le doy andar el codigo y me aparece una advertencia que dice no coinciden los tipos.
Que podra ser?Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema para contar registros segun variable

Publicado por cmgcharli (24 intervenciones) el 29/05/2012 08:16:03
El campo ProximoPago debe estar definido como date y por otro lado donde te da el error de no coincide los datos, coloca como tienes ahora el codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar