Как отобразить строку из DBF файла в нужной кодировке? - Visual Basic .NET
Формулировка задачи:
есть дбф файл с данными в кодировке Windows1251
(это я так предполагаю что в 1251, потому что использую дбф навигатор и ставлю вид отображения Windows1251)
как мне загрузить данные из дбф файла в датагрид в читабельном виде?
подскажите где ошибка? может запрос надо изменить? или я кодировку неправильно определил? или синтаксис кода преобразования неправильный
я в заблуждении
код чтения дбф в датагри
попытка преобразовать текст в нужную кодировку (мне кажется где-то здесь моя проблема)
Листинг программы
- Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Администратор\Desktop\Май\рег;Extended Properties=dBase IV;User Id=Admin;Password=")
- Dim da2 As New OleDb.OleDbDataAdapter("", cn2)
- Dim Command2 As OleDb.OleDbCommand = New OleDb.OleDbCommand("", cn2)
- Dim DS As DataSet = New DataSet
- Dim dgv As DataGridView = New DataGridView
- Dim Zapros As String = "Select FAMIL, IMJA, OTCH, NPSS, DOCUMENT, NOMER, SERIA, NNASP, NYLIC from 3"
- If DS.Tables.Contains("dt") Then DS.Tables.Remove("dt")
- DS.Tables.Add("dt")
- da2.SelectCommand.CommandText = Zapros
- da2.Fill(DS.Tables("dt"))
- dgv.DataSource = DS.Tables("dt")
Листинг программы
- Dim Str As String = dgv.Rows(1).Cells(1).Value
- Dim s() As Byte = System.Text.Encoding.GetEncoding(1251).GetBytes(Str)
- Dim ssa As String = System.Text.Encoding.Unicode.GetString(s)
- MsgBox(ssa)
Решение задачи: «Как отобразить строку из DBF файла в нужной кодировке?»
textual
Листинг программы
- fs.WriteByte(0) 'где 101 - Dos 866, а 201 - Win 1251
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д