Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Abrir tabla o consulta con Recordset

Access - Abrir tabla o consulta con Recordset

Volver
Nuevo Tema
<<>>
 
Vista:

Abrir tabla o consulta con Recordset

Publicado por Leonardo (37 intervenciones) el 14/10/2003 20:58:00
Porfavor, esto me urge, como hago para abrir una tabla o consulta, o lo que sea, mediante el codigo de un recordset. Yo quiero tener un formulario con los campos en los cuales meto los criterios...las fechas, el no de pedido, etc y que haga la consulta con respecto a esos criterios.
Por supuesto que me abra alguna tablita en la que me muestre esos datos. ¨
Por favor, estoy empezando con el acces, espero me puedan ayudar y me tengan paciencia para explicarme
Saludos
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

RE:Abrir tabla o consulta con Recordset

Publicado por Jesus (861 intervenciones) el 15/10/2003 01:19:28
A ver si te vale esto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Function Conecta_ACCESS(Conexion As ADODB.Connection, AperturaExclusiva As Boolean) As Boolean
 
Dim strCnn As String
 
On Error GoTo errorConecta_ACCESS
 
Conecta_ACCESS = False
 
NombreDB = "C.\NombreBD.MDB"
 
If Dir(NombreDB) <> "" Then
 
' Abre una conexión.
 
Set Conexion = New ADODB.Connection
 
'Para conectar con BD Access 2000 usar el proveedor Microsoft.Jet.OLEDB.4.0.
 
'Para conectar con Access 97 usar Microsoft.Jet.OLEDB.3.51
 
Conexion.PROVIDER = Microsoft.Jet.OLEDB.4.0
 
If AperturaExclusiva Then
 
'Se abrira la conexion en modo exclusibo
 
Conexion.Mode = adModeShareExclusive
 
Else
 
Conexion.Mode = adModeUnknown
 
End If
 
Conexion.Open NombreDB, "admin", ""
 
Conecta_ACCESS = True
 
Else
 
MsgBox "Base de datos no activa.", vbExclamation, "Atención"
 
End If
 
Exit Function
 
errorConecta_ACCESS:
 
If Err = 3343 Or Err = -2147467259 Then
 
MsgBox "Base de datos dañada.", vbCritical, "Base de Datos"
 
Conecta_ACCESS = True
 
Else
 
MuestraError "Conecta_ACCESS", Err, Error
 
End If
 
End Function
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