wesleymeim 21/10/2014, 14:41
Tenho a aplicação em um Form na minha máquina e estou me conectando a um servidor da Rede com SQL para mostrar esses registros em um formulário de folha de dados.
Meu código está assim:
Private Sub Form_Load()
Dim rss As New ADODB.Recordset
Dim sql As String
Dim cns As New ADODB.Connection
cns.Provider = "SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=10.131.161.32;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=DEBRBRG310F27X;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=teste"
cns.ConnectionTimeout = 0
cns.Open
Set rss = New ADODB.Recordset
Set rss.ActiveConnection = cns
sqls = "select [Divisão], [Exercício], [Períodocontábil], [Organizaçãovendas], [Canaldistribuição], [Cliente],[Setordeatividade], [Escritóriodevendas], [Material], [Nºconta], [Centro], [Centrocusto], [Centrodelucro],[Tp doc faturamento], [Tipodedocumento], [Documentodevendas], [Nºdoc referên ], [Nºdocumento], [Oper doc refer ],[Operaçãoref ], [Texto], [Qtde(KG)], [Emmoedadecontabilização], [ItemdocumentoSD], [Ctg doc ref ], [Linhasdoc ref ],[Categoriadocumento], [Linhadelançamento], [Ledger], [Tiporegistro], [Versão], [Áreacontab custos], [Empresarecept ],[CenLcr p eliminação], [Cen lucroparceiros], [Denominação], [Índiceestatístico], [Cód débito crédito], [emmoedainternadocentrodelucro],[CódigomoedaMICtrLuc ] , [CódigomoedaMoed cont ]from detr"
rss.CursorLocation = adUseClient
rss.Open sqls, cns, adOpenStatic, adLockBatchOptimistic
Set Me.Recordset = rss
Set rss.ActiveConnection = Nothing
rss.Close
cns.Close
End Sub