Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DBF in VB / 2 сообщений из 2, страница 1 из 1
12.07.2003, 20:09
    #32206409
Zanton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DBF in VB
Как из базы данных типа dBase получить строки в виндовс кодировке??? OemToChar не получается! Помогите!
...
Рейтинг: 0 / 0
12.07.2003, 22:18
    #32206427
ulis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DBF in VB
Итак, имем простенький dbf-файл в dos кодировке (кодовая страница 866).
Далее, подключаемся к ней и смотрим, что нам покажет грид:

Option Explicit

Dim cnnD As New ADODB.Connection
Dim rstD As New ADODB.Recordset


Private Sub cmdConnect_Click()

Dim strSQL As String

cnnD.CursorLocation = adUseClient


cnnD.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & App.Path & ";UseProcForPrepare=No"
strSQL = "SELECT * FROM test.dbf"
rstD.Open strSQL, cnnD
Set dtgDbf.DataSource = rstD

End Sub


Private Sub Form_Unload(Cancel As Integer)

If cnnD.State = 1 Then
cnnD.Close
Set cnnD = Nothing
End If

If rstD.State = 1 Then
rstD.Close
Set rstD = Nothing
End If


End Sub
где dtgDbf - datagrid. И что мы видим? Мы видим, что русский текст отображается нормально. Или я чего-то не догоняю, или все намного сложнее
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DBF in VB / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]