powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / String длиннее 255 символов в VBA
25 сообщений из 52, страница 1 из 3
String длиннее 255 символов в VBA
    #34327265
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не получается записать в переменную, объявленную как string, текст длиннее 255 симоволов. При записи в эту переменную аксесс тупо отрезает все "лишние" символы. Можно ли как-то обойти эту проблему? Или у меня просто кривые руки?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327280
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если эта "переменная" - текстовое поле формы связанное с полем текстого типа источника данных таблица, то руки прямые :-)
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327289
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RestavraciyaЕсли эта "переменная" - текстовое поле формы связанное с полем текстого типа источника данных таблица, то руки прямые :-)

Нет, все идет только из кода:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim ww As String
    Dim intNum As Integer
    Dim strQuery As String( 1024 )



    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null"

Когда добавляю ещё проверку одного параметра:
Код: plaintext
        If Forms!ChoosePeriod.CheckMy = - 1  Then strQuery = strQuery & " and Manager=User_id()"

последние скобки у меня уже не помещаются
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327299
LeonM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Проверьте:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub sss()
    Dim i, s
    For i =  1  To  10000 
        s = s & "s"
    Next
    i = Len(s)
    Stop
End Sub
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327322
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
скобки для чего ?
может надо * ?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327328
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
LeonMПроверьте:


Проверил, работает. В чем секрет не понял. Попробовал сделать

Код: plaintext
Dim strSQL 

у меня количество символов увеличилось до 256 ;) но пропала закрывающая кавычка О_О
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327329
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Restavraciyaскобки для чего ?
может надо * ?

Скобки - показатель того, что это SQL функция.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327353
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnya Restavraciyaскобки для чего ?
может надо * ?

Скобки - показатель того, что это SQL функция.С этого места поподробнее
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327371
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Restavraciya sunnyaСкобки - показатель того, что это SQL функция.С этого места поподробнее
У меня есть формочка, в которой я генерирую SQL запрос на основании контролов на форме: куча всяких переключателей, выпадающий список, чекбокс.

После того как пользователь выбрал все, что ей надо, она нажимает кнопочку, по которой формируется SQl запрос, отправляемый собственно говоря на SQl сервак для последующей обработки. Дальше у меня все в шоколаде. Проблема в ВБА. Он просто не дает мне запихать столько символов в переменную сколько мне хочется
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327448
COP001
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я тоже с этим сталкивался, как обойти не нашел, поэтому собирал строку не в переменную, а прямо в DoCmd.RunSQL("SELECT ...")
Так срабатывает нормально.
Хотя ситуёвина непонятная и неприятная.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327565
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sunnya Restavraciya sunnyaСкобки - показатель того, что это SQL функция.С этого места поподробнее
У меня есть формочка, в которой я генерирую SQL запрос на основании контролов на форме: куча всяких переключателей, выпадающий список, чекбокс.

После того как пользователь выбрал все, что ей надо, она нажимает кнопочку, по которой формируется SQl запрос, отправляемый собственно говоря на SQl сервак для последующей обработки. Дальше у меня все в шоколаде. Проблема в ВБА. Он просто не дает мне запихать столько символов в переменную сколько мне хочетсяИзвиняюсь за свою ограниченность, но я так и не понял - зачем стоят скобки (тем более что у меня пример ругается на них)
Ну и присваивайте переменной интерпритацию ваших чекбоксов разбавляя их ЭНДами и ОРами
Я тоже динамически набираю строку - никогда не упирался в максимум длины (256 символов точно переваливало)
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327626
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RestavraciyaИзвиняюсь за свою ограниченность, но я так и не понял - зачем стоят скобки (тем более что у меня пример ругается на них)
Ну и присваивайте переменной интерпритацию ваших чекбоксов разбавляя их ЭНДами и ОРами
Я тоже динамически набираю строку - никогда не упирался в максимум длины (256 символов точно переваливало)

В MsSQL есть такая функция встроенная user_id(), без скобок она не работает. Пустые скобки в данном случае обозначают текущего пользователя, следственно функция возвращает айдишник текущего пользователя и его уже можно сравнить с колонкой в таблице.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327633
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
COP001я тоже с этим сталкивался, как обойти не нашел, поэтому собирал строку не в переменную, а прямо в DoCmd.RunSQL("SELECT ...")
Так срабатывает нормально.
Хотя ситуёвина непонятная и неприятная.

Спасибо, навел на очень хорошую идею:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE (year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null)"
        
        If Forms!ChoosePeriod.CheckMy = - 1  Then strQ1 = " and Manager=User_id()"
        
    Forms!WM.RecordSource = strQuery & strQ1

Вот это уже работает)))
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327650
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ОБЪЯСНИТЕ ТУПОМУ!!!! ПОЧЕМУ ЭТО РАБОТАЕТ, А В МОЕМ КОДЕ НЕ РАБОТАЕТ, А ОБРЕЗАЕТ?!!!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub sss()
    Dim i, s
    For i =  1  To  10000 
        s = s & "s"
    Next
    i = Len(s)
    Stop
End Sub
[/quot]

а то я уже капсом как блондинка начал орать(((
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327665
не догоняю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sunnya
Нет, все идет только из кода:

Код: plaintext
1.
2.
3.
4.
    .......
    Dim strQuery As String( 1024 )

...................

последние скобки у меня уже не помещаются
у меня Dim strQuery As String(1024) даже не компилируется. Если убрать, то все помещается в строчную переменную нормально. Или я чего-то не догоняю.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327675
bgn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а сказали же что не () а *
нужно

F1Существует два типа строковых значений:

· Строки переменной длины, которые могут содержать до приблизительно 2 миллиардов (2^31) символов.
· Строки постоянной длины, которые могут содержать от 1 до приблизительно 64K (2^16) символов.

Примечание. Не допускается использование в модулях класса строк постоянной длины, описанных с ключевым словом Public.

Кодами для символов, образующих значения типа String, служат целые числа в диапазоне от 0 до 255. Первые 128 символов (0–127) набора символов, соответствуют буквам и символам стандартной американской клавиатуры. Эти первые 128 символов совпадают с набором символов ASCII. Следующие 128 символов (128–255) представляют буквы национальных алфавитов, буквы с надстрочными символами, символы денежной единицы и дроби. Символом описания типа для типа String служит символ доллара ($).

Dim s*10 'строка из 10 символоФ
Dim s as String 'строка переменной длины
Dim s 'переменная типа Variant


F1Тип данных Variant является типом, к которому относятся все переменные, не описанные явно с другим типом данных (с помощью инструкций Dim, Private, Public или Static). Для типа Variant не определен символ описания типа.
Variant является особым типом данных. Переменные этого типа могут содержать любые данные, за исключением строк (тип String) фиксированной длины и определяемых пользователем типов. Переменная типа Variant может также содержать специальные значения Empty, Error, Nothing и Null. Указать характер подтипов типа Variant позволяют функции VarType или TypeName.

Допустимыми числовыми данными являются любые целые или действительные числа в диапазоне от -1,797693134862315E308 до -4,94066E-324 для отрицательных значений и от 4,94066E-324 до 1,797693134862315E308 для положительных значений. В общем случае, числовые данные типа Variant сохраняют свой исходный тип данных внутри типа Variant. Например, если присвоить переменной типа Variant значение типа Integer, то в последующих операциях Variant трактуется как Integer. Однако, если арифметическая операция, выполненная над переменной типа Variant, содержащей значение типа Byte, Integer, Long или Single, приводит к тому, что результат выходит за границы диапазона допустимых значений исходного типа, то результат преобразуется к следующему более широкому типу внутри типа Variant. Значение типа Byte преобразуется к типу Integer, Integer преобразуется к типу Long, а значения типа Long и Single преобразуются к типу Double. Ошибка возникает, если за пределы допустимого диапазона значений выходят переменные типа Variant, содержащие значения типа Currency, Decimal или Double.

Пользователь имеет возможность использовать тип Variant вместо любого типа данных, чтобы обеспечить большую гибкость при обработке данных. Если содержимым переменной типа Variant являются цифры, то в разном контексте они могут рассматриваться либо как строковое представление числа, либо как число. Например:

Dim MyVar As Variant
MyVar = 98052

В этом примере переменная MyVar содержит представление числового значения 98052. Арифметические операторы можно применять к значениям типа Variant, содержащим как числа, так и строковые значения, которые могут быть интерпретированы как числа. Если применить оператор + для сложения переменной MyVar с другой переменной типа Variant, содержащей число, или с переменной числового типа, то результатом будет арифметическая сумма.

Значение Empty определяет переменную типа Variant, которая не была инициализирована (не получила начальное значение). Переменная типа Variant, содержащая значение Empty, рассматривается как 0 в контексте математических операций и как пустая строка ("") в контексте операций со строковыми значениями.

Не следует путать значения Empty и Null. Null указывает, что переменная типа Variant имеет пустое значение в результате конкретных операций.

Для типа Variant значение Error является специальным значением, которое используется для указания возникновения условия ошибки в процедуре. Однако в отличие от других типов ошибок при этом не происходит нормальной обработки ошибок на уровне приложения. Это позволяет пользователю или приложению выбрать несколько альтернативных действий на основании значения ошибки. Значения Error создаются путем преобразования действительных чисел в значения ошибки с помощью функции CVErr.
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327676
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ничего не понял из вашего объяснения.
При чем здесь user_id() когда речь идет о строковой переменной которая нужна только для того чтобы передать свое значение другой строковой (в данном случае свойству RecordSource)
Повторю вопрос - зачем нужны скобки (1024) и что такое 1024 ?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327679
bgn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
там опечатка нужно Dim s As String * 10, а не Dim s*10
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327689
не догоняю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Присоединяюсь к мемберу Restavraciya.
Моя проверка
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub TestString()
    Dim ww As String
    Dim intNum As Integer
    Dim strQuery As String
   


    strQuery = "SELECT *,dbo.GetPgs4Daily(FileID) AS Pages,dbo.fGT(FileID) AS Tr,dbo.fGE(FileID)as Ed " & _
        "FROM tTranslations " & _
        "WHERE year(datereceived)=year(getdate())and datepart(" & ww & ",DateDelivery)=" & intNum & " and datepart(" & ww & ",DateReceived)<=" & _
        intNum & " or datedelivery is null"
    strQuery = strQuery + strQuery
    Debug.Print strQuery
    
    MsgBox Len(strQuery)
End Sub
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327705
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
RestavraciyaНичего не понял из вашего объяснения.
При чем здесь user_id() когда речь идет о строковой переменной которая нужна только для того чтобы передать свое значение другой строковой (в данном случае свойству RecordSource)
Повторю вопрос - зачем нужны скобки (1024) и что такое 1024 ?

Прошу прощения, я неправильно понял вопрос.

(1024) - это случайно закравшаяся ошибка. одна из попыток объявить эту переменную, навроде того что рекомендует bgn bgnDim s*10 'строка из 10 символоФ.

Правда это у меня тоже не компилируется - выделяет звездочку и говорит "Expected: end of statement"(((
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327710
bgn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bgnтам опечатка нужно Dim s As String * 10, а не Dim s*10
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327719
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
bgnтам опечатка нужно Dim s As String * 10, а не Dim s*10
Написал
Код: plaintext
    Dim strQuery As String *  1024 
Переменная все равно 255 знаков
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327753
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
(Бредовая идея)
Может быть у вас тип STRING гдето глобально переопределен ?
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327758
sunnya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Restavraciya(Бредовая идея)
Может быть у вас тип STRING гдето глобально переопределен ?

не, у меня бы мозгов на это не хватило))) я даже не знаю, что это такое
...
Рейтинг: 0 / 0
String длиннее 255 символов в VBA
    #34327816
Фотография natalitvinenko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня такой глюк был. Собирался запрос по частям, анализировались контролы...
Преодолеваю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim Otdel As String, cly As String, pre As String
    Dim gorod As String, mar As String, gonomer As String
    Dim cer As String, kyz As String, Inspektor As String, nomerdvi As String
    .......

    If Отделение =  1  Or ФлажокF Then Otdel = "" Else Otdel = "[Авто].[Отделение]=" & Me![Отделение] & " and "
    If Служба =  1  Or ФлажокF Then cly = "" Else cly = "[Авто].[Служба]=" & Me![Служба] & " and "
    If Пред =  1  Or ФлажокF Then pre = "" Else pre = "[Авто].[Предприятие]=" & Me![Пред] & " and "
    'If ПолеСоСписком35 = 1 Then gorod = "" Else gorod = "[Город]=" & Me![ПолеСоСписком35]
    If Город =  1  Or ФлажокF Then gorod = "" Else gorod = "[Авто].[Город]=" & Me![Город] & " and "
    
    stLinkCriteria = Otdel & cly & pre & gorod & mar & Goz1 & gonomer & cer
    stLinkCriteria = stLinkCriteria & kyz & Inspektor & nomerdvi & nomershi
    stLinkCriteria = stLinkCriteria & nomerkyz & gorodpri & tex & cpic & naz & Oblast1 & Top1 & GAI1
    stLinkCriteria = stLinkCriteria & tip & NewTip & yearspi & IzInDoroga1 & mesta & Yearr & yearEnter & yearCorrect & beg & pri1 & NVSB1 & " 1=1 "
    

Так все работает. Почему - не знаю. A97 Win 98
...
Рейтинг: 0 / 0
25 сообщений из 52, страница 1 из 3
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / String длиннее 255 символов в VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]