Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Покажу вам одно чудо. Смотрите и наслаждайтесь / 25 сообщений из 34, страница 1 из 2
21.11.2015, 15:59
    #39109717
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
YouTube Video
...
Рейтинг: 0 / 0
21.11.2015, 16:08
    #39109718
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Читаем по быстрому )))) или "Кто не успел тот опоздал"

Код: vbnet
1.
2.
3.
4.
  Set Rec = CmdCommand.Execute()
  If Not Rec.EOF Then
    TextKeyWords = Rec("keywords") & ""
STOP




TextKeyWords = "Значению из таблицы"
Rec("keywords") = NULL

Если сделать так:
Код: vbnet
1.
2.
3.
4.
5.
  If Not Rec.EOF Then
    s = Rec("full_story") & ""
    Text4 = Rec("title") & "": Text4 = Replace(Text4, "\""", Chr(34)): Text4 = Replace(Text4, "\'", "'")
    TextKeyWords = Rec("keywords") & ""
STOP



TextKeyWords = NULL
Rec("keywords") = NULL
...
Рейтинг: 0 / 0
21.11.2015, 16:42
    #39109731
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Ха, удивил.
видел такое много раз с ADO именно и только под отладкой.
...
Рейтинг: 0 / 0
21.11.2015, 16:47
    #39109733
Eolt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Ого русифицированный VB, первый раз такой вижу!
...
Рейтинг: 0 / 0
21.11.2015, 16:49
    #39109735
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
EoltОго русифицированный VB, первый раз такой вижу!видел я такое чудо у кого-то на скриншоте. Там все ноги переломаешь, типа "Query" переведено как "Вопрос"
...
Рейтинг: 0 / 0
21.11.2015, 17:27
    #39109741
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Андрей159TextKeyWords = NULL а .movefirst не помогает?
Странно, что NULL. Вверху где-то явно есть строка On Error Resume next. Может её убрать и посмотреть, что за ошибка будет выдана?
...
Рейтинг: 0 / 0
21.11.2015, 17:28
    #39109742
Eolt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Shocker.ProEoltОго русифицированный VB, первый раз такой вижу!видел я такое чудо у кого-то на скриншоте. Там все ноги переломаешь, типа "Query" переведено как "Вопрос"

У меня на одном компе стоит русифицированная VS2010. Так вот она не может собирать некоторые проекты написанные в англоязычной студии, просто валится при сборке. С тех пор я русифицированные VS избегаю.
...
Рейтинг: 0 / 0
21.11.2015, 17:29
    #39109743
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Упс, видео не глянул. Полагаю, можно забить на проблему, если код работает и значения верные возвращаются. В окне Immadiate вполне может тупить редактор. Лучше использовать Locals.
...
Рейтинг: 0 / 0
21.11.2015, 17:37
    #39109744
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
В режиме отладки на паузе ADO, по все видимости, считает, что вызывающее приложение повисло, и обрывает соединение
...
Рейтинг: 0 / 0
21.11.2015, 22:04
    #39109858
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Не обрывает соединение , так как бы вызывало ошибку при обращении к значению
Видимо в модуле класса ADODB срабатывает функция при считыванию и почему-то по имени таблицы с названием "keywords"
Так как я показываю, что читаю Rec("title") много раз и показывает значение, а
после первого считывания любого значения списка Rec - Rec(" keywords ") обнуляется на Null.
То-есть первый раз с него можно считать, а все следующии разы там = Null.
...
Рейтинг: 0 / 0
21.11.2015, 22:07
    #39109861
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
и отладка тут не причем. до этого не работало = Null. Узнал что к чему, подадреналинился космческим парадоксом, поменял строки местами, поставив считывания TextKeyWords = Rec("keywords") & "" первым и Null значения исчезли, читаются реальные данные
...
Рейтинг: 0 / 0
21.11.2015, 22:21
    #39109870
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Rec("keywords") & "" это конкатенация - тоже результат "подадреналинивания космческим парадоксом"? Что мешает правильно использовать Rec("keywords").Value

А что за СУБД?
...
Рейтинг: 0 / 0
21.11.2015, 22:23
    #39109873
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Вообще, хотелось бы потрогать руками прикол. Посмотреть Fields.Count до и после, обратиться к полям по индексу Rec(0), Rec(1)... и посмотреть имена Fields(0).Name и т.п., локализовать, в общем
...
Рейтинг: 0 / 0
21.11.2015, 22:47
    #39109905
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
авторRec("keywords") & ""
Про Run-Time Error 94 слышал ?

Что будет если
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Command1_Click()
  Dim S As String
  n = Null
  S = n
End Sub


?

И сравни с космческим)) решением Null & ""
Код: vbnet
1.
2.
3.
4.
5.
6.
Private Sub Command1_Click()
  Dim S As String
  n = Null
  S = n & ""
  MsgBox "Hello Братан"
