Buenas Noches...
Soy un poco nueva en el entorno de estos llamado archivos BTRIEVE, y pues mi problema radica en las fechas. Quiero desplazarlos en datagridview pero no puedo porque me marca el error:
los parametros de año, mes y dia describen un campo date time que no se pueden representar
Si me pudieran ayudar fuera genial. Probe tratando de convertir las fechas en string pero no me sale. Me tira un error como que no me identifica el cast y eso que lo probe en una consulta sql normal y si me sale. Por lo que pienso que es demasiado viejo para que funcione. Ya he probado casi de todo...
Aqui les dejo mi codigo por si aun caso:
Código vb:
Ver originalImports System.Data.Odbc
Public Class Form1
Dim consulta As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim da As Odbc.OdbcDataAdapter
Dim tabla As DataTable
Dim constr As String
Dim n As String
constr = "DSN=HM; DBQ=C:\LFODBC32\V2.10;CODEPAGE=1252;"
consulta = "SELECT * FROM FISCYEAR"
n = consulta
Dim con As New Odbc.OdbcConnection(constr)
Try
da = New Odbc.OdbcDataAdapter(n, con)
tabla = New DataTable
Dim cmd As New Odbc.OdbcCommandBuilder(da)
da.Fill(tabla)
DataGridView1.DataSource = tabla
DataGridView1.RowHeadersVisible = False
For Each col As DataGridViewColumn In DataGridView1.Columns
col.SortMode = DataGridViewColumnSortMode.NotSortable
col.ReadOnly = True
If col.GetType Is GetType(DataGridViewImageColumn) Then
For Each row As DataGridViewRow In DataGridView1.Rows
If row.IsNewRow Then Continue For
row.Height = row.Cells("image").ContentBounds.Height + 6
Next
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
con = Nothing
'ds = Nothing
tabla = Nothing
da = Nothing
End Try
End Sub
End Class
Gracias Gracias si pueden entontrar mi error.