ERRO - APENAS NO WIN7

MARCELO.TREZE 26/09/2011 10:48:59
#385242

tentou usar a ocx que corrige o problema drrepente funciona também

PRIBENA 26/09/2011 11:21:50
#385250

Pedi ajuda no Facebook e aí um amigo me ajudou.

A modificação foi feito usando um método para preencher o Grid, segue abaixo o método:

Public Function GridExQuery(grid As GridEX20.GridEX, Optional sql As String, Optional conn As ADODB.Connection) As ADODB.Recordset

Dim rs As New ADODB.Recordset

On Error GoTo Error

grid.Font = 8
grid.RowHeight = -1

If conn Is Nothing Then
Set conn = grid.ADORecordset.ActiveCommand.ActiveConnection
sql = grid.ADORecordset.Source
If grid.ADORecordset.State = adStateOpen Then grid.ADORecordset.Close
End If

rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenKeyset, adLockOptimistic

Set grid.ADORecordset = rs
GoTo finally

Error:

Dim errMsg As String

Select Case Err.Number
Case -2147217908: errMsg = [Ô]Um texto deve ser fornecido quando a conexão for passada[Ô]
Case -2147217900: errMsg = [Ô]Redefina instrução SQL[Ô]
Case -2147221386: errMsg = [Ô]O grid não teve seu Recordset inicializado previamente[Ô]
End Select

Err.Raise Err.Number, [Ô]GridExRequery[Ô], _
Err.Description & vbCrLf & errMsg

finally:

End Function


Obrigada pela colaboração de todos!