Ade
|
MACEIÓ
AL - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/12/2010 12:48 hs
Olá,
Uso o VB6 com o SQL SERVER 2000, criei uma tabela e um dos campos é um varcha(5000), quando utilizo o comando insert, é quardado a informação no BD sem problemas, entretanto, qdo utilizo um select e carrego os dados para um text box multline, está dando o erro apontado abaixo:
Vb Run time error 40002
s1109[Microsoft][ODBC SQL SERVER Driver]Posição do cursor inválida
Set QRS_B = M_ARQ.OpenResultset("SELECT * FROM Registros_padroes Where IdCodigo=" + Str(lstRegistros.ItemData(lstRegistros.ListIndex)) + "", _
rdOpenForwardOnly, rdConcurReadOnly)
If Not QRS_B.EOF Then
txt_Nome = IIf(IsNull(QRS_B!Nome), 0, QRS_B!Nome)
Cbo_Classe.ListIndex = IIf(IsNull(QRS_B!CLASSE), 0, QRS_B!CLASSE)
TXT_Texto_Reg = IIf(IsNull(QRS_B!texto), " ", QRS_B!texto) <---o ERRO OCORRE AQUI
If Trim(QRS_B!TIPO) = "R" Then
Opt_Registro.Value = True
ElseIf Trim(QRS_B!TIPO) = "AV" Then
Opt_Averbacao.Value = True
End If
End If
ALGUÉM PODERIA AJUDAR-ME
Ade Melo
|
|
|
|
|
|
|
|
Postada em 14/12/2010 16:57 hs
cara vc tem como postar aqui a descrição do erro extamente,
Se o campo é texto e não multiline tbm da esse erro?
|
|
|
|
|
|
Postada em 14/12/2010 22:23 hs
O erro é extamente o descrito abaixo:
Vb Run time error 40002
s1109[Microsoft][ODBC SQL SERVER Driver]Posição do cursor inválida
A propósito já tentei mudar o tipo do SQL 2000 para text, mais continua dando o mesmo erro, alias fazendo outros testes só funciona com o tamanho no máximo de varchar(1000), entretanto, preciso no BD guardar informações e recuperar para um text box textos maiores que esses, como posso resolver isto, alguém pode me ajudar?
|
|
|
|
|
|
Postada em 14/12/2010 23:14 hs
Cara o sql server 2000 tem suporte de varchar ate de 8000 carateres. tenta fazer assim: Set QRS_B = M_ARQ.Execute("SELECT * FROM Registros_padroes Where IdCodigo=" + Str(lstRegistros.ItemData(lstRegistros.ListIndex)) + " ")
If Not QRS_B.EOF Then
txt_Nome = IIf(IsNull(QRS_B!Nome), 0, QRS_B!Nome)
Cbo_Classe.ListIndex = IIf(IsNull(QRS_B!CLASSE), 0, QRS_B!CLASSE)
TXT_Texto_Reg = IIf(IsNull(QRS_B!texto), " ", QRS_B!texto) <---o ERRO OCORRE AQUI
If Trim(QRS_B!TIPO) = "R" Then
Opt_Registro.Value = True
ElseIf Trim(QRS_B!TIPO) = "AV" Then
Opt_Averbacao.Value = True
End If
End If
vc tem msn? |
|
|
|
Ade
|
MACEIÓ
AL - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/12/2010 11:04 hs
Nos informes do SQL Server 2000, diz que o Campo do Tipo Varchar vai até 8000, alguém sabe informar o porque só estou conseguindo gravar até 1000. Existe outra forma de gravar e recuperar tais dados pelo VB6 no MSSQL2000 ou como gravar e recuperar em campo do tipo Text? Alguém teve alguma experiência com estes campos?
|
|
|
|
|
|
Postada em 19/12/2010 23:32 hs
Oi Ade, fiz o teste com campo tipo varchar e funciona perfeitamente no sql 2005 com text do vb com ou sem multiline. |
|
|
|
|
