Ver Mensaje Individual
  #5 (permalink)  
Antiguo 27/07/2009, 10:49
Aioros-jms
 
Fecha de Ingreso: julio-2008
Mensajes: 116
Antigüedad: 15 años, 9 meses
Puntos: 1
Respuesta: Error: Consulta Mysql-VB.net 2008

Hola buen día!!!

Muchas gracias por tus comentarios e interes gnzsoloyo, no me habia dado cuenta que me habia borrado el post, bueno a la otra pondré mas atención al postear un tema para que no me borren jejeje.

Bueno como ya lo habia menciaonado utilizo mysql 6 alpha con vb.net 2008, para conectarme utilizo el MySQL Connector Net 5.2.5, solo ocupo una tabla con unos 10 campos, esta se llena diariamente con aproximadamente 1,500,000 registro.

la tabla es de la siguiente manera:

Código:
DROP TABLE IF EXISTS `tblExample`;
CREATE TABLE `tblExample` (
  `ID` int(11) NOT NULL AUTO_INCREMENT,
  `Campo` varchar(50) NOT NULL,
  `Campo2` varchar(10) NOT NULL,
  `Campo3` varchar(50) NOT NULL,
  `Campo4` varchar(10) NOT NULL,
  `Campo5` varchar(150) NOT NULL,
  `Campo6` date NOT NULL,
  `Campo7 time NOT NULL,
  `Campo8` varchar(20) NOT NULL,
  `Campo9` varchar(45) NOT NULL,
  PRIMARY KEY (`ID`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;
Mi consulta sería algo así:

Código:
Dim cmd As New MySqlCommand
        Dim da As New MySqlDataAdapter
        Dim ds As New DataSet
        Dim MyQuery  As String = "SELECT  Campo5, COUNT(Campo5) AS 'Total' FROM MyDBs.tblExample where Campo6 >= '" & _fecha1 & "' and Campo6 <= '" & _fecha2 & "' and Campo9 In (" & _text & ") and Campo5 Like '%" & _val & "%' group by Campo5"
        cnn.ConnectionString = "Mi_cadena_de_conexion"
        Try
                cnn.Open()
                cmd.Connection = cnn
                cmd.CommandText = MyQuery
                da.SelectCommand = cmd
                da.Fill(ds)
        Catch ex As MySqlException
                MessageBox.Show(ex.Message)
        End Try

Saludos!! de ante mano gracias!!