|
|
Postada em 20/12/2010 11:34 hs
VC fez o teste que informe:
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.text = IIf(IsNull(QRS_B!Nome), 0, QRS_B!Nome)
Cbo_Classe.ListIndex = IIf(IsNull(QRS_B!CLASSE), 0, QRS_B!CLASSE)
TXT_Texto_Reg.Text = IIf(IsNull(QRS_B!texto), " ", QRS_B!texto)
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
fiz um teste e grava perfeitamente no sql 2000 e 2005 e mostro num text do vb 6.0 com o sem multiline.
|
|
|
|
|
|
|
|
Postada em 20/12/2010 13:39 hs
Oi Juan,
a forma como eu estou inserindo no MSSQL 2000, com campo do tipo varchar e/ou text é como mostrado abaixo:
M_ARQ.Execute "INSERT INTO Registros_Padroes (IDCodigo,Tipo,Nome,Classe,Texto)VALUES (" + Str(m_seq) + ",'" + M_LETRA + "','" + txt_Nome + "'," + CStr(Cbo_Classe.ItemData(Cbo_Classe.ListIndex)) + ",'" + TXT_Texto_Reg + "')"
Obs: O campo Texto é gravado sem dar erro algum, só acontecendo quando vou mostrar o mesmo após consulta no banco, como expliquei acima. Por favor coloque o código que você usou para inserir os registros para que eu possa comparar. Outra infomação é que eu uso a conexão com o BD via ODBC não sei se tem alguma coisa haver. Será que é tão dificil assim para guardar uma simples informação de texto num BD? E ninguém já usou isto no MSSQL 2000 com o VB6?
|
|
|
|
|
|
Postada em 20/12/2010 13:40 hs
Oi Juan,
a forma como eu estou inserindo no MSSQL 2000, com campo do tipo varchar e/ou text é como mostrado abaixo:
M_ARQ.Execute "INSERT INTO Registros_Padroes (IDCodigo,Tipo,Nome,Classe,Texto)VALUES (" + Str(m_seq) + ",'" + M_LETRA + "','" + txt_Nome + "'," + CStr(Cbo_Classe.ItemData(Cbo_Classe.ListIndex)) + ",'" + TXT_Texto_Reg + "')"
Obs: O campo Texto é gravado sem dar erro algum, só acontecendo quando vou mostrar o mesmo após consulta no banco, como expliquei acima. Por favor coloque o código que você usou para inserir os registros para que eu possa comparar. Outra infomação é que eu uso a conexão com o BD via ODBC não sei se tem alguma coisa haver. Será que é tão dificil assim para guardar uma simples informação de texto num BD? E ninguém já usou isto no MSSQL 2000 com o VB6?
|
|
|
|
|
|
Postada em 20/12/2010 18:22 hs
M_ARQ.Execute "INSERT INTO Registros_Padroes (IDCodigo,Tipo,Nome,Classe,Texto)VALUES (" & Str(m_seq) & ",' " & M_LETRA & " ',' " & txt_Nome.Text & " '," & CStr(Cbo_Classe.ItemData(Cbo_Classe.ListIndex)) & ",' " & TXT_Texto_Reg .Text & " ')"
Bem. eu uso o & em vez do + , mais tudo bem
no banco o campo texto esta como varchar(8000)
|
|
|
|
|
|
Postada em 20/12/2010 21:30 hs
Olá,
E para mostrar ou recuperar a informação guardada no BD, como é que você fez, posta aí, é diferente do que fiz?
|
|
|
|
|
|
Postada em 21/12/2010 10:59 hs
banco dados sql 2005
cod_mar=numeric(4)
des_mar=varchar(8000)
é assim que eu gravo minha tabela marcas.
Fiz o teste e funciona perfeitamente, eu uso ADO, deixe de usar DAO a muito anos. com multiline ou sem multiline, verifique la propiedade do texbox em maxlength, se tiver menor de 8000, mais se não tiver não ha problema não.
Cn.Execute "insert into MARCAS(cod_mar,des_mar)values('" & TextCodMar.Text & "','" & TextMarca.Text & "')"
OBSERVACOES: VC VERIFICOU SE NO BANCO GRAVOU O TAMNHO DE CARATERES CORRETAMENTE?. NÃO TEM MISTERIO NÃO. PQ O TEXBOX RECEBE O QUE TA NO BANCO
|
|
TÓPICO EDITADO
|
|
|
|
|
