Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2759551 Wed, 24 Nov 2010 07:13:46 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2759551 Akina

Цитата

Кстати, непонятно, почему ты использовал иерархический флекс, а не обычный

я в Vb не силен только учусь.
в описание написано он по функционалу побольше будет, поэтому и решил сразу изучать MSHFlexgrid.

если не указывать

conn.Provider = "MSDataShape"

, то MSHFlexgrid отображает 466 строк, а если оставить показывает все 40000 тыс строк.
Спасибо за помощь буду дальше разбираться]]> valdemar_ru Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2759498 Wed, 24 Nov 2010 05:50:33 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2759498 valdemar_ru
Использование статического преобразующего запроса в коде лишает гибкости. Потому я этот самый очевидный вариант не указал.

Цитата valdemar_ru @ 24.11.10, 02:30

Мне не понятна эта строчка

Cn.Provider = "MSDataShape"

Это специальный СОМ-компонент-провайдер, позволяющий формировать и передавать в рекордсете иерархические данные. Иными словами, позволяющий формировать "рекордсет в рекордсете". В твоём случае он не нужен - у тебя данные планарные. Кстати, непонятно, почему ты использовал иерархический флекс, а не обычный... подробнее см. отсюда.]]> Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2759464 Wed, 24 Nov 2010 02:30:29 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2759464 Akina
Спасибо.
Я сейчас так и делаю только без

CREATE OR REPLACE VIEW v_rezept

просто

SELECT ... , CAST(`kol_upak` AS CHAR) `kol_Upak`, ...

FROM rezept;

Я делал по инсрукции из этого источника http://azbukavb.narod.ru/teorie/MSHFlex1.html
пункт: Программное связывание данных с элементом управления Hierarchical FlexGrid

DIM Cn As New Connection, Rs As New Recordset

' Заменить <myDataSource> действительным DSN на вашей системе

Cn.ConnectionString = "DSN=<myDataSource>"

' Используйте следующий код для SHAPE Commands

Cn.Provider = "MSDataShape"

Cn.CursorLocation = adUseNone

'Этот код для SQL Commands

Cn.CursorLocation = adUseNone

Cn.Open

' Необходимо задать правильный источник данных для используемого

' набора Recordset для созданного выше Connection

Rs. Source = "<valid SQL SELECT command>"

' Теперь ассоциировать Command с Connection и выполнить их

Set Rs.ActiveConnection = Cn

Rs.Open

Вставить следующий код для присваивания открытого набора Recordset в Rs элементу управления Hierarchical FlexGrid:

Set MSHFlexGridI.DataSource = Rs

Мне не понятна эта строчка

Cn.Provider = "MSDataShape"

если ее закомментировать, то данные отображаются нармально с нулем. Я ее использовал в подключении.

Public conn As ADODB.Connection

Set conn = New ADODB.Connection

conn.ConnectionString = "DRIVER=" & "{MySQL ODBC 3.51 Driver}" & ";" & _

"SERVER=" & "localhost" & ";" & _

"DATABASE=" & "region" & ";" & _

"UID=" & "root" & ";" & _

"PASSWORD=" & "123" & ";" & _

"OPTION=" & "35" & ";"

conn.Provider = "MSDataShape"

conn.Open

И еще такой момент, если MSHFlexgrid заполнять через

MSHFlexGrid1.TextMatrix(0, 0)=recordset.Fields("index")

поля заполняются с форматирвоанием т.е. если БД идет 2010-08-08 в гриде 08.08.2010 или 0.60 а гриде 0,60.
Этот вариант не подходит правда, если надо заполнить более 2000 строк vb6 зависает.]]> valdemar_ru Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2758964 Tue, 23 Nov 2010 11:35:26 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2758964 valdemar_ru, вынужден тебя огорчить - это не лечится.
Начальный ноль теряется в момент преобразования числа в текст на выходе из ODBC-драйвера. И это описано в документации:

Цитата

Rules for Conversions

[удалено]

Character Source to Numeric Target
Following are the rules for converting from a character source (CS) to a numeric target (NT):

