Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подскажите в чем ошибка? / 13 сообщений из 13, страница 1 из 1
11.06.2012, 02:31
    #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, 09:45
    #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, 15:53
    #37834411
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите в чем ошибка?
Slash232,

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

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


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