none
Conexão ODBC pelo módulo. RRS feed

  • Pergunta

  • Pessoal, bom dia à todos.

    Estou realizando um projeto aqui no serviço onde basicamente consiste em eu acessar uma base de dados em SLQ que está em um dado servidor e fazer com que todos os dados dessa tabela sejam trazidos para uma tabela no access.

    Para isso eu criei uma conexão odbc através do módulo do access, entretanto sei que há outras formas de realizar essa conexão, mas gostaria que vocês pudessem me auxiliarem a criar esta através de um módulo no Access.

    Parte da conexao já está pronta (segue abaixo), agora minha dúvida é como jogar esses dados que estão no select para uma tabela no próprio access.


    Option Compare Database
    Public Sub Dados_View_BDs()
    ' Atribuindo para as variaveis o nome de usuário e senha para acesso a view.
    Usuario = "user_speedy"
    Senha = "user_speedy"
    ' Cria a conexão.
    Dim cnPubs As ADODB.Connection
    Set cnPubs = New ADODB.Connection ' Variável para armazenar a String de Conexão.
    Dim strConn As String
    ' Informa o SQL Server OLE DB Provider.
    strConn = "PROVIDER=SQLOLEDB;"
    ' Conecta à base de dados Teste_Processo no servidor local.
    strConn = strConn & "DATA SOURCE=sflimaiii021; User ID=" & Usuario & "; Password=" & Senha & ";INITIAL CATALOG=DB_MUDANCA_SPEEDY;"
    ' Abre a conexão.
    cnPubs.Open strConn
    ' Cria o objeto Recordset.
    Dim rsPubs As ADODB.Recordset
    Set rsPubs = New ADODB.Recordset
    With rsPubs
    ' Associa a conexão.
    .ActiveConnection = cnPubs
    ' Extrai os dados acumulado.
    .Open "SELECT * FROM dbo.VW_OS_SPY_APARTIR_MAIO09"

    >>> ACREDITO SER AQUI O PROBLEMA!!!


    ' Coloca os dados na planilha.
    .Update rsPubs
    ' Fecha a transação.
    .Close
    End With
    ' Fecha conexão
    cnPubs.Close
    Set rsPubs = Nothing
    Set cnPubs = Nothing
    End Sub


    Abs,

    Alberto

    Abraços! Alberto
    segunda-feira, 19 de outubro de 2009 11:55

Respostas

  • Dim cnn As String = My.Settings.First_SQLConnectionString

    Private
    Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     

     

    Using conn As New OdbcConnection(cnn)

     

     

    Dim apater As New OdbcCommand("Select * from dbo.banco", conn)
    conn.Open()
    Dim dataReader As OdbcDataReader = apater.ExecuteReader
    Dim LinkMe As New BindingSource Me.DataGridView1.DataSource = LinkMe 

     

    End Using
    End Sub

     

     

    Class

     

    all the best for you

    LinkMe.DataSource = dataReader


    Don't judge me, just Upgrade me. Thanks!
    terça-feira, 20 de outubro de 2009 15:17