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
Crear cuenta

Visual Basic ADO - Problema para contar registros segun variable

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:Problema para contar registros segun variable
Autor:Miguel (3 intervenciones)
Fecha: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
Responder Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:Problema para contar registros segun variable
Autor:cmgcharli (24 intervenciones)
Fecha: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
Comentar Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:Problema para contar registros segun variable
Autor:Miguel (3 intervenciones)
Fecha: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
Comentar Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:Problema para contar registros segun variable
Autor:Miguel (3 intervenciones)
Fecha: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
Comentar Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:Problema para contar registros segun variable
Autor:cmgcharli (24 intervenciones)
Fecha: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
Comentar Subir