Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft SQL Server Новый топик    Ответить
 SQL Server  [new]
Сапар
Member

Откуда:
Сообщений: 7
Помогите пожалуйста! Не могу понять почему не видит один сервер?
На других серверах все прошло а на основном рабочем нет?!

Const SRV As String = "SOLSQL"
Private cnn As ADODB.Connection
Private rst As New ADODB.Recordset
Dim SignId As String
22 ноя 04, 10:27    [1124271]     Ответить | Цитировать Сообщить модератору
 Re: SQL Server  [new]
Jem
Member

Откуда:
Сообщений: 735
А где же строка подключения с параметрами оного?
22 ноя 04, 10:33    [1124295]     Ответить | Цитировать Сообщить модератору
 Re: SQL Server  [new]
Сапар
Member

Откуда:
Сообщений: 7
Название сервера SOLSQL
А дальше уже к таблицам

Private Sub cboFrms_Click()
lstOper
Set rst = cnn.Execute(GetQueryStr)
Call Fill_Object(lstOper, rst, "TypeOper")

Set rst = cnn.Execute("select ReasonCd from ReasonCode")
Call Fill_Object(lstAllOper, rst, "ReasonCd")

Set rst = cnn.Execute("Select [Comment] from xx_form where StrId='" + lStrId.Caption + "' and RptId='" + cboFrms.Text + "'")
If rst.BOF = False Then txtComment = rst(0) Else txtComment = ""

End Sub
22 ноя 04, 10:39    [1124319]     Ответить | Цитировать Сообщить модератору
 Re: SQL Server  [new]
Glory
Member

Откуда:
Сообщений: 104760
Название сервера SOLSQL
А дальше уже к таблицам

Вы можете показать ВСЮ строку подключения ?
22 ноя 04, 12:06    [1124814]     Ответить | Цитировать Сообщить модератору
 Re: SQL Server  [new]
Сапар
Member

Откуда:
Сообщений: 7
Выходит Error

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sStr$

sStr$ = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=" & SRV
On Error GoTo ErrHndl
cn.Open sStr
Set rs = cn.Execute("SELECT DB_NAME(dbid) AS DB_NAME From [Master].[dbo].sysdatabases ORDER BY 1")
Do Until rs.EOF
If LCase$(rs(0)) Like "kegoc*" Then cboDBs.AddItem rs(0)
rs.MoveNext
Loop
rs.Close: cn.Close
Set rs = Nothing: Set cn = Nothing
Exit Sub
ErrHndl:
MsgBox "Error!!!"
22 ноя 04, 12:34    [1124968]     Ответить | Цитировать Сообщить модератору
 Re: SQL Server  [new]
Сапар
Member

Откуда:
Сообщений: 7
Может в безопасности дело ведь на всех серверах идет прога а на одной тока не работает?! Бывало такое???
22 ноя 04, 12:37    [1124990]     Ответить | Цитировать Сообщить модератору
 Re: SQL Server  [new]
Jem
Member

Откуда:
Сообщений: 735
MsgBox err.Description ??
22 ноя 04, 12:37    [1124991]     Ответить | Цитировать Сообщить модератору
 Re: SQL Server  [new]
Jem
Member

Откуда:
Сообщений: 735
Почему бы и нет, возможно пользователь не имеет прав на подключение к серверу
22 ноя 04, 12:38    [1125002]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft SQL Server Ответить