-1

Tengo este código para conectar con la base de datos de Access 2007 y extraer de la Tabla_simbolos las columnas id y simbolos, pero me da varios problemas. No se como solucionarlo, no conozco mucho de programación.

 Sub SelectX1()

    Dim dbs As DataTable, rst As Recordset
    Dim OpenDatabase As DataRow
    Dim EnumFields As Integer

   dbs = OpenDatabase("proyecto1DataSet.mdb")


    rst = dbs.OpenRecordset("SELECT Id, " _
        & "Simbolos FROM Tabla_simbolos;")


    rst.MoveLast()


    EnumFields(rst, 12)
    Lexico.Letras.Text = dbs
    dbs.Close()

End Sub
2
  • Hola, bienvenido a Stack Overflow. Por favor, ten en cuenta que nosotros no tenemos la información de contexto que tú tienes y "me da varios problemas" no nos sirve de mucho para poder ayudarte. ¿Podrías ser más específico? ¿Qué problemas te da exactamente? Gracias.
    – Konamiman
    el 24 feb. 2016 a las 7:38
  • Hola @Konamiman ese problema ya me lo ayudaron a solventar, el problema que tengo ahora es que no se como hacer para que esas columnas de la tabla aparezcan en un combobox. el 24 feb. 2016 a las 14:08

1 respuesta 1

1

El problema que veo es que estas mezclando dos tecnologias diferentes, por un lado veo que usas ADO.NET con los datatable y por otro usas ADODB (la cual usabas en VB6) cuando defines Recordset

Mi recomendacion es que solo uses ADO.NET, ADODB solo se mentiene por compatibilidad con desarrollos legacy, pero no deberias usarlo

Function SelectX1() As DataTable

    Dim dt As New DataTable()
    Using conn As New SqlConnection("connection string")
        Dim query AsString = "SELECT Id, Simbolos FROM Tabla_simbolos;"

        Dim cmd As New SqlCommand(query, conn)

        Dim da As New SqlDataAdapter(cmd)
        da.Fill(dt)
    End Using

    Return dt

End Sub

Como veras alli solo se usa ado.net usando el DataAdapter para realizar el Fill() del datatable.

Para definir el conection string podrias guiarte por

Access 2007 connection strings

No estoy muy seguro que hace la linea Lexico.Letras.Text = dbs, pero me suena raro que asignes a una propiedad .Text un datatable

8
  • Entiendo eso de que estaba usando 2 tecnologias diferentes, lo que queria hacer con esa linea es mostrar la base de datos en un combobox que tengo que se llama letras. el 24 feb. 2016 a las 4:07
  • con lo que explico podrias cargar el datatable y asignar este al DataSource del combo. Pero debes usar ado.net el 24 feb. 2016 a las 4:10
  • @Jose95Madrid al ver unas preguntas tuyas marcadas con -1 recientes (no hablo de que sean correctos o no) y revisar tu perfil puede que te interese leer esto es.stackoverflow.com/help en el apartado preguntas por otro lado he visto que tienes cuatro preguntas y todas ellas han sido constestadas por LeandroTuttini, por eso podrias leer esto es.stackoverflow.com/tour y asi enteder a lo que me refiero, podrias votar a favor si crees que alguna respuesta ayudo a solucionar tu problema y/o marcarla como aceptada (no es obligatorio pero creo que es aconsejable). Saludos el 24 feb. 2016 a las 4:11
  • Entiendo gracias @AngelAngel el 24 feb. 2016 a las 4:32
  • @LeandroTuttini conecte la base de datos y intente utilizar Lexico.Letras.DataSource = dt para que lo mostrara en el combobox, no me da error pero no me muestra nada el 24 feb. 2016 a las 4:57

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.