Прошу прощения, что удалось ответить только сейчас
White OwlВо первых, вот эти две строки зачем? вот так не проще будет? ...
конечно, проще, но суть не в этом, а ...- см. ниже
Ошибки создания DSN надо читать через SQLInstallerError()
НЕТ ошибок-то, - DSN создается успешно .
[/quot]
Дальше идет вообще совершенно не нужный кусок кода:
1.
2.
3.
4.
5.
6.
7.
8.
9.
i = 1
On Error GoTo 1
Set TestCnn = New ADODB.Connection
TestCnn.Open StrCnn
TestCnn.Close
Debug.Print "i=" & i
Exit Function
1 : ' вот здесь может накручивать счетчки до 9000 ( это от 100 до 1000 msec)
i = i + 1
Resume
[/quot]
Кусок совершенно нужный, т.к. он показывает ,что в этом коде после создания, причем УСПЕШНОГО DSN'а коннект сразу не установить - придется сделать несколько сотен попыток. Но это было из первого поста неочевидно, (см. ниже тест)
функцию SQLDataSources() (правда сложное имя для угадывания?)
Для угадывания любой слово сложное. За наводку спасибо.
Во вторых, в чем вообще смысл создавание dsn'ов? Если твоя программа сама знает всю строку коннекта, то dsn вообще нафиг не нужен. Отдавай строку в SQLDriverConnect() и все.
Программа строку знает, только на случай несуществования DSN (т.е. в случае, елси он нес существует, то - будет создан по этой строке). А зачем DSN сам по себе, - так это уже вопрос за рамками темы, да и не суть это.
Ошибку ты нам сообщишь? А вообще-то такого не может быть. Там нету нигде многопотоковости и все вызовы самого ODBC интерфейса всегда синхронные.
У тебя ошибка где-то в другом месте.
Вот здесь ключ к разгадке. В программе моей, купюру из кооторой я привел в перволм посте, действительно ошибка, а может быть и нет - хотелось бы понять.
Короче, вот программка-тест в законченном варианте :
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
Public Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
' Перед вызовом удалить DSN TestExcel, если он есть
Function CreateDSNTest() As Object
Dim StrCnn As String, drvName As String
' попытка коннекта (считая , что DSN is valid ) --------------
On Error GoTo ErrH
Set Cnn = New ADODB.Connection
' Какой-ни реальный SLS файл :
StrCnn = "DSN=TestExcel;Driver={Microsoft Excel Driver (*.xls)};" & _
"DriverId=790;Dbq=C:\1\Книга1.XLS;"
Cnn.ConnectionString = StrCnn
Cnn.Open
Set CreateDSNTest = Cnn
Exit Function ' -->>' выход при удаче -->>
ErrH: ' ошибка из-за отсутствия DSN или по другим причинам
Debug.Print Cnn.State, Err.Description, Cnn.Errors.Count
' Если этого (или Set Cnn=Nothing) не сделать, в след функции невозможно будет с 1 раза
' протестировать DSN (придется делать от 100 до 1000 попыток ) :
'Set Cnn = New ADODB.Connection ' ни On Error Goto 0 ни Err.Clear, Cnn.Errors.Clear - не помогают !
On Error GoTo [b]0
Err.Clear
Cnn.Errors.Clear[/b]
' неудача из-за того, что DSN не создан - попытка создания DSN ---------------
drvName = "Microsoft Excel Driver (*.xls)"
CreateDSN StrCnn, drvName, , 4
' DSN удачно создан - Вторая и Последняя попытка коннекта после свежесозданного DSN
Set Cnn = New ADODB.Connection ' елси этого не сделать, то будет в след строке ошибка
Cnn.ConnectionString = StrCnn
Cnn.Open
Set CreateDSNTest = Cnn
End Function
Function CreateDSN(StrCnn As String, _
Optional sDriver As String = "", _
Optional hWnd As Long = 0 &, _
Optional Oper As Long = 4 ) As Long
'ODBC_ADD_SYS_DSN = 4
Dim sCnn As String, TestCnn As ADODB.Connection, i As Long, intRet As Long, sa() As String
'Set the attributes delimited by null. See driver documentation for a complete list of supported attributes.
sa = Split(StrCnn, ";")
sCnn = ""
For i = 0 To UBound(sa)
sCnn = sCnn & IIf(i = 0 , "", Chr$( 0 )) & sa(i)
Next i
intRet = SQLConfigDataSource(hWnd, Oper, sDriver, sCnn)
CreateDSN = IIf(intRet, 1 , - 1 )
If CreateDSN = - 1 Then ' Сюда в тесте никогда не приходим
Err.Raise vbObjectError + 1 , , "Ошибка при создании/модификации DSN"
Else
i = 1
On Error GoTo 1
Set TestCnn = New ADODB.Connection
TestCnn.Open StrCnn
TestCnn.Close
Set TestCnn = Nothing
Debug.Print "i=" & i
Exit Function
1 : ' вот здесь может накручивать счетчки до 9000 ( это от 100 до 1000 msec)
i = i + 1
Resume
End If
End Function
Суть оказалась в выделенном тексте - кто-то может объяснить - почему же так? НУ была неудачная попытка использования DSN, еще ДО его создания, - ну и что , зачем Nothing в этот нейдачный Connection Cnn класть для того, чтобы следующий совершенно отдельный Connection TestCnn мог выполнить с первого раза после создания DSN удачную попытку коннекта ?
