Visual Basic - CONEXIONA BASE DE DATOS EN ACCESS

Life is soft - evento anual de software empresarial
   
Vista:

CONEXIONA BASE DE DATOS EN ACCESS

Publicado por Andres avilca85@gmail.com (3 intervenciones) el 17/05/2011 00:23:11
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:\siscesa\BD\visita.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 respuestaa
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

CONEXIONA BASE DE DATOS EN ACCESS

Publicado por chiguer (17 intervenciones) el 20/05/2011 19:36:21
Te falta en

rsDistrito.Open "select * from Distrito", cndist, acOpenStatic, adLockOptimistic
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