Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
DBF in VB
|
|||
|---|---|---|---|
|
#18+
Как из базы данных типа dBase получить строки в виндовс кодировке??? OemToChar не получается! Помогите! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.07.2003, 20:09 |
|
||
|
DBF in VB
|
|||
|---|---|---|---|
|
#18+
Итак, имем простенький 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. И что мы видим? Мы видим, что русский текст отображается нормально. Или я чего-то не догоняю, или все намного сложнее ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.07.2003, 22:18 |
|
||
|
|

start [/forum/topic.php?fid=60&tid=2171038]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
43ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
35ms |
get tp. blocked users: |
1ms |
| others: | 12ms |
| total: | 133ms |

| 0 / 0 |
