Comments by Member 12919322

Member 12919322 8-Oct-21 9:01am View

I try this but same error :
Me.Cursor = Cursors.WaitCursor

Dim table As New DataTable()
Dim command As New MySqlCommand("SELECT
Produccion.Producto,
Produccion.Producto_tipo,
Produccion.Formato,
Produccion.Marcado,
Produccion.Codigo_referencia,
Produccion.Particularidad,
count(*) as TOTAL_PALES,
SUM(Piezas) AS TOTAL_PIEZAS,SUM(Kilos) AS TOTAL_Kilos,
CONCAT(Produccion.Longitud, 'x',Produccion.Anchura) AS TAMANO
FROM Lote_Cliente, Produccion
WHERE (fecha_preparacion BETWEEN @FECHAINICIO AND @FECHAFINAL) AND Lote_Cliente.numero_lote_cliente = Produccion.Lote_cliente AND Produccion.Nave = @NAVE AND Produccion.Producto = @PRODUCTO
GROUP BY Produccion.Producto,Produccion.Producto_tipo,Produccion.Formato,Produccion.Marcado,Produccion.Codigo_referencia,Produccion.Particularidad,TAMANO
ORDER BY Produccion.Producto, Produccion.Producto_tipo,Produccion.Formato,TAMANO ASC,Produccion.Codigo_referencia,Produccion.Marcado ASC", con)

command.Parameters.Add("@FECHAINICIO", MySqlDbType.Date).Value = DateTimePicker1.Value
command.Parameters.Add("@FECHAFINAL", MySqlDbType.Date).Value = DateTimePicker2.Value
command.Parameters.Add("@NAVE", MySqlDbType.Text).Value = ComboBox1.Text
command.Parameters.Add("@PRODUCTO", MySqlDbType.Text).Value = ComboBox2.Text
Dim adapter As New MySqlDataAdapter(command)
adapter.Fill(table)

DataGridView1.DataSource = table

con.Close()
con.Close()
Me.Cursor = Cursors.Default

Member 12919322 8-Oct-21 7:31am View

I not kidiing, sorry.
I try the follow :
Dim d1 As DateTime = DateTimePicker1.Value

Dim d2 As DateTime = DateTimePicker2.Value

Me.Cursor = Cursors.WaitCursor
Dim ds As New DataSet
Dim query As String
p(0) = New MySqlParameter("@FECHAINICIO", MySqlDbType.String)
p(0).Value = d1
p(1) = New MySqlParameter("@FECHAFINAL", MySqlDbType.String)
p(1).Value = d2
p(2) = New MySqlParameter("@NAVE", MySqlDbType.String)
p(2).Value = ComboBox1.Text
p(3) = New MySqlParameter("@PRODUCTO", MySqlDbType.String)
p(3).Value = ComboBox2.Text

But doesn´t work

Member 12919322 8-Oct-21 7:01am View

Thank you for reply. But how i do that. I´am newbee on this.
Date field is not text is date in mysql

Member 12919322 6-Nov-19 3:42am View

I don't have error message. The sum is wrong !

Member 12919322 9-Oct-19 7:17am View

Done my Virtual Heroe !

Member 12919322 9-Oct-19 6:15am View

Thanks for the help. Works very fine. Now i have a good exemple.
Thanks you a lot Maciej Los.

Member 12919322 9-Oct-19 5:14am View

Maciej Los, Do you my comment ?

Member 12919322 9-Oct-19 4:49am View

Thanks for reply. But not works like i want.
First :
With the end i have errors

dt.Rows.Add(New Object()() {product.InnerText.Trim(), link.Attributes("src").Value})

I change for:

dt.Rows.Add(product.InnerText.Trim(), link.Attributes("src").Value)

and works fine, but(see "Two")

Two:
Only take the first value and not the others (multiplicate the first value by select For Each).
It's maybe because :

Dim div As HtmlNode = doc.DocumentNode.SelectSingleNode("//div[@class='marketplace-collectible-list']")

Member 12919322 9-Oct-19 3:43am View

I have that
https://ibb.co/yNbQxHQ
But i want that.
https://ibb.co/DVWPSC9

Comments by Member 12919322 (Top 9 by date)