Ввод данных в DataGrid

[Summer.05]

Коллеги, прошу совета. Написал программку с базами данных (VB6). На компьютере, где писал, все работает без проблем. При переносе на другой компьютер тоже работает почти все, только не выводятся в DataGrid данные. При этом никаких указаний на ошибки нет - не вводятся данные, и все тут. Не подскажете?

[VVitafresh]

Такие темы уже поднимались не раз, например:
http://bbs.vbstreets.ru/viewtopic.php?t=30412

А ошибку не показывает, наверное, потому что у тебя

Код: Выделить всё

On Error Resume Next

[Summer.05]

Я читал этот топик. Это не мой случай.
И
Visual Basic:
On Error Resume Next
у меня нет.
Эти вещи я уже прошел. Просто не вводятся данные в DataGrid, но только на других компах.

[Summer.05]

При подключении контрола ADODC к базе и возвращении рекордсета исчезает первая запись в первом поле.
Исправляется при создании полей DBGrid заново; возникает при переносе DBGrid на другие формы копированием.
В чем причина, не подскажите ли?

[Summer.05]

Добавил сеи строки через месяц. Проблема не исчезает. Решить ее можно (пока) только двумя путями:
1) заменить *.mdb (файл базы данных) на резервный;
2) заново создать макет DBGrid или ТDBGrid на форме.

Кто-нибудь сталкивался? В чем причина?

[Summer.05]

Приветствую всех!

Сколько времени я на форуме (вообще-то совсем немного), но эта проблема меня не покидает.

Повторю:
База - mdb, VB, DataGrid.
Соединение -

Код: Выделить всё

strPath = App.Path & "\" & "DB\info.mdb"
With Adodc1
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & strPath & _
"; Mode=Read|Write"
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .CommandType = adCmdText
    .RecordSource = "SELECT razd.title FROM razd"
    .Refresh
End With


Проблема: при выводе в DataGrid исчезает содержимое первой строки. Причем, стирается из mdb

Странное явление, я не заметил никаких причин или совпадений.
Может быть, кто-нибудь сталкивался и знает причину сего явления?
Буду благодарен!

[Nord777]

Попробуй в строку подключения добавить параметр "HDR=No".


Взято с http://www.connectionstrings.com:

Код: Выделить всё

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\txtFilesFolder\;Extended Properties="text;HDR=Yes;FMT=Fixed";

"HDR=Yes;" indicates that the first row contains columnnames, not data.
"HDR=No;" indicates the opposite.

[Summer.05]

Nord777
Понял, спасибо!
Обязательно попробую и доложу..

[Summer.05]

Я разобрался в причинах исчезновения первой записи в DataGrid1
По умолчанию в первую ячейку DataGrid1 устанавливается TabIndex=0
После принудительного присвоения TabIndex=0 какому-либо контролу проблема снимается