Caracteres extraños consulta tabla dbf en datagridview

Hago una consulta sobre una tabla dbf
y lo pongo en una grilla.
Aparecen caracteres extraños en la grilla.
Lo que me complica para la búsqueda... ue estoy programando dentro del
DataGridView



Dim sBase As String = DirectorioActual
Dim sSelect As String
sSelect = "SELECT * from mitabla"
Dim sConn As String
sConn = "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛF;SourceDB=" & _
System.IO.Path.GetDirectoryName(sBase) & ";"
Using dbConn As New System.Data.Odbc.OdbcConnection(sConn)
Try
dbConn.Open()
Dim da As New System.Data.Odbc.OdbcDataAdapter(sSelect, dbConn)
Dim dt As New DataTable
da.Fill(dt)
Grid.DataSource = dt
dbConn.Close()
Catch ex As Exception
MessageBox.Show("Error al abrir la base de datos" & vbCrLf & ex.Message)
Exit Sub
End Try
End Using

Hugo

Agrego mas datos.
Si bien aparecen caracteres extraños... el problema particular es que hay
un par de registros que, cuando hago el select y le hago el binding al
datagridview apararecen despues de la Z cuando ordeno alfabético.
El problema me surge al reordenar los mismos utilizando el método SORT del
propio datagridview, que me lo deja al principio.

No puedo aplicar el orden cada ves a la tabla y hacerle el binding de
nuevo porque tarda demasiado.


El 11/05/2010 02:20, Hugo Gsell escribió:

Hago una consulta sobre una tabla dbf
y lo pongo en una grilla.
Aparecen caracteres extraños en la grilla.
Lo que me complica para la búsqueda... ue estoy programando dentro del
DataGridView



Dim sBase As String = DirectorioActual
Dim sSelect As String
sSelect = "SELECT * from mitabla"
Dim sConn As String
sConn = "Driver={Microsoft Visual FoxPro
Driver};SourceTypeÛF;SourceDB=" & _
System.IO.Path.GetDirectoryName(sBase) & ";"
Using dbConn As New System.Data.Odbc.OdbcConnection(sConn)
Try
dbConn.Open()
Dim da As New System.Data.Odbc.OdbcDataAdapter(sSelect, dbConn)
Dim dt As New DataTable
da.Fill(dt)
Grid.DataSource = dt
dbConn.Close()
Catch ex As Exception
MessageBox.Show("Error al abrir la base de datos" & vbCrLf & ex.Message)
Exit Sub
End Try
End Using

Hugo