no me carga el grid con seleccion combo

[guillebomtrasmiti]

hola amigos, tengo esto;

Public Sub cargainventariocombo()

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand


com.CommandType = CommandType.Text
com.CommandText = "SELECT Fecha,Plu,NomProducto,Stock From GeneralAlmacen Where Fecha = @combo1 group by Fecha,Plu,NomProducto,Stock"
com.Parameters.AddWithValue("@combo1", ComboInventarios.SelectedValue.ToString)

adapt.SelectCommand = com
adapt.Fill(setda, "GeneralAlmacen")


'aquí cargo el datasource y el datamenber del datagrid
DgInventario.DataSource = setda
DgInventario.DataMember = "GeneralAlmacen"
DgInventario.Refresh()

Private Sub ComboInventarios_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboInventarios.SelectedIndexChanged
cargainventariocombo()
End Sub

y me da este error
No coinciden los tipos de datos en la expresión de criterios.
alguna idea?

[guillebomtrasmiti]

NAIDE?¿? porfi..es una ayudita..no encuentro el fallo

[CRAM]

Hola, ¿en que línea te da ese error?

[guillebomtrasmiti]

aquí

adapt.Fill(setda, "GeneralAlmacen")

[guillebomtrasmiti]

solo tienes dos mensajes?¿?, joer es que yo llevo 364..soy un inútillljejejej

[CRAM]

Hola. Bueno, prueba a cambiar esa línea por esta:

adapt.Fill(setda)


Saludos

[CRAM]

Además, declararia stda como DataTable y no como DataSet. Y sacaría la siguiente linea:

DgInventario.DataMember = "GeneralAlmacen"


Saludos

[guillebomtrasmiti]

mmmm...mismo error en el mismo sitio
No coinciden los tipos de datos en la expresión de criterios.

[CRAM]

aaa, entonces es un problema de la consulta sql, el campo "Fecha" es distinto al tipo de datos de @combo1.


Fijate que tipo de datos tiene "Fecha" en la base de datos.

[guillebomtrasmiti]

tiene date...como sería entonces?

[guillebomtrasmiti]

probé así pero me da otro error, lo que está claro es que ese es el problema....pero no se como decirle que es date

com.Parameters.AddWithValue("@combo1", Convert.ToDateTime(ComboInventarios.SelectedValue. ToString))

[guillebomtrasmiti]

ASÍ CASI...pero me carga todo junto

Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand


com.CommandType = CommandType.Text
com.CommandText = "SELECT Fecha,Plu,NomProducto,Stock From GeneralAlmacen Where Fecha = @combo1 group by Fecha,Plu,NomProducto,Stock"
com.Parameters.AddWithValue("@combo1", OleDbType.Date.Equals(ComboInventarios.SelectedVal ue))

adapt.SelectCommand = com
adapt.Fill(setda, "GeneralAlmacen")


'aquí cargo el datasource y el datamenber del datagrid
DgInventario.DataSource = setda
DgInventario.DataMember = "GeneralAlmacen"
DgInventario.Refresh()

[CRAM]

Cómo que te carga todo junto? te muestra todos los registros en lugar de mostrarte sólo los resitros que tienen la fecha que le indicas?

[guillebomtrasmiti]

si no...bueno...que va...da error y no sale nada me equivoque en el filtro ...sigo a vueltas sin conseguirlo voy a darlo por imposible

[CRAM]

Que base de datos usas?

[guillebomtrasmiti]

access 2003

[CRAM]

ok. entonces cambia la línea com.CommandText por esta:

com.CommandText = "SELECT Fecha,Plu,NomProducto,Stock From GeneralAlmacen Where Fecha = #" & ComboInventarios.Text & "# group by Fecha,Plu,NomProducto,Stock".

El formato de la fecha que se le pasa a la consulta debería ser mes/dia/año.

[guillebomtrasmiti]

MIRA EL NUEVO ERRORCILLOS DE LOS HUEVOS

Error de sintaxis en la fecha en la expresión de consulta 'Fecha = #System.Data.DataRowView#'.

[CRAM]

y que hay escrito en ComboInventarios.Text? porque ahi deberia estar la fecha

[guillebomtrasmiti]

Copio y pego lo que hay ahora en el combo

25/08/2011

[CRAM]

mmm... es raro, xq en en ComboInventarios tiene 25/08/2011 y cuando cuando hace la consulta pone System.Data.DataRowView' en lugar de la fecha. A ver, como te quedo el codigo ahora..

[guillebomtrasmiti]

''cargo el grid con la selección del combo de fechas inventarios
'Public Sub cargainventariocombo()