End Sub



Да это тема старая. На этом форуме помогли (во избежания дополнительных функций)

авторА что за СУБД?
База данных Microsoft Access (MDB)

авторВообще, хотелось бы потрогать руками прикол. Посмотреть Fields.Count до и после, обратиться к полям по индексу Rec(0), Rec(1)... и посмотреть имена Fields(0).Name и т.п., локализовать, в общем
не знаю стоил ли замарчиваться с нюансом. если нужно сниму тесты. так как проэкт большой, с корнями в разные сторонние dll, с разными путями и сохранением в реестр (короче для себя помощь сделал по сайту, синхронизация, поиск дубликатов, распознавания текста с учебой, кликер и все такое). Попробовать руками не получится
...
Рейтинг: 0 / 0
21.11.2015, 22:48
    #39109906
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Андрей159База данных Microsoft Access (MDB)тогда можно выцепить маленький кусок для теста вместе с базой, скинь, если не лень.
...
Рейтинг: 0 / 0
21.11.2015, 23:01
    #39109916
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
сори, поспешил... эта база данных MySQL
Код: vbnet
1.
2.
  Set Cnn = New adodb.Connection: Set Rec = New adodb.Recordset
  Cnn.open "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=" & PBServerSQL & ";PORT=" & PBPortServerSQL & ";DATABASE=" & PBNameBDSQL & ";UID=" & PBUserSQL & ";PWD=" & PBPasswSQL & ";OPTION=3;": Rec.CursorLocation = adUseClient: Rec.CursorType = adOpenStatic: Rec.LockType = adLockOptimistic: CmdCommand.ActiveConnection = Cnn: CmdCommand.CommandType = adCmdText


сейчас выложу видео тестов
...
Рейтинг: 0 / 0
21.11.2015, 23:11
    #39109920
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
а если с курсором adUseClient?
...
Рейтинг: 0 / 0
21.11.2015, 23:15
    #39109922
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
YouTube Video
...
Рейтинг: 0 / 0
21.11.2015, 23:16
    #39109924
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Shocker.Proа если с курсором adUseClient?
Чесно не пробовал. Попробую
...
Рейтинг: 0 / 0
21.11.2015, 23:27
    #39109929
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
автора если с курсором adUseClient?
Тоже самое. Та ладно, видимо где-то условие забыли, как врачи иногда инструменты оставляют в теле после операции. Бывает.
...
Рейтинг: 0 / 0
21.11.2015, 23:37
    #39109931
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
А какой тип поля у keywords? Отличается ли от title?
...
Рейтинг: 0 / 0
21.11.2015, 23:40
    #39109933
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
ну ты сказанул про русский!
у нас русские-то порой хуже говорят по-русски, а уж как пишут! А ты даже запятые в тексте ставишь )))
...
Рейтинг: 0 / 0
21.11.2015, 23:50
    #39109943
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Shocker.Pro А какой тип поля у keywords? Отличается ли от title?
Отличается, но от short_story не отличается, а short_story работает и все до остальные до единого также работают безотказно.
...
Рейтинг: 0 / 0
21.11.2015, 23:52
    #39109944
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
Это MySQL на сервере хостинга. Я напрямую связываюсь.
...
Рейтинг: 0 / 0
21.11.2015, 23:58
    #39109946
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Покажу вам одно чудо. Смотрите и наслаждайтесь
А проверять другие записи, кроме Олеся, пробовал?
А (если есть возможность) переименовать поле, изменить порядок следования полей, пересоздать таблицу на сервере?
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Покажу вам одно чудо. Смотрите и наслаждайтесь / 25 сообщений из 34, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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