2 LeCrunch
нет проблемы со строкой соединения, есть проблемы как вызвать окно в которое пользователь бы вводил имя пароль и БД.
пример
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.
Sub RunSQL_2_Name_Shop()
Dim OraSession As Object
Dim OraDatabase As Object
Dim StrSQL As String
Dim OraDynaset As Object
Dim ns As Object
Dim i, j As Long
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("БД", "юзер/пассв", 0 &)
StrSQL = "SELECT code_shop,name_shop FROM mz.v_box_shop"
Set OraDynaset = OraDatabase.CreateDynaset(StrSQL, 0 &)
Set ns = Sheets("index").ComboBox_ns
ns.Clear
j = OraDynaset.RecordCount
OraDynaset.MoveFirst
For i = 0 To j - 1
ns.AddItem OraDynaset.Fields("name_shop")
ns.List(i, 0 ) = OraDynaset.Fields("name_shop")
ns.List(i, 1 ) = OraDynaset.Fields("code_shop")
OraDynaset.MoveNext
Next
Set OraDynaset = Nothing
CloseOracle
End Sub
2 ZVI HandKot
для ADODB супер работает -спасибо
но к ОО4О я ее так и не смог применить
Вотк ак зделать чтоб в строке
1.
Set OraDatabase = OraSession.OpenDatabase("БД", "юзер/пассв", 0 &)
не статично задавать "БД", "юзер/пассв"
а пользователь бы их вводил
И учитывая то что селектов у меня много в книге хотелось бы чтоб в любой момент можно было бы обратиться и получить значения "БД", "юзер/пассв"
