ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Покажу вам одно чудо. Смотрите и наслаждайтесь
25 сообщений из 34, страница 1 из 2
  1  все
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109717
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
YouTube Video
YouTube Video
...
Рейтинг: 0 / 0
21.11.2015, 15:59
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109718
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей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:08
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109731
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ха, удивил.
видел такое много раз с ADO именно и только под отладкой.
...
Рейтинг: 0 / 0
21.11.2015, 16:42
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109733
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Ого русифицированный VB, первый раз такой вижу!
...
Рейтинг: 0 / 0
21.11.2015, 16:47
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109735
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
EoltОго русифицированный VB, первый раз такой вижу!видел я такое чудо у кого-то на скриншоте. Там все ноги переломаешь, типа "Query" переведено как "Вопрос"
...
Рейтинг: 0 / 0
21.11.2015, 16:49
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109741
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Андрей159TextKeyWords = NULL а .movefirst не помогает?
Странно, что NULL. Вверху где-то явно есть строка On Error Resume next. Может её убрать и посмотреть, что за ошибка будет выдана?
...
Рейтинг: 0 / 0
21.11.2015, 17:27
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109742
Eolt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Eolt
Участник
Shocker.ProEoltОго русифицированный VB, первый раз такой вижу!видел я такое чудо у кого-то на скриншоте. Там все ноги переломаешь, типа "Query" переведено как "Вопрос"

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

А что за СУБД?
...
Рейтинг: 0 / 0
21.11.2015, 22:21
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109873
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Вообще, хотелось бы потрогать руками прикол. Посмотреть Fields.Count до и после, обратиться к полям по индексу Rec(0), Rec(1)... и посмотреть имена Fields(0).Name и т.п., локализовать, в общем
...
Рейтинг: 0 / 0
21.11.2015, 22:23
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109905
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей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:47
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109906
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Андрей159База данных Microsoft Access (MDB)тогда можно выцепить маленький кусок для теста вместе с базой, скинь, если не лень.
...
Рейтинг: 0 / 0
21.11.2015, 22:48
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109916
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей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:01
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109920
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
а если с курсором adUseClient?
...
Рейтинг: 0 / 0
21.11.2015, 23:11
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109922
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
YouTube Video
YouTube Video
...
Рейтинг: 0 / 0
21.11.2015, 23:15
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109924
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Shocker.Proа если с курсором adUseClient?
Чесно не пробовал. Попробую
...
Рейтинг: 0 / 0
21.11.2015, 23:16
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109929
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
автора если с курсором adUseClient?
Тоже самое. Та ладно, видимо где-то условие забыли, как врачи иногда инструменты оставляют в теле после операции. Бывает.
...
Рейтинг: 0 / 0
21.11.2015, 23:27
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109931
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А какой тип поля у keywords? Отличается ли от title?
...
Рейтинг: 0 / 0
21.11.2015, 23:37
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109933
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
ну ты сказанул про русский!
у нас русские-то порой хуже говорят по-русски, а уж как пишут! А ты даже запятые в тексте ставишь )))
...
Рейтинг: 0 / 0
21.11.2015, 23:40
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109943
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Shocker.Pro А какой тип поля у keywords? Отличается ли от title?
Отличается, но от short_story не отличается, а short_story работает и все до остальные до единого также работают безотказно.
...
Рейтинг: 0 / 0
21.11.2015, 23:50
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109944
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Это MySQL на сервере хостинга. Я напрямую связываюсь.
...
Рейтинг: 0 / 0
21.11.2015, 23:52
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109946
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А проверять другие записи, кроме Олеся, пробовал?
А (если есть возможность) переименовать поле, изменить порядок следования полей, пересоздать таблицу на сервере?
...
Рейтинг: 0 / 0
21.11.2015, 23:58
| Ответить | Цитировать | Написать  
25 сообщений из 34, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Покажу вам одно чудо. Смотрите и наслаждайтесь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39109742&tid=2155717]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 72ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 313ms
total:  474ms
созд. / загр.: 474ms
x
x
Закрыть


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