ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Покажу вам одно чудо. Смотрите и наслаждайтесь
34 сообщений из 34, показаны все 2 страниц
  все  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #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
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39109961
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Не пробовал)) Сайт рабочий просто. Другие записи пробовал (все также)
...
Рейтинг: 0 / 0
22.11.2015, 00:42
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39113359
AlexMaa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexMaa
Гость
потому что надо делать по все нормальному

Set Rec = opensql ...

With rec
.MoveFirst
do while Not .EOF

if Not(IsNull(.Fields("keywords").Value)) then s= .Fields("keywords").Value

.MoveNext
Loop
End With
...
Рейтинг: 0 / 0
25.11.2015, 16:47
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39113364
AlexMaa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexMaa
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Set Rec = opensql ...
With rec
    .MoveFirst
      Do While Not .EOF
           if Not(IsNull(.Fields("keywords").Value)) then s= .Fields("keywords").Value
    .MoveNext
    Loop
End With
...
Рейтинг: 0 / 0
25.11.2015, 16:50
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39113365
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
keyword - тип text

его как BLOB видимо читать надо
...
Рейтинг: 0 / 0
25.11.2015, 16:50
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39113662
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Я так понял вы в приведений не верите... Это фантом. Пасхальное яйцо или что там еще. Такого не должно быть и не может быть, но оно есть (каряво написали код или другая внешняя причина) и я не просто поделился мыслями, а показал вам видео. Пользуюсь такой базой уже не первый год. Пробовал по разному и "правильно" писать и укороченный вариант. Может у меня в компе молварь завелся и он голоден на "keywords". Короче зафиксировал факт для истории.
...
Рейтинг: 0 / 0
26.11.2015, 01:08
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39113664
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
AlexMaa
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Set Rec = opensql ...
With rec
    .MoveFirst
      Do While Not .EOF
           if Not(IsNull(.Fields("keywords").Value)) then s= .Fields("keywords").Value
    .MoveNext
    Loop
End With



1) .MoveFirst лишний так как лоад с первой записи срабатывает при Set Rec = opensql
2) if Not(IsNull(.Fields("keywords").Value)) then s= .Fields("keywords").Value
так я писал 5 лет назад. потом чуток помудрел, посмотрел на код и сказал Й!!! НЙСтокоКода... и кучу всего переписал сложив лишнее в модули и классы. А эта вся заморочка вкладывается в акуратный и рабочий код s= Rec("keywords") & "" и никаких if не надо. Упрости себе жизнь.
...
Рейтинг: 0 / 0
26.11.2015, 01:13
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39113717
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
есть подозрение, что KEYWORDS зарезервированное слово в MySQL
Работал с MS Access и получал очаровательные результаты иногда :)
Я в своих проектах всегда поля брекетами ограничиваю (думаю в MySQL примерно также)
попробуйте так
Код: vbnet
1.
s= Rec("[keywords]") & ""


и в запросе не помешает также сделать
...
Рейтинг: 0 / 0
26.11.2015, 08:35
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39115368
MrVoid
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrVoid
Участник
Андрей159,

Попробуйте "поиграть" с LockType и CursorType.
...
Рейтинг: 0 / 0
28.11.2015, 15:59
| Ответить | Цитировать | Написать  
Покажу вам одно чудо. Смотрите и наслаждайтесь
    #39115661
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
VB на русском, а программа на украинском :) facepalm =)
...
Рейтинг: 0 / 0
29.11.2015, 15:09
| Ответить | Цитировать | Написать  
34 сообщений из 34, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Покажу вам одно чудо. Смотрите и наслаждайтесь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2155717]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 293ms
total:  419ms
созд. / загр.: 419ms
x
x
Закрыть


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