' Dim adapt As New OleDbDataAdapter
' Dim setda As New DataSet
' Dim com = conexion.CreateCommand


' com.CommandType = CommandType.Text
' com.CommandText = "SELECT Fecha,Plu,NomProducto,Stock From GeneralAlmacen Where Fecha = " & ComboInventarios.Text & " group by Fecha,Plu,NomProducto,Stock"

' ' com.CommandText = "SELECT Fecha,Plu,NomProducto,Stock From GeneralAlmacen Where Fecha = @combo1 group by Fecha,Plu,NomProducto,Stock"
' ' com.Parameters.AddWithValue("@combo1", (OleDbType.Date.Equals(ComboInventarios.SelectedVa lue)))

' adapt.SelectCommand = com
' adapt.Fill(setda, "GeneralAlmacen")


' 'aquí cargo el datasource y el datamenber del datagrid
' DgInventario.DataSource = setda
' DgInventario.DataMember = "GeneralAlmacen"
' DgInventario.Refresh()
'End Sub
' ''muestra en el grid los datos de la fecha seleccionada en el combobox
'Private Sub ComboInventarios_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboInventarios.SelectedIndexChanged
' cargainventariocombo()
'End Sub

[guillebomtrasmiti]

va entre comillado por que lo copie tal cual lo tengo ya que lo deshabilito si no me da error al arrancar el formulario

[CRAM]

Al CommandText le faltan los '#'

Quedaría así:

com.CommandText = "SELECT Fecha,Plu,NomProducto,Stock From GeneralAlmacen Where Fecha = #" & ComboInventarios.Text & "# group by Fecha,Plu,NomProducto,Stock".


Creo que para hacer las consultas access trabaja con el formato de fecha mm/dd/aaaa. Si te da error probá a reemplazar 'ComboInventarios.Text' por 'ComboInventarios.Text.ToString("MM/dd/yyyy")'

[guillebomtrasmiti]

nono....los borré pero puestos manda el error que te envíe

[guillebomtrasmiti]

MIRA ASÍ HAGO LA CARGA EN EL COMBOBOX

'carga el combobox de inventarios según fechas existan
Public Sub cargainventariosAlmacen()
Try
Dim adaptador As New OleDb.OleDbDataAdapter("Select Fecha From GeneralAlmacen GROUP BY Fecha", conexion)
Dim midataset As New DataSet

adaptador.Fill(midataset, "GeneralAlmacen")

ComboIAlmacen.DataSource = midataset.Tables("GeneralAlmacen")
ComboIAlmacen.DisplayMember = "Fecha"
'ComboProducto.ValueMember = "Fecha"
Catch
MessageBox.Show("No es posible cargar las fechas de inventarios")
End Try
'TextPlu.Enabled = False
End Sub

[guillebomtrasmiti]

'cargo en tabla almacén lo selecionado en el combo...unicamente ese día
Dim comados6 = conexion.CreateCommand
comados6.CommandType = CommandType.Text
comados6.CommandText = "INSERT INTO Tabla_Almacen_General SELECT Fecha,Plu,NomProducto,Stcok FROM GeneralAlmacen where Fecha = @FI GROUP BY Fecha,Plu,NomProducto,Stcok"
'comados6.Parameters.AddWithValue("@FI", ComboIAlmacen.Text)
comados6.Parameters.AddWithValue("@FI", ComboIAlmacen.SelectedValue.ToString("dd/MM/yyyy"))

si lo hago así me da este error...

la conversion de dd/MM/yyyy en tipo integer no es válida

[guillebomtrasmiti]

SelectedValue = #8/25/2011# {Date}

SI VEO PASO A PASO EN ESTEA LÍNEA
comados6.Parameters.AddWithValue("@FI", ComboIAlmacen.SelectedValue("dd/MM/yyyy").ToString)

sale lo que puse arriba...sale al reves la selección por que en el combo sale
25/08/2011

[guillebomtrasmiti]

Y EN ESA MISMA LÍNEA SALE ESTO
Text = "25/08/2011"

[guillebomtrasmiti]

error si lo pongo así
comados6.CommandType = CommandType.Text
comados6.CommandText = "INSERT INTO Tabla_Almacen_General SELECT Fecha,Plu,NomProducto,Stcok FROM GeneralAlmacen where Fecha = @FI GROUP BY Fecha,Plu,NomProducto,Stcok"
comados6.Parameters.AddWithValue("@FI", ComboIAlmacen.SelectedValue("#MM/dd/yyyy#").ToString)
cambien el orden de dd/MM por MM/dd, por que veo que lo lee al revés...por fi una ayudita


no se encontró ningún miembro predeterminado para el tipo 'Date'