Jump to content


Photo

Conexão Com O Banco


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 daytor

daytor

    Daytor Art'$

  • Usuários
  • 271 posts
  • Sexo:Não informado

Posted 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
- - :: Daytor Desenvolvimento :: - -




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq