Cómo conectar BD Acces con Visual Basic
Resuelto/Cerrado
ericksix
Mensajes enviados
1
Fecha de inscripción
sábado, 16 de mayo de 2009
Estatus
Miembro
Última intervención
sábado, 16 de mayo de 2009
-
16 may 2009 a las 20:28
alejandroo_ Mensajes enviados 1 Fecha de inscripción miércoles, 2 de octubre de 2013 Estatus Miembro Última intervención miércoles, 2 de octubre de 2013 - 2 oct 2013 a las 19:19
alejandroo_ Mensajes enviados 1 Fecha de inscripción miércoles, 2 de octubre de 2013 Estatus Miembro Última intervención miércoles, 2 de octubre de 2013 - 2 oct 2013 a las 19:19
Consulta también:
- Conectar access con visual basic 2010 mediante código
- Access descargar - Programas - Bases de datos
- Código universal para desbloquear netbook gobierno ✓ - Foro portátiles
- Código postal chile 2023 - Guide
- Código postal chile 83422 ✓ - Foro Internet
- Office 2010 64 bits - Programas - Suites ofimáticas
2 respuestas
Es simple...AL parecer hay filtros..aunke con lógika lo puedes diferir tu mismo...
Supongamos que tienes un formualario de entrada, pues ahora solo agrega un textbox en ese formulario y ponlo como visible=false
Despues haces referencia a travez de un adodc a la base de datos en un campo de la tabla que corresponda a
"Administrador" o "Limitado"....
Por ultimo en el formualrio de agregar usuario Agrega una par de "option" y de igual forma agregas una textbox como visible =false
y haces referencia a la base de datos en el campo que pertenesca a "Usuario" o "Administrador" igual ke en el formulario de entrada... y pones condiciones en los option para que cuando sea True el primer option el textbox oculto sea="Administrador" e inversa con el option2....
kedaria algo asi en el codigo del primer form ya agregado la textbox
'Dentro del Sub pones:
textbox1.visible=false
'y cierras el sub
End sub
'Despues haces referncia a la base de datos con un adodc1...
adodc1.recordset.field("Tipo_de_cuenta")=textbox1
'listo es Todo...
'Considera que debe de haber:
'adodc1,un campo que se llame: Tipo_de_cuenta dentro de la tabla,
byte....
Supongamos que tienes un formualario de entrada, pues ahora solo agrega un textbox en ese formulario y ponlo como visible=false
Despues haces referencia a travez de un adodc a la base de datos en un campo de la tabla que corresponda a
"Administrador" o "Limitado"....
Por ultimo en el formualrio de agregar usuario Agrega una par de "option" y de igual forma agregas una textbox como visible =false
y haces referencia a la base de datos en el campo que pertenesca a "Usuario" o "Administrador" igual ke en el formulario de entrada... y pones condiciones en los option para que cuando sea True el primer option el textbox oculto sea="Administrador" e inversa con el option2....
kedaria algo asi en el codigo del primer form ya agregado la textbox
'Dentro del Sub pones:
textbox1.visible=false
'y cierras el sub
End sub
'Despues haces referncia a la base de datos con un adodc1...
adodc1.recordset.field("Tipo_de_cuenta")=textbox1
'listo es Todo...
'Considera que debe de haber:
'adodc1,un campo que se llame: Tipo_de_cuenta dentro de la tabla,
byte....
10 ene 2010 a las 20:59
Sub Conectar()
On Local Error GoTo ErrAccesoBD
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
'*******************************************************************************
' abrir la base usando las credenciales de Windows con SQL SERVER 2000
'cnn.Open "Provider=SQLOLEDB; " & _
' "Initial Catalog=CATALOGO; " & _
' "Data Source=(local); " & _
' "integrated security=SSPI; persist security info=True;"
'*******************************************************************************
' abrir la base usando las credenciales de Windows con ACCESS 2007
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Visor de Catalogos\BD_Catalogo\CATALOGO.ACCDB" & _
";Persist Security Info=False"
'*******************************************************************************
Exit Sub
ErrAccesoBD:
MsgBox Err.Description, vbCritical
End Sub
11 feb 2010 a las 20:00
5 jun 2010 a las 16:56
27 ene 2012 a las 21:22