Hacer una consulta VB Net -MySql pasando una fecha

[antoniorecio]

Hola

Necesito hacer una consulta a una BD en MySql desde VBNet

Puedo conectar a la BD perfectamente y demas (otras consultas)

Tengo un Datetimepicker en VB, y en Mysql la fecha en formato "Date"

El codigo que tengo realizado es el siguiente:

Código:

      
 Dim fechaInicio As Date = Convert.ToDateTime(Me.DateTimePicker1.Text)
 Dim fecha1 As String = String.Format("{0:yyyy-MM-dd}", fechaInicio)


        conexion = New MySqlConnection()
        conexion.ConnectionString = "server=" & Servidor & ";" & "user id=" & Usuario & ";" & "password=" & Pass & ";" & "database=" & BasedeDatos & ";"
        conexion2.Open()
        table = New DataTable
        adaptador = New MySqlDataAdapter("SELECT valor FROM Casas WHERE fecha=" & Format("{0:yyyy-MM-dd}", fechaInicio) & ";", conexion2)

        builder = New MySqlCommandBuilder(adaptador)
        adaptador.Fill(table)
        TextBox4.Text = Me.table.Rows(0).Item(0)

Pero me da error en Me.table.Rows(0).Item(0)

Que hago mal?


Y como deberia ser la consulta select en caso de querer añadir otra variable para la consulta? (Lo que sería tipo: Select valor FROM Casas WHERE fecha=20-10-2011 AND id=1)


Gracias

[antoniorecio]

Nadie que sepa la solucion?

[Wuakap]

Prueba lo siguiente:

Código:

Dim fechaInicio As Date = Convert.ToDateTime(Me.DateTimePicker1.Text)
Dim fecha1 As String = String.Format("{0:yyyy-MM-dd}", fechaInicio)

        Try

              conexion = New MySqlConnection()
              conexion.ConnectionString = "server=" & Servidor & ";" & "user id=" & Usuario & ";" & "password=" & Pass & ";" & "database=" & BasedeDatos & ";"
              conexion2.Open()
              table = New DataTable
             adaptador = New MySqlDataAdapter("SELECT valor FROM Casas WHERE fecha=" & Format("{0:yyyy-MM-dd}", fechaInicio) & ";", conexion2)

             builder = New MySqlCommandBuilder(adaptador)
             adaptador.Fill(table)
             TextBox4.Text = Me.table.Rows(0).Item(0)

         Catch ex As Exception
             msgbox(err.description)
         End Try

Con eso puedes capturar el error y ver que esta pasando. A mi parecer no encuentra ningún registro con los filtros asignados en el where y al tratar de asignar un null, la aplicación genera un error en tiempo de ejecución y, en buen chileno, se va de wata