CViewDatabase.cls
1.54 KB
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
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "CViewDatabase"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public geoViewDatabase As New TeViewDatabase 'aqui ele deixa como herança todos os métodos do TeViewDatabase, quando o usuário instanciar um novo objeto do tipo CGeoDatabase
' Função para ativar a conexão com o gerenciador de vistas utilizando a biblioteca TeViewManager
'
' retorna se a conexão realizou ou não
' conexão - string de conexão com o banco de dados geográfico
' provedor - 0 - Access, 1 - SQLServer, 2 - Oracle, 3 - Firebird, 4 - Postgres (isto vem do VB6 em object browser)
' usuário - nome do usuário Terralib que se conecta ao banco geográfico
'
Public Function configura(conexao As ADODB.connection, provedor As cAppType, usuario As String) As Boolean
On Error GoTo Trata_Erro:
If typeconnection <> postgreSQL Then
'se não for Postgresss
geoViewDatabase.username = usuario
geoViewDatabase.Provider = provedor
geoViewDatabase.connection = conexao
Else
'implementar
End If
Exit Function
Trata_Erro:
If Err.Number = 0 Or Err.Number = 20 Then
Resume Next
Else
ErroUsuario.Registra "CViewDatabase", "configura", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
End If
End Function