| Вопрос: Кодовая страница ADO | Добавлено: 01.11.04 06:43 |
Автор вопроса:  mongol
|
|
Ребята проблема такая:
Через ADO цепляюсь к базе ACCESS (раньше работал через DAO) и хочу заполнить HerticalFlexGrid: [code] Dim Zena As Single Dim rec As ADODB.Recordset Set rec = New ADODB.Recordset rec.CursorType = adOpenDynamic rec.LockType = adLockOptimistic If MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0) = Empty Then Exit Function rec.Open "SELECT * FROM Цены WHERE Товар=" & MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0) _ & " AND тип=" & Combo2.ItemData(Combo2.ListIndex) & " AND Дата<=" & DATE_IN_ZAPROS(CurDate) & " ORDER BY Дата", dbc, , , adCmdText rec.MoveLast Zena = NULL_TO_EMPTY(EMPTY_TO_ZERO(rec!Цена)) MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 3) = NULL_OR_FIXED(EMPTY_TO_ZERO(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 2)) * Zena) [code] все хорошо, все прекрасно проблема в том что он заполняет цифровые значения типа Single через точку а не запятую как указанно в национальных стандартах достаточно не удобно пришлось писать функцию на обработку а попроще можно? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  mongol Вопросов: 2 Ответов: 12 |
Профиль | | #1 | Добавлено: 01.11.04 06:45 |
| Извините там где переменная Zena к теме уже не относиться | ||
|
Номер ответа: 2 Автор ответа: mongolВопросов: 2 Ответов: 12 |
Профиль | | #2 | Добавлено: 01.11.04 06:48 |
|
еще раз извините тороплюсь код не оттуда скопировал код такой
dbc.Execute "  ELETE * FROM МаршрутФактураTemp"
dbc.Execute "INSERT INTO МаршрутФактураTemp SELECT * FROM МаршрутФактура WHERE Машина=" _ & Combo1.ItemData(Combo1.ListIndex) _ & " AND Дата=" & DATE_IN_ZAPROS(CurDate) Set rec = New ADODB.Recordset rec.CursorType = adOpenDynamic rec.LockType = adLockOptimistic rec.Open "SELECT МаршрутФактураTemp.Товар AS Name,Товар.Товар,Количество,Сумма " & _ "FROM Товар LEFT JOIN МаршрутФактураTemp ON МаршрутФактураTemp.Товар=Товар.Код " & _ "WHERE Вывод=1 AND вид=11", dbc, , , adCmdText ' Set MSHFlexGrid1.Recordset = rec |
||
Страница: 1 |