none
urgente como puedo mostrar una cosnulta sql con where usando visual basic de visuale studio 2010 yusando como basede datos una tabal de acces RRS feed

  • Pregunta

  • buen dia a todos .

    veran tengo este codigo que e echo para ,mostrar el dato de mi select en un msgbox

      Dim conexion As New OleDb.OleDbConnection
        Dim adaptador As New OleDb.OleDbDataAdapter
        Dim registro As New DataSet

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            Dim consultas As String
            Dim lista As Byte
            If TextBox1.Text <> "" Then
                consultas = "select nombre from Planta where idplanta=" & TextBox1.Text & ""
                adaptador = New OleDbDataAdapter(consultas, conexion)
                registro = New DataSet
                adaptador.Fill(registro, "Planta")
                lista = registro.Tables("Planta").Rows.Count

            Else
                MsgBox("debe ingresar un id de planta correcto)
            End If
            If lista <> 0 Then
                MsgBox(registro.ToString)
            End If
            conexion.Close()

     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Try
                conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "D:\base de datos experto\expertplantas.accdb")
                conexion.Open()
                MsgBox("conexion exitosa", vbInformation, "conectado")
            Catch ex As Exception
                MsgBox("ha ocurrido un error al itnentar conectar con la bd", vbExclamation, "error")
            End Try

         

        End Sub

    PD : realmente necesito su ayuda, gracias


    • Editado kevin1520 sábado, 12 de julio de 2014 5:21
    sábado, 12 de julio de 2014 5:19

Respuestas

  • En líneas generales el código debería funcionar, aunque contiene varias cosas superfluas y que se podrían simplificar u optimizar.

    Lo único que veo mal es el MsgBox(registro.ToString), que siempre escribirá "System.Data.DataSet". No quieres mostrar "registro", que es el DataSet completo, sino que lo que quieres es la primera columna de la primera fila de la primera tabla del DataSet:

    MsgBox.Show(registro.Tables(0).Rows(0)(0).ToString())

    • Marcado como respuesta kevin1520 sábado, 12 de julio de 2014 5:39
    sábado, 12 de julio de 2014 5:27

Todas las respuestas

  • En líneas generales el código debería funcionar, aunque contiene varias cosas superfluas y que se podrían simplificar u optimizar.

    Lo único que veo mal es el MsgBox(registro.ToString), que siempre escribirá "System.Data.DataSet". No quieres mostrar "registro", que es el DataSet completo, sino que lo que quieres es la primera columna de la primera fila de la primera tabla del DataSet:

    MsgBox.Show(registro.Tables(0).Rows(0)(0).ToString())

    • Marcado como respuesta kevin1520 sábado, 12 de julio de 2014 5:39
    sábado, 12 de julio de 2014 5:27
  • gracias , me as ayudado mucho ,te lo agradesco sinceramente, me interesa mucho el tema  de como obtener los datos ,desde muchos datasource , si sabes de algun sito web o algun recurso q me pueda ayudar con eso sobre todo el el tema de oledb, ADO.gracias



    • Editado kevin1520 sábado, 12 de julio de 2014 5:44
    sábado, 12 de julio de 2014 5:36