1) Replace CS with the value obtained by removing any leading or trailing spaces in CS. If CS is not a valid numeric-literal, SQLSTATE 22018 (Invalid character value for cast specification) is returned.
2) Replace CS with the value obtained by removing leading zeroes before the decimal point, trailing zeroes after the decimal point, or both.
3) Convert CS to NT. If the conversion results in a loss of significant digits, SQLSTATE 22003 (Numeric value out of range) is returned. If the conversion results in the loss of nonsignificant digits, SQLSTATE 01S07 (Fractional truncation) is returned.

[удалено]

Самый простой имхо выход - создать в промежутке между приложением и табюлицей вьюшку, которая заменит тип этого поля с чисельного на текст:

CREATE OR REPLACE VIEW v_rezept

SELECT ... , CAST(`kol_upak` AS CHAR) `kol_Upak`, ...

FROM rezept;

и получать данные для грида из вьюшки.]]> Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2758759 Tue, 23 Nov 2010 08:41:55 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2758759 Цитата coder @ 19.11.10, 17:24

Цитата valdemar_ru @ 13.11.10, 08:17

Если в БД строка 0.20 в MSHFlexGrid отображается как .20

Нужно посмотреть на региональные стандарты, может у тебя ОС Английская, или настройки чисел по другому.

C:\Documents and Settings\Valdemar>systeminfo
Язык системы: ru;Русский
Язык ввода: en-us;Английский (США)
вот скрин региональных стандартов

языки_и_региональные_стандарты.JPG (, : 601)

Добавлено 23.11.10, 08:45

Цитата Akina @ 19.11.10, 05:55

valdemar_ru, я всё жду, когда Вы выполните ВСЮ просьбу, а не её кусочек, и выложите в дополнение к дампу минимальный проект, в котором проблема воспроизводится.

Вот минимальный проект

Test1.rar (, : 248) ]]> valdemar_ru Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2756694 Fri, 19 Nov 2010 17:24:21 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2756694 Цитата valdemar_ru @ 13.11.10, 08:17

Если в БД строка 0.20 в MSHFlexGrid отображается как .20

Нужно посмотреть на региональные стандарты, может у тебя ОС Английская, или настройки чисел по другому.]]> coder Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2756154 Fri, 19 Nov 2010 05:55:36 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2756154 valdemar_ru, я всё жду, когда Вы выполните ВСЮ просьбу, а не её кусочек, и выложите в дополнение к дампу минимальный проект, в котором проблема воспроизводится.]]> Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2756083 Thu, 18 Nov 2010 21:30:01 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2756083 valdemar_ru
Akina обещал, значит сделает: 4 дня - не срок.
Ты только топик не забывай поднимать апами.]]> nash Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2754698 Wed, 17 Nov 2010 04:37:42 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2754698 Akina
не получилось посмотреть ?]]> valdemar_ru Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2752885 Mon, 15 Nov 2010 04:36:11 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2752885 Цитата Akina @ 13.11.10, 18:49

Выложи минимальный проект плюс минимальный скрипт для создания и наполнения MySQL-БД (или минимальный дамп) - потестировать.
Уж больно странно... по-моему, не в гриде дело.

дамп таблицы. Поле KOL_UPAK]]> valdemar_ru Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2752165 Sat, 13 Nov 2010 18:49:30 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2752165 Уж больно странно... по-моему, не в гриде дело.]]> Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2752106 Sat, 13 Nov 2010 17:19:41 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2752106 Цитата Akina @ 13.11.10, 09:42

Цитата valdemar_ru @ 13.11.10, 08:17

Если в БД строка 0.20 в MSHFlexGrid отображается как .20

Если в БД действительно СТРОКА - значит, в свойствах флекса формат поля чисельный...

в БД тип поля Decimal. В MSHFlexGrid все по умолчанию. В MSHFlexGrid можно задать формат вывода данных?]]> valdemar_ru Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2751685 Sat, 13 Nov 2010 09:42:29 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2751685 Цитата valdemar_ru @ 13.11.10, 08:17

Если в БД строка 0.20 в MSHFlexGrid отображается как .20

Если в БД действительно СТРОКА - значит, в свойствах флекса формат поля чисельный...]]> Akina Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2751596 Sat, 13 Nov 2010 08:17:02 +0000 MSHFlexGrid и Mysql https://forum.sources.ru/index.php?showtopic=318322&view=findpost&p=2751596 Если в БД строка 0.20 в MSHFlexGrid отображается как .20]]> valdemar_ru Visual Basic: Общие вопросы