CONEXIONA BASE DE DATOS ACCESS POR CODIGO
Hola como estan estoy creando una aplicacion en visual basic 6.0 , estoy haciendo un formulario de manteniemiento de lugar de residenccia (DISTRITO aca en PERU lo conocemos de esa forma).
Agregue un modulo y en el modulo cree mi recordset y mi connection este es el codigo
**************modulo************************
Public cndist As ADODB.Connection
Public rsDistrito As ADODB.Recordset
**********************************************
en mi formulario e puesto este codigo:
Private Sub Form_Load()
Set cndist = New ADODB.Connection
With cndist
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:siscesaBDvisita.mdb;Persist Security Info=False"
.Open
.CursorLocation = adUseServer
End With
Set rsDistrio = New ADODB.Recordset
rsDistrito.ActiveConnection = cndist
rsDistrito.CursorType = adOpenDynamic
rsDistrito.LockType = adLockOptimistic
rsDistrito.Open "select * from Distrito"
Llenatexto
End sub
CUANDO COMPILO EL PROGRAMA ME SALE ESE MENSAJE DE ERROR
" Variable de tipo Object o la variable de bloque with no esta establecida "
Y SE MARCA DE COLOR AMARILLO ESA ZONA
rsDistrito.ActiveConnection = cndist
Esperando su pronta respuesta, de antemano les agradescp
Agregue un modulo y en el modulo cree mi recordset y mi connection este es el codigo
**************modulo************************
Public cndist As ADODB.Connection
Public rsDistrito As ADODB.Recordset
**********************************************
en mi formulario e puesto este codigo:
Private Sub Form_Load()
Set cndist = New ADODB.Connection
With cndist
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:siscesaBDvisita.mdb;Persist Security Info=False"
.Open
.CursorLocation = adUseServer
End With
Set rsDistrio = New ADODB.Recordset
rsDistrito.ActiveConnection = cndist
rsDistrito.CursorType = adOpenDynamic
rsDistrito.LockType = adLockOptimistic
rsDistrito.Open "select * from Distrito"
Llenatexto
End sub
CUANDO COMPILO EL PROGRAMA ME SALE ESE MENSAJE DE ERROR
" Variable de tipo Object o la variable de bloque with no esta establecida "
Y SE MARCA DE COLOR AMARILLO ESA ZONA
rsDistrito.ActiveConnection = cndist
Esperando su pronta respuesta, de antemano les agradescp
Instala ADO en la maquina!!!
W2000 no lo tiene, solo apartir de XP!
Suerte!
W2000 no lo tiene, solo apartir de XP!
Suerte!