| Вопрос: SQL запрос из VB6 на SQL-Server 2008 | Добавлено: 24.01.11 10:04 |
Автор вопроса:  Aanklager
|
|
Ситуация:
Установлен SQL-Server 2008. необходимо сделать мини-ехе на VB6, кинуть её в автозапуск, чтоб она при запуске выполняла SQL-запрос: "update [ACCOUNTS] set STATE = 2 where card = 10" Создал проект, в нём настроил "DataEnvironment", проверку подключения выполнил (успешно). А вот как из Form_Load() отправить запрос - не знаю. сто лет не занимался программированием, помогите кому не лень. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Aanklager Вопросов: 1 Ответов: 2 |
Профиль | | #1 | Добавлено: 25.01.11 03:17 |
| Может есть какой способ попроще, чем VB6...? | ||
|
Номер ответа: 2 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #2 | Добавлено: 25.01.11 09:31 |
| VB .NET | ||
|
Номер ответа: 3 Автор ответа: SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244 |
Профиль | | #3 | Добавлено: 18.02.11 17:46 |
|
Та ну нафиг - это ему NET учить....
Dim cnn As New ADODB.Connection, cmd As New ADODB.Command, str$ str = "Provider=SQLOLEDB.1;Initial Catalog=" & Trim(Db) & "  ata Source=" & Trim(srv) & ";Trusted_Connection=False"
' где Db и srv твои СЕРВЕР и база If cnn.State = adStateOpen Then cnn.Close End If cnn.Open cn_Str, User, pasw If TypeName(cmd.ActiveConnection) = "Nothing" Then Set cmd.ActiveConnection = cnn End If cmd.CommandText = "update [ACCOUNTS] set STATE = 2 where card = 10" cmd.Execute If cmd.ActiveConnection.Errors.Count > 0 Then ' ОШИБКА Else ' НЕТ ОШИБКИ End If |
||
|
Номер ответа: 4 Автор ответа: SHDZICQ: 209382104 Вопросов: 39 Ответов: 244 |
Профиль | | #4 | Добавлено: 18.02.11 17:48 |
| ну и конечно нужно добавить в референсах ADO | ||
|
Номер ответа: 5 Автор ответа: AanklagerВопросов: 1 Ответов: 2 |
Профиль | | #5 | Добавлено: 25.03.11 05:30 |
|
А как точно ADO называется в списке референсах...
Вроде всё проделал, но выдаёт: Run-time error '-2147467259 (80004005)': [Microsioft][Диспетчер драйверов ODBC] Источник данных не найден и не указан драйвер, используемый по умолчанию |
||
Страница: 1 |