|
Действия ...
|
10.09.2004, 13:23:37
|
|||
|---|---|---|---|
|
|||
Как подключиться к SQL Server у? |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
10.09.2004, 13:16:20
|
|||
|---|---|---|---|
Как подключиться к SQL Server у? |
|||
|
#18+
Запускаю вот такой код: 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. Что за ошибка? Объясните плизз.. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
10.09.2004, 13:23:37
|
|||
|---|---|---|---|
Как подключиться к SQL Server у? |
|||
|
#18+
Код: plaintext 1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
10.09.2004, 13:30:52
|
|||
|---|---|---|---|
Как подключиться к SQL Server у? |
|||
|
#18+
Спасибо получилось подскажите еще пожалуйста как вот такую штуку сделать: почему так неполучается? 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
10.09.2004, 14:19:40
|
|||
|---|---|---|---|
Как подключиться к SQL Server у? |
|||
|
#18+
авторВот такой код: 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, посмотри значение своего выражения и всё станет ясно. Неужели найдётся желающий проанализировать твой паровоз ? Исходный топик удален (см Правила). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1671853]: |
0ms |
get settings: |
6ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
69ms |
get topic data: |
12ms |
get forum data: |
4ms |
get page messages: |
47ms |
get tp. blocked users: |
1ms |
| others: | 235ms |
| total: | 397ms |
| 0 / 0 |
