ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь в visual basic - mysql
14 сообщений из 14, страница 1 из 1
Нужна помощь в visual basic - mysql
    #36771101
Siompc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Siompc
Гость
Опять к вам обращаюсь умные люди :) Такая ситуация:

Rec = Cnn.Execute("SELECT ID FROM fsbot_users where id=123123"
Do While Not Rec.EOF
If Rec.Fields("ID").Value = 123123 Then
ListBox1.Items.Add(Rec.Fields("ID").Value)
Else
Cnn.Execute("INSERT INTO.......
End if

Нужно проверить ячейку, есть ли в столбце такое значение. Если есть, выводим. А иначе создаем. Не выходит так. Он не создает его. А если есть то не выводит. Что здесь не так?
...
Рейтинг: 0 / 0
02.08.2010, 15:03
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771111
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Если в таблице нет 123123, то ВСЕ последующие приведенные строки НЕ выполнятся.
...
Рейтинг: 0 / 0
02.08.2010, 15:07
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771112
Siompc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Siompc
Гость
Эмм... а как сделать что бы выполнялись? :)
...
Рейтинг: 0 / 0
02.08.2010, 15:08
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771115
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Set Rec = Cnn.Execute("SELECT ID FROM fsbot_users where id=123123")
If Rec.EOF Then
  Cnn.Execute("INSERT INTO.......")
Else
  ListBox1.Items.Add(Rec.Fields("ID").Value)
End if

Если не первый раз пишете - научитесь тогда пользоваться тэгами и давать более внятное название топикам
...
Рейтинг: 0 / 0
02.08.2010, 15:09
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771116
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SiompcЭмм... а как сделать что бы выполнялись? :)
Понимать, для чего вы написали каждую из строк кода, а не тупо копипастить.
...
Рейтинг: 0 / 0
02.08.2010, 15:09
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771119
Siompc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Siompc
Гость
Как вообще проверить значение? В sql говорит что если ничего нет, то он что то возвращает... А проверить не могу. Мне бы вот так:

Если таких ячеек нет, создать.

А вот проверить что их нет не могу :)
...
Рейтинг: 0 / 0
02.08.2010, 15:10
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771122
Siompc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Siompc
Гость
Оу... Так функция EOF как раз и проверяет есть ли она или нет?
...
Рейтинг: 0 / 0
02.08.2010, 15:11
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771126
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SiompcОу... Так функция EOF как раз и проверяет есть ли она или нет?
функция EOF показывает, достигнут конец списка записей или нет.
...
Рейтинг: 0 / 0
02.08.2010, 15:12
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771130
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Rec = Cnn.Execute("SELECT ID FROM fsbot_users where id=123123"
Do While Not Rec.EOF
If Rec.Fields("ID").Value =  123123  Then
ListBox1.Items.Add(Rec.Fields("ID").Value)
Else
Cnn.Execute("INSERT INTO.......
End if


логика ваша мне неведома.

вопрос: вам надо проверить наличие в базе записи по некому идентификатору и если такой записи нет, то добавить её в таблицу?
...
Рейтинг: 0 / 0
02.08.2010, 15:14
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771137
Siompc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Siompc
Гость
Да! :) Это мне как раз и надо :) Получилось!!! Спасибо! За помощь и за быстрый ответ :):):)
...
Рейтинг: 0 / 0
02.08.2010, 15:15
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771146
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim ID as Long
ID =  123123 

Set Rec = Cnn.Execute("SELECT Count(*) FROM fsbot_users where id=" & ID)
If Rec( 0 ).Value =  0  Then
  Cnn.Execute("INSERT INTO fsbot_users (ID) VALUES (" & ID & ")")
Else
  ListBox1.Items.Add ID
End if
...
Рейтинг: 0 / 0
02.08.2010, 15:18
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771147
Siompc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Siompc
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
Set Rec = Cnn.Execute("SELECT ID FROM fsbot_users where id=123123")
If Rec.EOF Then
  Cnn.Execute("INSERT INTO.......")
Else
  ListBox1.Items.Add(Rec.Fields("ID").Value)
End if

Вот тут только интересно как работает...

Если все записи проверены добавить... Иначе вывести? :)

П.С я первый раз пишу... точнее второй :)
...
Рейтинг: 0 / 0
02.08.2010, 15:19
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771149
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim ID as Long
ID =  123123 

Set Rec = Cnn.Execute("SELECT Count(*) FROM fsbot_users where id=" & ID)
If Rec( 0 ).Value =  0  Then
  Cnn.Execute "INSERT INTO fsbot_users (ID) VALUES (" & ID & ")"
Else
  ListBox1.Items.Add ID
End if

скобки лишние убрал
...
Рейтинг: 0 / 0
02.08.2010, 15:19
| Ответить | Цитировать | Написать  
Нужна помощь в visual basic - mysql
    #36771152
Siompc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Siompc
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim ID as Long
ID =  123123 

Set Rec = Cnn.Execute("SELECT Count(*) FROM fsbot_users where id=" & ID)
If Rec( 0 ).Value =  0  Then
  Cnn.Execute("INSERT INTO fsbot_users (ID) VALUES (" & ID & ")")
Else
  ListBox1.Items.Add ID
End if

О, вот теперь понял как работает :) Спс
...
Рейтинг: 0 / 0
02.08.2010, 15:20
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь в visual basic - mysql
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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