SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Bases de Datos => Mensaje iniciado por: andy2507 en Domingo 15 de Mayo de 2011, 00:04
-
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
**********************************************
** *******metodo************************
Public Sub Llenatexto()
rsDistrito!IdDistrito = txtcodigo.Text
rsDistrito!nombre_distrito = txtnomdist.Text
End Sub
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
por favor me podrian ayudar y decirme cual es el problema ? esperando su pronta respuesta