COMO CRIO CONEXAO ADODC APENAS COM CODIGO

USUARIO.EXCLUIDOS 22/08/2007 17:13:30
#232119
eu so consigo cria a conexao pelo assistente e eu n to gostando muito disso si alguem quiser da uma malzinha ai valeu.
USUARIO.EXCLUIDOS 22/08/2007 17:15:51
#232121


Tenta ae:

Marque a referência Microsoft Activex Data Object 2.8


'Em um módulo coloque:
Option Explicit
Public cnn As ADODB.Connection
Public rs As ADODB.Recordset
Public SqlTabela As String


Public Sub Conecta()
    Set cnn = New Connection
    cnn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "\Banco.mdb';Jet OLEDB:Database Password=;"
    Set rs = New ADODB.Recordset
    rs.Open SqlTabela, cnn, adOpenKeyset, adLockOptimistic, adCmdText

End Sub



'no form coloque
SqlTabela = "Sua intrução SQL"
Conecta
Set DataGrid1.DataSource = rs

espero q ajude

boa sorte
USUARIO.EXCLUIDOS 22/08/2007 17:36:03
#232124
no valeu caiu feito luva muito obrigado mesmo.
USUARIO.EXCLUIDOS 22/08/2007 17:37:31
#232125

Opa..

q bom...precisando ..manda q a gente ta na área..

Só n eskece depois de encerrar o tópico e pontuar a resposta..

falow e sucesso
Tópico encerrado , respostas não são mais permitidas
Voltar