ERRO NA DLL

COSTELINHA 15/09/2006 16:28:38
#171735
Boa tarde

tenho o codigo abaixo e ele da o seguinte erro quando mando gerar o arquivo dll.

private objects module cannot be used in public modules as parameters or returns type for publics procedures, as public data members, or as fields of public user defined types

Public rs As New ADODB.Recordset

Public Function incluir(sql As String, campo_banco As String, ByRef campo As TextBox)
rs.Open sql, cn, adOpenDynamic
If rs.RecordCount = 0 Then
    campo.Text = 1
Else
    rs.MoveLast
    campo.Text = rs(" & campo_banco & ").Value + 1
End If
novo = True
campo.Text = Format(campo.Text, campo.DataFormat.Format)

End Function


Valeu
USUARIO.EXCLUIDOS 15/09/2006 16:33:44
#171738
Em que linha o erro aponta? Tente passar o rs de Public para Private...flw
USUARIO.EXCLUIDOS 15/09/2006 16:41:58
#171745
e coloque a declaração do rs dentro da função também, para não lhe complicar no uso de outras funções usando o mesmo nome de variável.

Public Function incluir(sql As String, campo_banco As String, ByRef campo As TextBox)
Dim rs as New ADODB.Recorset
rs.Open sql, cn, adOpenDynamic
If rs.RecordCount = 0 Then
    campo.Text = 1
Else
    rs.MoveLast
    campo.Text = rs(" & campo_banco & ").Value + 1
End If
novo = True
campo.Text = Format(campo.Text, campo.DataFormat.Format)

End Function
COSTELINHA 15/09/2006 16:49:47
#171749
Ele para eu mando gerar a dll, ai ele da o erro e coloca em negrito a linha do Public Function incluir(sql As String, campo_banco As String, ByRef campo As TextBox)
USUARIO.EXCLUIDOS 15/09/2006 16:51:49
#171751
Altere a propriedade Instancing da classe para "6 - GlobalMultUse"
COSTELINHA 15/09/2006 16:53:51
#171752
Marcelo, mudei e ficou na mesma
USUARIO.EXCLUIDOS 15/09/2006 16:57:46
#171754
mude o text para object

Public Function incluir(sql As String, campo_banco As String, ByRef campo As Object)
Dim rs as New ADODB.Recorset
rs.Open sql, cn, adOpenDynamic
If rs.RecordCount = 0 Then
    campo.Text = 1
Else
    rs.MoveLast
    campo.Text = rs(" & campo_banco & ").Value + 1
End If
novo = True
campo.Text = Format(campo.Text, campo.DataFormat.Format)

End Function
COSTELINHA 15/09/2006 16:58:31
#171756
Aqui esta a classe que criei
USUARIO.EXCLUIDOS 15/09/2006 16:59:22
#171757
chegou a fazer o q falei?? mudar de TextBox para Object??
USUARIO.EXCLUIDOS 15/09/2006 17:05:15
#171760
veja o anexo, está compilando normalmente.
USUARIO.EXCLUIDOS 15/09/2006 17:05:56
#171761
Cara, passe para Object como o MARCELOHF disse que funfará, testei aqui e funfo:

Public Function incluir(sql As String, ByRef campo As Object)
Página 1 de 3 [21 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar