powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как преобразовать к следующему виду
7 сообщений из 7, страница 1 из 1
Как преобразовать к следующему виду
    #34040614
DenDY
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мне необходимо получить переменную такого вида
k=' переменная '
Переменная берется из текстового поля
Проблема в том, что при такой конструкции
k=" ' " & textbox3.value & " ' "
принимается знаечние строковой переменной и добавляются кавычки, но они мне не нужны...в результате переменная k принимает значение
k="'"2600"'"
...
Рейтинг: 0 / 0
Как преобразовать к следующему виду
    #34040633
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можете свой документ выложить?
...
Рейтинг: 0 / 0
Как преобразовать к следующему виду
    #34040672
DenDY
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Какой документ? Вы о чем? я говорю как получить переменную вот такого вида
'(апостроф) (Число из текстового поля) ' (Апостроф)
Какие могут быть документы???
...
Рейтинг: 0 / 0
Как преобразовать к следующему виду
    #34040863
Фотография sebastian_opereiro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
DenDYМне необходимо получить переменную такого вида
k=' переменная '
Переменная берется из текстового поля
Проблема в том, что при такой конструкции
k=" ' " & textbox3.value & " ' "
принимается знаечние строковой переменной и добавляются кавычки, но они мне не нужны...в результате переменная k принимает значение
k="'"2600"'"

Объясни для чего тебе это? Добавляя апостроф ты уже получаешь текстовое значение. И почему у тебя эта конструкция не работает? У меня аналогичная нормально функционирует:
Код: plaintext
k = "'" & ActiveCell.Value & "'"
в активной ячейке у меня стоит формат "Текст"
...
Рейтинг: 0 / 0
Как преобразовать к следующему виду
    #34040882
DenDY
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
.CommandText = Array( _
"SELECT CallDetailRecord.originalCalledPartyNumber AS 'Кто перевел', CallDetailRecord.callingPartyNumber AS 'Кто вызывал', DATEADD(second,dateTimeOrigination,'19700101') AS 'vrem', dateTimeDisconnect-d" _
, _
"ateTimeConnect AS 'Длительность разговора'" & Chr(13) & "" & Chr(10) & "FROM CDR.dbo.CallDetailRecord CallDetailRecord" & Chr(13) & "" & Chr(10) & "WHERE (CallDetailRecord.dateTimeConnect<>0) AND (CallDetailRecord.finalCalledPartyNumber=' 2618 ')")
Вместо 2618 должен стоять параметр, эито скл запрос. А как получить этот апостроф,... вот для этого и надо
...
Рейтинг: 0 / 0
Как преобразовать к следующему виду
    #34041007
Фотография orunbek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
у меня тоже нормально работает
может через создашь дополнительную функцию, которая будет преобразовывать строки, что-то подобное
Код: plaintext
1.
2.
3.
4.
5.
Function AddAp(strString) As String
     Dim strResult$
     strResult=Replace(strString,"""","")
     strResult="'" & strResult & "'"
     AddAp=strResult
End Function
...
Рейтинг: 0 / 0
Как преобразовать к следующему виду
    #34041042
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может так?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
.CommandText = Array( _
        "SELECT CallDetailRecord.originalCalledPartyNumber AS 'Кто перевел', " & _
            "CallDetailRecord.callingPartyNumber AS 'Кто вызывал', " & _
            "DATEADD(second,dateTimeOrigination,'19700101') AS 'vrem', " & _
            "dateTimeDisconnect-dateTimeConnect AS 'Длительность разговора'" & Chr( 13 ) & Chr( 10 ) & _
        "FROM CDR.dbo.CallDetailRecord CallDetailRecord" & Chr( 13 ) & Chr( 10 )  & _
        "WHERE (CallDetailRecord.dateTimeConnect<>0) AND (CallDetailRecord.finalCalledPartyNumber='" & textbox3.value & "')")
В редакторе все черным шрифтом (т.е. все ок), а здесь почему-то красным...
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как преобразовать к следующему виду
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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