Ir para conteúdo
Fórum CódigoFonte.net

Pistoflone

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. Pistoflone

    dll > Connection > RecordSet

    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!
×
×
  • Criar Novo...