DUVIDA BASICA DLL

VILANOVA 05/05/2010 08:58:20
#340970
Pessoal, estou precisando saber como faço uma dll de conexao com banco de dados uso isso aqui num modulo para conectar... e como vou fazer depois para chamar essa dll nas telas..

[ô]Referência a Microsoft ActiveX 2.8 Object Library
Public Conexao As ADODB.Connection
Public myRS As ADODB.Recordset
Public rsConCNPJ As ADODB.Recordset
Public PesqrsConCNPJ As ADODB.Recordset
Public RsCnae As ADODB.Recordset
Public rsCONCNAE As ADODB.Recordset
Public MyRsEnder As ADODB.Recordset
Public RsTipsEnder As ADODB.Recordset
Public MyRsContato As ADODB.Recordset
Public rsPesq As ADODB.Recordset
Public rsParametros As ADODB.Recordset
Public rsConf As ADODB.Recordset
Public rsParametros2 As ADODB.Recordset
Public rsPFabricante As ADODB.Recordset
Public rsProdutos As ADODB.Recordset


Sub Main()
On Error GoTo ErrorHandler

If App.PrevInstance = True Then
Dim Form As Form

MsgBoxGT [Ô]Já existe um Executável do programa em execução.[Ô] & _
Chr(13) & [Ô]Se necessário, pressione [Ctrl]+[Alt]+[Del] para visualizar.[Ô], vbCritical, [Ô]Checkup Service[Ô]
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End
End If

If ReadINI([Ô]CONEXAO[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô]) = [Ô][Ô] And ReadINI([Ô]CONEXAO[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô]) = [Ô][Ô] And ReadINI([Ô]CONEXAO[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô]) = [Ô][Ô] And ReadINI([Ô]CONEXAO[Ô], [Ô]SENHA[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô]) = [Ô][Ô] Then

MsgBoxGT [Ô]Conexão com Banco de Dados nula ou limitada![Ô] & _
Chr(13) & [Ô]Configure o caminho do banco de dados corretamente![Ô], vbInformation, [Ô]Aviso[Ô]

[ô]frmConfiguracoes.Show 1



End If

Conecta True
frmLogin.Show
[ô]With frmAcesso
[ô].Lbl.Caption = [Ô]Aguarde, Tentando conexão com Banco de Dados![Ô]
[ô].Timer2.Enabled = False

[ô]Load frmAcesso
[ô].Show
[ô]End With
Exit Sub


ErrorHandlerExit:
Exit Sub
ErrorHandler:
If Err = 3021 Then
Resume Next
ElseIf Err = 94 Then
Resume Next
Else
With FormErro
.txtErro.Text = [Ô]Erro : [Ô] & Err.Number
.txtDesc.Text = [Ô]Descrição : [Ô] & Err.Description
.Show
End With

Resume ErrorHandlerExit
End If


End Sub
Public Function Conecta(ByVal Valor As Boolean)
Dim SERVIDOR, USUARIO, SENHA, PORTA, basededados As String
If Valor = True Then
Set Conexao = New Connection
SERVIDOR = ReadINI([Ô]Conexao[Ô], [Ô]SERVIDOR[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
basededados = [Ô]techsizecrm[Ô]
PORTA = ReadINI([Ô]Conexao[Ô], [Ô]PORTA[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
USUARIO = ReadINI([Ô]Conexao[Ô], [Ô]USUARIO[Ô], App.Path & [Ô]\ConfigServidor.ini[Ô])
SENHA = [Ô]master4lj@[Ô]
CON_STR = [Ô]DRIVER={MySQL ODBC 5.1 DRIVER};[Ô] _
& [Ô]Server=[Ô] & SERVIDOR & [Ô];[Ô] _
& [Ô]Port=[Ô] & PORTA & [Ô];[Ô] _
& [Ô]Database=[Ô] & basededados & [Ô];[Ô] _
& [Ô]UID=[Ô] & USUARIO & [Ô];[Ô] _
& [Ô]PWD=[Ô] & SENHA & [Ô];[Ô] _
& [Ô]Option=3;[Ô]
With Conexao
.CursorLocation = adUseClient
.ConnectionString = CON_STR
.Open CON_STR
End With
Else
Conexao.Close
Set Conexao = Nothing
End If

End Function
OLOCO 05/05/2010 09:59:42
#340976
é so colocar em uma classe, e no seu projeto fazer a referencia ao nome da classe.
exemplo:

dim minhadll as new MinhaDll

minhadll.Conecta (True)
XXXANGELSXXX 05/05/2010 13:23:14
#340997 Resposta escolhida
Voce vai colocar em uma classe a sua rotina de conexao ao banco.

compile o programa, como dll, etc.. depois registre no sistema operacional.. chame ela na conexao como oloco sitou..

dim DLLCONEXAO AS NEW DLLCONEXAO

DLL CONEXAO.CONECTA(TRUE)
ai ja estara conectado com essa dll.. pronto. e so fazer o restante do processo.. valeusssss..
Tópico encerrado , respostas não são mais permitidas
Voltar