-
Notifications
You must be signed in to change notification settings - Fork 1
/
FilePathIni.bas
73 lines (64 loc) · 2.76 KB
/
FilePathIni.bas
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
Attribute VB_Name = "Module3"
Option Explicit
Public DataBasePath As String
Public ConnectionString As String
Public myADO As ADODB.Connection
Public myRS As ADODB.Recordset
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Function PathFileIni() As String
PathFileIni = App.Path
If Right(PathFileIni, 1) <> "\" Then PathFileIni = PathFileIni & "\" & "setting.ini"
End Function
'ÎÁËÀÑÍÈÉ ÔÒÏ =========================================
Public Function Ftp_Obl() As String ' Îáëàñíèé ÔÒÏ
Ftp_Obl = ReadINI("FtpConnect", "FtpObl", PathFileIni)
End Function
Public Function Kat_Obl() As String ' Êàòàëîã ÔÒÏ îáëàñíèé
Kat_Obl = ReadINI("FtpConnect", "OblKat", PathFileIni)
End Function
Public Function Login_Obl() As String ' ëîã³í íà ÔÒÏ îáëàñíèé
Login_Obl = ReadINI("FtpConnect", "LogObl", PathFileIni)
End Function
Public Function Pass_Obl() As String ' ïàðîëü íà ÔÒÏ îáëàñíèé
Pass_Obl = ReadINI("FtpConnect", "PassObl", PathFileIni)
End Function
'======================================================
'ÊȯÂÑÜÊÈÉ ÔÒÏ ++++++++++++++++++++++++++++++++++++++++
Public Function Ftp_Kiev() As String ' Îáëàñíèé ÔÒÏ
Ftp_Kiev = ReadINI("FtpConnect", "FtpKiev", PathFileIni)
End Function
Public Function Kat_Kiev() As String ' Êàòàëîã ÔÒÏ îáëàñíèé
Kat_Kiev = ReadINI("FtpConnect", "kievKat", PathFileIni)
End Function
Public Function Login_Kiev() As String ' ëîã³í íà ÔÒÏ êè¿âñüêèé
Login_Kiev = ReadINI("ftpconnect", "logkiev", PathFileIni)
End Function
Public Function Pass_Kiev() As String ' ïàðîëü íà ÔÒÏ êè¿âñüêèé
Pass_Kiev = ReadINI("ftpconnect", "passkiev", PathFileIni)
End Function
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Public Function Folder_DB_Raj() As String 'ØËßÕ ÄÎ ÁÄ ÐÀÉÎͲÂ
Folder_DB_Raj = ReadINI("SendReport", "PathRpr", PathFileIni)
End Function
Public Function Folder_Post() As String 'ØËßÕ ÏÎØÒÎÂÎÃÎ ÊÀÒÀËÎÃÓ
Folder_Post = ReadINI("SendReport", "MailFolder", PathFileIni)
End Function
'ï³äêëþ÷åííÿ äî áàçè
Public Function ConnectToDataBase() As String
ConnectionString = ReadINI("DataBase", "ConnectionString", PathFileIni)
If Len(ConnectionString) = 0 Then
MsgBox "Not found connection string to DataBase" & Err.Description, vbCritical, "Error in settings file"
Else
On Error GoTo ErrAccessToDataBase
Set myADO = New ADODB.Connection
'myADO.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; pwd=sql_admin; Initial Catalog=SSPZ;Data Source=172.198.2.240\SQLEXPRESS; Connect Timeout = 60"
myADO.Open ConnectionString
Set myRS = New ADODB.Recordset
ErrAccessToDataBase:
If Err.Number <> 0 Then
Beep
MsgBox Err.Number & ": " & Err.Description, vbCritical, "Automatic Notification"
End If
End If
Exit Function
End Function