Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Pistoflone

dll > Connection > RecordSet

Recommended Posts

Olá!

Pessoal, é o seguinte... criei uma dll em VB6 que recebe dados de conexão, cria uma conexão, e retorna a conexão aberta. Simples assim:

Public Function Conexao( _

ByVal UserID As String, _

ByVal ICatalog As String, _

ByVal DSource As String, _

ByVal Password As String, _

Optional ByRef msgerro As Variant, _

Optional ByVal TimeOut As Variant, _

Optional ByVal Application_Name As Variant) As ADODB.Connection

Dim Conn As ADODB.Connection

On Error Resume Next

If TypeName(Conn) <> "Connection" Then

Set Conn = New ADODB.Connection

'-- Propriedade que define o Tempo de Time Out para abrir o banco de dados

If Trim(TimeOut & " ") = "" Then TimeOut = 20

Conn.ConnectionTimeout = TimeOut

'-- Abre a conexao

Conn.ConnectionString = "Provider = SQLOLEDB; User ID=" + UserID + "; Initial Catalog = " + ICatalog + "; Server=" + DSource + ";Password=" + Password

Conn.Open

End If

Set Conexao = Conn

If err.Number <> 0 Then

msgerro = msgerro + err.Description

Call Erro("Aplicação: " + Application_Name + " - ConexaoSQL" & vbTab & err.Description)

End If

End Function

- O problema é o seguinte: Essa dll funciona, traz a conexão aberta, porém, se eu abro um RecordSet na página, me retorna o seguinte erro:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Visto que:

Set RS = Server.CreateObject("ADODB.RecordSet")

sql = "SELECT TOP 20 * FROM TBL_Clientes"

RS.Open sql, Conn

- Agora, se eu realizar a mesma query, só que usando a sintaxe abaixo:

Set RS = Conn.Execute(sql)

funciona normalmente...

Alguém sabe me dizer o porquê? O que eu estou fazendo de errado?

To precisando mesmo disso... quem puder ajudar, agradeço desde já...

Valeu galera!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...