Form1.frm
1.9 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
VERSION 5.00
Object = "{87AC6DA5-272D-40EB-B60A-F83246B1B8D7}#1.0#0"; "TeComDatabase.dll"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 2985
ClientLeft = 60
ClientTop = 450
ClientWidth = 5580
LinkTopic = "Form1"
ScaleHeight = 2985
ScaleWidth = 5580
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 660
Left = 3450
TabIndex = 0
Top = 1635
Width = 1440
End
Begin TECOMDATABASELibCtl.TeDatabase TeDatabase1
Left = 855
OleObjectBlob = "Form1.frx":0000
Top = 1065
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Sub Command1_Click()
'
'
' 'variavel de conexao do banco principal
'
' 'Dim dbConn As New ADODB.Connection
'
' 'Variavel Contador
'
' Dim iCont As Integer
'
' 'Variavel de coordenadas
'
' Dim x As Double, y As Double
'
'
'
'
' 'estabelece a comunicacao com o banco principal
'
' 'dbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Projetos\Documentos\banco.mdb;Persist Security Info=False"
'
' 'configura o provider do banco principal
'
' TeDatabase1.Provider = 1
'
' 'configura o componente para a conexao com o banco principal
'
' TeDatabase1.Connection = Conn
'
' If TeDatabase1.setCurrentLayer("Trechos") Then
'
' 'Retorna a coordenada do ponto 2 da linha 0xx999
'
' If TeDatabase1.getPointOfLine(0, "0xx999", 2, x, y) Then
' MsgBox "Coordenada do Terceiro Ponto da linha : " & CStr(x) & "_ " & CStr(y)
' End If
' End If
'
' 'dbConn.Close
'
' 'Set dbConn = Nothing
'
'
'
'
'End Sub