powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как подключиться к SQL Server у?
4 сообщений из 4, страница 1 из 1
Как подключиться к SQL Server у?
    #32689550
BAGRA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Запускаю вот такой код:

Dim con As ADODB.Connection

Set con = New ADODB.Connection
With con
.Provider = "SQLOLEDB"
.Properties("Data Source").Value = "exmssql"
.Properties("Initial Catalog").Value = "invest"
.Properties("User ID").Value = "login"
.Properties("Password").Value = "pass"
.CursorLocation = adUseClient '
.CommandTimeout = 0
.Open
End With
con.Close
MsgBox CurrentProject.Connection

На сторочке -----> .OPEN
Выдается вот такое сообщение об ошибке:

Run-time error '...'
[DBNETLIB] [ConnectionOpen (Connect()).] SQL Server does not exist
or access denaied.

Что за ошибка? Объясните плизз..
...
Рейтинг: 0 / 0
Как подключиться к SQL Server у?
    #32689568
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
Dim con As NEW ADODB.Connection
con.Open "Provider=SQLOLEDB;Data Source=<SERVER_NAME>;database=<DB_NAME>;uid=<UID>;pwd=<PWD>;" 
...
Рейтинг: 0 / 0
Как подключиться к SQL Server у?
    #32689585
BAGRA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо получилось

подскажите еще пожалуйста как вот такую штуку сделать:
почему так неполучается?

CurrentProject.Connection.Execute "execute insert_into_INA_Innovative_offer " _
& F_cod_cex.Column(0) & " ," _
& F_tree_number & " ," _
& F_receipt_date & " ," _
& F_name_offer & " ," _
& F_autors_first_name & " ," _
& F_autors_second_name & " ," _
& F_autors_last_name & " ," _
& F_place_of_work & " ," _
& F_post & " ," _
& F_id_category.Column(0) & " ," _
& F_investments & " ," _
& F_econ_benefit_set & " ," _
& F_econ_benefit_act & " ," _
& F_sum_compensation & " ," _
& F_date_decision_sc & " ," _
& F_date_decision_fc & " ," _
& F_date_decision_mc & " ," _
& F_date_introdaction & " ," _
& F_mark_rationalizer
...
Рейтинг: 0 / 0
Как подключиться к SQL Server у?
    #32689718
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторВот такой код:
Dim con As New ADODB.Connection
con.Open "Provider=SQLOLEDB;Data Source=COMMSQL;database=invest;uid=kochetkova;pwd=reanimator;"
Dim rst As ADODB.Recordset
con.Execute
con.Execute (" insert_into_INA_Innovative_offer " _
& F_cod_cex.Column(0) & " ," _
& F_tree_number & " ," _
& F_receipt_date & " ," _
& F_name_offer & " ," _
& F_autors_first_name & " ," _
& F_autors_second_name & " ," _
& F_autors_last_name & " ," _
& F_place_of_work & " ," _
& F_post & " ," _
& F_id_category.Column(0) & " ," _
& F_investments & " ," _
& F_econ_benefit_set & " ," _
& F_econ_benefit_act & " ," _
& F_sum_compensation & " ," _
& F_date_decision_sc & " ," _
& F_date_decision_fc & " ," _
& F_date_decision_mc & " ," _
& F_date_introdaction & " ," _
& F_mark_rationalizer)
На строчке con.Execute выдается сообщение об ошибке
Line 1 : incorrect syntax near ','
ShubnikovОстанови на con.Execute, посмотри значение своего выражения и всё станет ясно. Неужели найдётся желающий проанализировать твой паровоз ?
Исходный топик удален (см Правила).
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как подключиться к SQL Server у?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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