Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь в visual basic - mysql / 14 сообщений из 14, страница 1 из 1
02.08.2010, 15:03
    #36771101
Siompc
Siompc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Опять к вам обращаюсь умные люди :) Такая ситуация:

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:07
    #36771111
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Если в таблице нет 123123, то ВСЕ последующие приведенные строки НЕ выполнятся.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 15:08
    #36771112
Siompc
Siompc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Эмм... а как сделать что бы выполнялись? :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 15:09
    #36771115
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Код: 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
    #36771116
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
SiompcЭмм... а как сделать что бы выполнялись? :)
Понимать, для чего вы написали каждую из строк кода, а не тупо копипастить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 15:10
    #36771119
Siompc
Siompc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Как вообще проверить значение? В sql говорит что если ничего нет, то он что то возвращает... А проверить не могу. Мне бы вот так:

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

А вот проверить что их нет не могу :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 15:11
    #36771122
Siompc
Siompc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Оу... Так функция EOF как раз и проверяет есть ли она или нет?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 15:12
    #36771126
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
SiompcОу... Так функция EOF как раз и проверяет есть ли она или нет?
функция EOF показывает, достигнут конец списка записей или нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 15:14
    #36771130
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Код: 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:15
    #36771137
Siompc
Siompc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Да! :) Это мне как раз и надо :) Получилось!!! Спасибо! За помощь и за быстрый ответ :):):)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2010, 15:18
    #36771146
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Код: 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
    #36771147
Siompc
Siompc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Код: 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
    #36771149
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Код: 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
    #36771152
Siompc
Siompc
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Нужна помощь в visual basic - mysql
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Нужна помощь в visual basic - mysql / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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