Repository navigation
Expand file tree
/
Copy pathremote-data-objects.vb
More file actions
131 lines (91 loc) · 3.29 KB
/
Copy pathremote-data-objects.vb
File metadata and controls
131 lines (91 loc) · 3.29 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
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
' RDO - Remote Data Objects
' Ele foi uma alternativa a DAO antes da ADO ser lançada e se consolidar e funcionou como um,
' vamos dizer, tampão, visto que geralmente na migração do RDO para a ADO o impacto era menor.
' Os objetos RDO eram um boa opção para acesso a dados remotos, especificamente a servidores
' SQL visto que a DAO é uma tecnologia mais adequada para comunicação com bases ISAM (dbase,
' Paradox, Access, etc.) Os objetos RDO suportam o uso de cursores e a utilização de stored
' procedures e apresentam a seguinte correlação com a tecnologia DAO:
' DAO/Jet RDO
' DBEngine rdoEngine
' Error rdoError
' Workspace rdoEnvironment
' DataBase rdoConnection
' TableDef rodTable
' Recordset rdoResultset
' Field rdoColumn
' QueryDef rdoQuery
' Parameter rdoParameter
' Como podemos notar o RDO foi praticamente um precursor da tecnologia ADO.
' A seguir no evento Click do botão de comando Conectar inclua o seguinte código:
Private Sub btnconectar_Click()
On Error GoTo trataerro
Dim cadeiaConexao As String
cadeiaConexao = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & servidor & "; DATABASE=" & cboBancodeDados & " ;PWD=" & password & "; UID=" & usuario & ";OPTION=3"
Set db = New rdoConnection
db.Connect = cadeiaConexao
db.CursorDriver = rdUseServer
db.EstablishConnection
Exit Sub
trataerro:
MsgBox Err.Number & " " & Err.Description, vbCritical
End Sub
' O código efetua a conexão com a base de dados informada no combobox usando o objeto RDO.
' O evento db_Connect deve possui o seguinte código:
Private Sub db_Connect(ByVal ErrorOccurred As Boolean)
On Error GoTo trataerro
Dim tabela As rdoTable
Dim existeTabela As Boolean
existeTabela = False
trocaBotoes True
For Each tabela In db.rdoTables
tabelas.AddItem tabela.Name
existeTabela = True
Next
If Not existeTabela Then
MsgBox "O banco de dados esta vazio."
btndesconectar_Click
End If
Exit Sub
trataerro:
MsgBox Err.Number & " " & Err.Description, vbCritical
End Sub
' O código acima verifica se existem tabelas na base de dados e inclui o nome
' de cada tabela no respectivo ListBox.
' Ao clicar em uma tabela queremos exibir os dados da mesma no outro ListBox
' para isto inclua o código abaixo no evento Click do ListBox tabelas:
Private Sub tabelas_Click()
On Error GoTo trataerro
Dim tabela As String
Dim consulta As New rdoQuery
Dim resultados As rdoResultset
Dim conteudo_linha As String
Dim coluna As rdoColumn
conteudo.Clear
tabela = tabelas.List(tabelas.ListIndex)
Set consulta.ActiveConnection = db
consulta.SQL = "SELECT * FROM " & tabela & " WHERE 1"
consulta.Execute
Set resultados = consulta.OpenResultset
While Not resultados.EOF
conteudo_linha = ""
For Each coluna In resultados.rdoColumns
conteudo_linha = conteudo_linha & coluna.Name & "=" & resultados(coluna.Name) & "; "
Next
conteudo.AddItem conteudo_linha
resultados.MoveNext
Wend
resultados.Close
Set resultados = Nothing
Exit Sub
trataerro:
MsgBox Err.Number & " " & Err.Description, vbCritical
End Sub
' Usando uma consulta via objeto rdoQuery estou gerando um recordset
' com os dados obtidos e exibindo no ListBox:
' No evento Unload estou efetuando o fechamento do banco de dados
' conforme código a seguir:
Private Sub Form_Unload(Cancel As Integer)
If btnconectar.Enabled = False Then
db.Close
End If
End Sub