ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подскажите в чем ошибка?
13 сообщений из 13, страница 1 из 1
Подскажите в чем ошибка?
    #37834021
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Хотел найти строку по совпадению Login_name и изменить в ней колонку с названием Online. Подскажите в чем ошибка?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Dim cn2 As Object
    Set cn2 = CreateObject("ADODB.Connection")
    Dim rsset2 As Object
    Set rsset2 = CreateObject("ADODB.Recordset")
    cn2.Open "Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=Admin;Network Address=" & Launcher.server_ip & ";Network Library=DBMSSOCN;User ID=abc;Password=12345"
    rsset2.CursorType = adOpenKeyset
    rsset2.LockType = adLockOptimistic
    rsset2.Source = "Login"
    rsset2.ActiveConnection = cn2
    rsset2.Open
    Sql = "Select * from Login" & " where Login_name = '" & loginname & "'"
    Set rsset2 = cn2.Execute(Sql)
    'rsset2.AddNew
    rsset2.Fields("Online") = 1
    rsset2.Update
    'rsset2.Close
    
    cn2.Close
    Set rsset2 = Nothing
    Set cn2 = Nothing
...
Рейтинг: 0 / 0
11.06.2012, 02:31
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834091
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Dim cn2 As Object

    Set cn2 = CreateObject("ADODB.Connection")
    Dim rsset2 As Object
    Set rsset2 = CreateObject("ADODB.Recordset")
    
    cn2.Open "Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=Admin;Network Address=" & Launcher.server_ip & ";Network   Library=DBMSSOCN;User ID=abc;Password=12345"
    
    rsset2.CursorLocation = adUseClient
    Sql = "Select * from Login" & " where Login_name = '" & loginname & "'"
    rsset2.Open Sql, cn2, adOpenDynamic, adLockOptimistic
    
    rsset2.Fields("Online") = 1
    rsset2.Update
    
    cn2.Close
    Set rsset2 = Nothing
    Set cn2 = Nothing
...
Рейтинг: 0 / 0
11.06.2012, 09:45
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834411
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Slash232,

Почему такое упорное нежелание пользоваться строгими типами объектов и не декларировать Recordset как ADODB.Recordset? Чтобы каждый раз лезть в справку, когда требуется узнать, какие еще есть свойства у Recordset?
...
Рейтинг: 0 / 0
11.06.2012, 15:53
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834629
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
потому что возникают проблемы при пользовании моим приложение на компах с версией помладше. У меня вин 7
...
Рейтинг: 0 / 0
11.06.2012, 19:42
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834632
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Slash232потому что возникают проблемы при пользовании моим приложение на компах с версией помладше. У меня вин 7

Значит ты берешь не те версии библиотек.
...
Рейтинг: 0 / 0
11.06.2012, 19:44
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834670
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Вообщем если тот код что ты написал ставить то на компе с вин хр выскакивает ошибка 430.
Все остальные участки кодов с примерно таким же кодом (получение, добавление, удаление записей) на компе с вин хр проходят нормально. Подскажи что можно изменить чтобы и твой код работал на нем?
...
Рейтинг: 0 / 0
11.06.2012, 20:24
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834671
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Извиняюсь не в твоем коде возникает ошибка...
...
Рейтинг: 0 / 0
11.06.2012, 20:26
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834678
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Все таки в твоем((
...
Рейтинг: 0 / 0
11.06.2012, 20:37
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834679
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
Обычно 430 ошибка возникает когда используеш строчки типо New в объявлении. Тут вроде нету, подскажите в чем может быть проблема?
...
Рейтинг: 0 / 0
11.06.2012, 20:38
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834684
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
Slash232,
http://www.vbforums.com/showthread.php?t=650240]проблема с ADODB.Connection на Win 7 SP1
...
Рейтинг: 0 / 0
11.06.2012, 20:42
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834690
Slash232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slash232
Участник
А какие варианты есть еще? Если я не хочу удалять sp1?
Обойти в коде этот момент както можно?
...
Рейтинг: 0 / 0
11.06.2012, 20:52
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834701
kiv-1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiv-1980
Участник
Метод указанный автором, у меня ни на одной из ОС (начиная от XP SP3 и заканчивая win7 x64 sp1), не вызывает ни одной ошибки.
Мб автору просто дописать обычный сиквел запрос на апдейт строки онлайн?
...
Рейтинг: 0 / 0
11.06.2012, 21:02
| Ответить | Цитировать | Написать  
Подскажите в чем ошибка?
    #37834706
kiv-1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiv-1980
Участник
Код: plsql
1.
 Sql = "update Login set online=1 where Login_name = '" & loginname & "'"
...
Рейтинг: 0 / 0
11.06.2012, 21:05
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подскажите в чем ошибка?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37834701&tid=2157693]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 168ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 232ms
total:  499ms
созд. / загр.: 499ms
x
x
Закрыть


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