Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/10/2008, 09:05
jorgegetafe
 
Fecha de Ingreso: febrero-2008
Ubicación: Madrid
Mensajes: 474
Antigüedad: 17 años, 1 mes
Puntos: 1
¿Cómo declaro estas variables? (Novato)

Estoy utilizando un código que he encontrado de visual basic para mi programa en visual studio 2005.

He conectado bien mi programa a MySQL, quiero hacer una simple consulta, pero me dice que las variables adOpenStatic y adLockOptimistic no han sido declaradas, ¿de que tipo y como he de declararlas? (soy novato)

Código:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error GoTo Ver

        Dim RecBD = New ADODB.Recordset
        RecBD.Open("select * from contactos", BD, adOpenStatic, adLockOptimistic)

        While Not RecBD.EOF
            MsgBox("Su ID: " & RecBD.Fields(0) & " | " & " y su nombre " & RecBD.Fields(1), , "Información...")
            RecBD.MoveNext()
        End While

        Exit Sub
Ver:
        MsgBox("Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores")
        Err.Clear()
    End Sub