выполнил набор таких вот функций..........ошибок не дает проходит все чики пики проверяю потом количество записей в возращаемом АДО-рекордСете написано так:
RecordCount : <Operation is not allowed when the object is closed.> : ADO_LONGPTR : Form_frmDocsMain.RefreshForm"
-------------------------------------------------
ssql =" exec vp_DocsInfo -1, 0, '05.12.2004', '28.12.2004', 0, 2, Null, Null, Null"
-------------------------------------------------
Строка подключения нормальная..
-------------------------------------------------
Как это исправить?
И если есть у ВАс полный Хелп по АДО или примеры с вышлите плиз.
-------------------------------------------------
Access 2003
--------------------------------------------------
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.
Global g_cnn_Ado As New ADODB.Connection
Global g_cmd_Ado As New ADODB.Command
Global g_rs_ADO_DAO As New ADODB.Recordset
Dim sDBname As String
Dim sServerName As String
Global g_cnn_Str As String
--------------------------------------------------------
Public Function RetRecFromSQL(strSQL As String) As ADODB.Recordset
Set RetRecFromSQL = Nothing
Set g_rs_ADO_DAO = New ADODB.Recordset
'Set rs_ADO_DAO = CreateObject("ADODB.Recordset.2.80") 'New ADODB.Recordset '
g_cnn_Str = "Provider=" & Trim(g_oLocalParam.ADO_Provider) & _
";Data Source=" & Trim(GetSySParam("Server")) & _
";Initial Catalog=" & Trim(GetSySParam("DB_Name")) & _
";Integrated Security=" & Trim(g_oLocalParam.ADO_Integrated_Security)
g_rs_ADO_DAO.Open strSQL, g_cnn_Str, adOpenDynamic, adLockOptimistic, adCmdText
Set RetRecFromSQL = g_rs_ADO_DAO
End Function
--------------------------------------------------
Public Function cnn_RetRecFromSQL(strSQL As String, Optional bCnn_Var As String = "Connection") As ADODB.Recordset
Set cnn_RetRecFromSQL = Nothing
'Set rs_ADO_DAO = CreateObject("ADODB.Recordset.2.80") 'New ADODB.Recordset '
'Set cnn_Ado = CreateObject("ADODB.Connection.2.80")
Set g_rs_ADO_DAO = New ADODB.Recordset
Set g_cnn_Ado = New ADODB.Recordset
With g_cnn_Ado
If bCnn_Var = "Connection" Then
g_cnn_Str = "Provider=" & Trim(g_oLocalParam.ADO_Provider) & _
";Data Source=" & Trim(GetSySParam("Server")) & _
";Initial Catalog=" & Trim(GetSySParam("DB_Name")) & _
";Integrated Security=" & Trim(g_oLocalParam.ADO_Integrated_Security)
.ConnectionString = g_cnn_Str
Else
.Provider = Trim(g_oLocalParam.ADO_Provider) '"SQLOLEDB"
.Properties("Data Source") = Trim(GetSySParam("Server")) 'sServerName
.Properties("Initial Catalog") = Trim(GetSySParam("DB_Name")) 'sDBname
.Properties("Integrated Security") = Trim(g_oLocalParam.ADO_Integrated_Security) '"SSPI"
.Properties("Current Language") = "Russian"
End If
.Open
Set g_rs_ADO_DAO = .Execute(strSQL) ', , adCmdStoredProc)
'.Close
End With
Set cnn_RetRecFromSQL = g_rs_ADO_DAO
'rs_ADO_DAO.Close
End Function
--------------------------------------------------
Public Function CMD_RetRecFromSQL(strSQL As String) As ADODB.Recordset
Set g_cmd_Ado = New ADODB.Command
Set g_rs_ADO_DAO = New ADODB.Recordset
g_cnn_Str = "Provider=" & Trim(g_oLocalParam.ADO_Provider) & _
";Data Source=" & Trim(GetSySParam("Server")) & _
";Initial Catalog=" & Trim(GetSySParam("DB_Name")) & _
";Integrated Security=" & Trim(g_oLocalParam.ADO_Integrated_Security)
g_cmd_Ado.ActiveConnection = g_cnn_Str
g_cmd_Ado.CommandType = adCmdText ' adCmdStoredProc
g_cmd_Ado.CommandText = strSQL '"SET NOCOUNT ON select top 10 * From Documents" '"SET NOCOUNT ON " & strSQL
Set g_rs_ADO_DAO = g_cmd_Ado.Execute
Set CMD_RetRecFromSQL = g_rs_ADO_DAO
End Function
