Национальные стандарты и ADO -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.119.125.135]

Правила раздела Visual Basic: Общие вопросы

Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image

FAQ Сайта

FAQ Раздела user posted image

Кладовка

Наши Исходники user posted image

API-Guide

Поиск по Разделу user posted image

MSDN Library Online user posted image

Google

Ваше мнение о модераторах: user posted image

SCINER,

B.V.

Модераторы: SCINER, B.V.

Новое голосование

Национальные стандарты и ADO

Mongol

Сообщ. #1 , 01.11.04, 03:53

Junior

Профиль · PM

Рейтинг (т): 0

Ребята проблема такая:
Через ADO цепляюсь к базе ACCESS (раньше работал через DAO) и хочу заполнить HerticalFlexGrid:

dbc.Execute "DELETE * 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

все хорошо, все прекрасно проблема в том что он заполняет цифровые значения типа Single через точку а не запятую как указанно в национальных стандартах достаточно не удобно пришлось писать функцию на обработку
а попроще можно?

Dr._S

Сообщ. #2 , 01.11.04, 06:20

Senior Member

Профиль · PM

Поощрения: 3 Dgm

Рейтинг (т): 35

Mongol, все нормально показывает с запятой. Посмотри какой формат поля у тебя в базе, числовой ли? И посмотри настройки там же: формат поля и размер поля. Ты не сказал в какой таблице отображаешь данные, я в ДатаГриде смотрел.
Ты наверное в каком-нить MSHFlexGrid просматриваешь, там вместо запятой точка. Поменяний таблицу для отображения.

Mongol	Сообщ. #3 , 01.11.04, 08:53
Junior Профиль · PM Рейтинг (т): 0	Да, в нем самом, с полями норма программа на DAO год работала,решил модифицироать, поробую другой конотрол, а вчем проблема с MSHFlexGrid?

Dr._S	Сообщ. #4 , 01.11.04, 16:35
Senior Member Профиль · PM Поощрения: 3 Dgm Рейтинг (т): 35	Mongol, Цитата а вчем проблема с MSHFlexGrid? проблем с MSHFlexGrid нет, проблема в том, что тебе не подходит. А то что там вместо запятых точки, это уже к разработчикам этого компонента. Плохо что в нем нет маскм отображения данных.

Mongol	Сообщ. #5 , 02.11.04, 00:02
Junior Профиль · PM Рейтинг (т): 0	Спсибо за подсказку, а то перекопал все свойства и ADo , и MSHFlexGrid

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0208 ] [ 16 queries used ] [ Generated: 3.05.24, 18:18 GMT ]