PROBLEMAS CONCONSULTAS AO DBA COM MSFLEXGRID

MYLLAMACHAADO 26/02/2013 10:56:11
#419639

Bom dia pessoas! Sou iniciante em Visual Basic e estou com um problema que pode parecer bobo mas que já está me causando irritação. Meu problema é com uma consulta em um código que estou desenvolvendo. A situação é a seguinte:

• Quando a variável codigoparada que é selecionado a partir de um Cscombobox que puxa todos os códigos possíveis do próprio banco é menor que 10, ele gera a consulta só que não retorna nenhum dado, mas também não dá nenhum erro. A partir de 10 até 57 (último código) ele gera normal as consultas e faz todos os cálculos.

OBS: No banco os códigos estão 01, 02, 03 etc e no Cscombo tá puxando 1, 2, 3 pode ser esse o problema? Pois eu testei a query direto no MySQL e efetuou a busca corretamente.

Set cn2 = New ADODB.Connection
Set rsMy = New ADODB.Recordset
Set cn2 = CreateObject([Ô]ADODB.Connection[Ô])
ConectaMySQL = [Ô]DRIVER={MySQL ODBC 5.1 Driver};Server=localhost;Port=3306;Database=nomedobanco;Uid= ******* ;Pwd= ******** ;[Ô]
cn2.Open ConectaMySQL

MSFlexParadas.TextMatrix(0, 1) = [Ô]Maquina[Ô]
MSFlexParadas.TextMatrix(0, 2) = [Ô]Data da parada[Ô]
MSFlexParadas.TextMatrix(0, 3) = [Ô]Código da parada[Ô]
MSFlexParadas.TextMatrix(0, 4) = [Ô]Tempo da parada[Ô]
MSFlexParadas.TextMatrix(0, 5) = [Ô]Observação[Ô]

With rsMy
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.ActiveConnection = cn2
rsMy.Open [Ô]SELECT codigomaquina, dataparada, codigoparada, tempogasto, observacao FROM paradaspesagem WHERE codigomaquina =[ô][Ô] & maquina & [Ô][ô]AND codigoparada =[ô][Ô] & paradas & [Ô][ô];[Ô]

If .BOF = True And .EOF = True Then Exit Sub
MSFlexParadas.Rows = .RecordCount + 1
Do Until .EOF = True
Row = Row + 1
MSFlexParadas.TextMatrix(Row, 0) = Row
MSFlexParadas.TextMatrix(Row, 1) = ![codigomaquina]
MSFlexParadas.TextMatrix(Row, 2) = ![dataparada]
MSFlexParadas.TextMatrix(Row, 3) = ![codigoparada]
MSFlexParadas.TextMatrix(Row, 4) = ![tempogasto]
MSFlexParadas.TextMatrix(Row, 5) = ![observacao]
.MoveNext
Loop
End With

Agradeço desde já pessoal

________________________________________________________________________________

A morte de uma pessoa é uma tragédia, a de milhões é estatística. - Bluehand