Jump to content

  2. → Viewing Profile: Tópicos: daytor

daytor

Member Since 08/09/2004
Offline Last Active 24/05/2010, 14:15
-----

Topics I've Started

Importação

24/05/2010, 14:16

Dim iFormato As Integer
Dim sDiretorio As String
Dim frmDir As New frmRetDiretorioExtrato
Dim FSO As New FileSystemObject
Dim textStream As textStream
Dim sExtrato As String

sDiretorio = sDiretorio + ".HTM"
Set textStream = FSO.CreateTextFile(sDiretorio, True, True)
textStream.WriteLine m_sExtrato
textStream.Close
If CBool(chkCobrarExtrato.Value) = True Then
Call AtualizarExtratoEmitido(m_dblContaCor, m_IdLogConsulta, g_iNumCooperativa, g_iNumPAC, m_dataInicial, m_dataFinal)
End If

O que pode ser galera?

Conexão Com O Banco

24/05/2010, 14:12

Pq essa classe não funciona?


Public Function ExecutaSQL(strSQL As String) As Recordset

Dim Banco As ADODB.Connection

'Objetos
Set Banco = CreateObject("ADODB.Connection")

'Define os parâmetros e a conexão
Banco.CommandTimeout = 0
Banco.ConnectionTimeout = 0
Banco.CursorLocation = adUseClient

Banco.Open "provider=sqloledb.1; Persist security info=false; data source=funasa; initial catalog=BD_LOCADORA; user id=sa; password=;"

Set ExecutaSQL = Banco.Execute(strSQL)
Set Banco = Nothing

End Function

  1. Fórum WMO
  2. → Viewing Profile: Tópicos: daytor
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq