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
Conexão Com O Banco
Started By daytor, 24/05/2010, 14:12
Nenhuma resposta neste tópico
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)