[VB6] - Armazenando TXT em Notepad ! Ajuda

O Access só permite armazenar 255 caracteres?
Num campo de "Texto" talvez, mas num campo do tipo "Memo" acho que guarda quanto quiseres.
 
É fácil, abres a tabela na vista de estrutura e alteras o tipo de campo onde queres guardar o tempo grande de "Text" para "Memo".
 
desculpa amigo, mas n sabes mudar o tipo de dados no acess? Não tiveste que por lá "texto" em frente ao nome do campo? Tiveste que por o campo como sendo do tipo "texto", é so mudar de "texto" para "memo"
memoup4.jpg
 
OK..valeu.
Olha eu ñ tive assim muito conhecimento acerca do campo MEMO.
Outra questão seria na propria programação. eu deixo ele assim mesmo como esta ?
Desculpa é q eu não tenho o dominio da parte do memo !
Peço para colocares um exemplo de como é que deve gravar
Abraços
 
O problema é que não é em SQL.
Mais sim em VB6.
Eu preencho todos os campos so que no campo do texto no program tem limite não sei donde !
Eu kero que ele não tenhe limites. Isso porque o cliente so irá armazenar uma breve descrição sumária. Irei anexar a fig. só para ilustrar !
 
grrrrrrrr

é assim obvio que é vb6, mas a linguagem para gravar é sql.. percebes? eu programo em vb6, e uso a linguagem sql para conectar a base de dados.
Tas a confundir tudo, n tens k por limite nenhum, o MEMO "n tem limite", podes gravar o sumário que quiseres. Fazes o mesmo que fazes para gravar os outros campos de texto...
Se puseres aqui um exemplo de um codigo de como tu gravas as coisas, eu posso ser mais especifico.. ainda mais..
 
VB1.jpg


Na base de dados coloquei como MEMO.
Só que ele não vai mais. Os caracteres param...não consigo prolongar + no "txtdescricaosumaria"
Parece que ele trava quando tem 255 caracteres. Eu não quero q ele trave + sim prolongue até onde der !
 
Sub Gravar()
call conexao
r.Open "Select * from pagina2", b, adOpenStatic, adLockOptimistic
---saltei alguns passos que ñ interessa anexar ----

r("DescricaoSumaria") = txt18.Text
r.Update
desconexao
Exit Sub
mm:
erro

End Sub
Clicar para expandir...

O codigo completo

Sub Gravar()
On Error GoTo mm
Dim red As Boolean 'Variavel para verificar se determinado
'Codigo ja existe
red = False

conexao
r.Open "Select * from pagina2", b, adOpenStatic, adLockOptimistic

'Se o usuario Clicar em avancar os dados serao gravados em uma novaLinha
'se ele clicar em voltar e de novo em avancar criara uma nova
'linha com a mesma chave que a primeiara para evitar isso
'é necessario verificar se essa linha existe e se existir actualizar
'Se nao existir Criamos a linha
If r.RecordCount > 0 Then
r.MoveFirst
Do While Not r.EOF
If ID = r("Id") Then
red = True
Exit Do
End If
r.MoveNext
Loop
End If

If red = False Then
r.AddNew
r("ID") = ID
'Dando o codigo da tabela principal a uma tabela secundária
End If

r("Numero") = txt1.Text
r("Data") = txt2.Text

r("DesignacaoDoLocal") = txt3.Text
r("Provincia") = txt4.Text
r("Distrito") = txt5.Text
r("PostoAdministractivo") = txt6.Text
r("Localidade") = txt7.Text
r("Povoacao") = txt8.Text
r("Cidade") = txt9.Text
r("Vila") = txt10.Text
r("Municipio") = txt11.Text
r("EstradaNacionalNumero") = txt12.Text
r("EstradaSecundariaNumero") = txt13.Text
r("Latitude") = txt14.Text
r("Longitude") = txt15.Text
r("x") = txt16.Text
r("Y") = txt17.Text
r("DescricaoSumaria") = txt18.Text

If opt1.Value = 1 Then
'Se estiver selecionada a Opcao "Estrada nao Asfaltada"
r("EstradaNaoAsfaltada") = "X"
Else
r("EstradaNaoAsfaltada") = ""
End If

If opt2.Value = 1 Then
'Se estiver selecionada a Opcao "Caminho"
r("Caminho") = "X"
Else
r("Caminho") = ""
End If

If opt3.Value = 1 Then
'Se estiver selecionada a Opcao "Outro"
r("Outro") = "X"
Else
r("Outro") = ""
End If

If chk1.Value = 1 Then
'Se estiver selecionada a Opcao "Plutonico"
r("Plutonico") = "X"
Else
r("Plutonico") = ""
End If

If chk2.Value = 1 Then
'Se estiver selecionada a Opcao "Vulcanico"
r("Vulcanico") = "X"
Else
r("Vulcanico") = ""
End If

If chk3.Value = 1 Then
'Se estiver selecionada a Opcao "Metamorfico"
r("Metamorfico") = "X"
Else
r("Metamorfico") = ""
End If

If chk4.Value = 1 Then
'Se estiver selecionada a Opcao "Sedimentar"
r("Sedimentar") = "X"
Else
r("Sedimentar") = ""
End If

r.Update
desconexao
Exit Sub
mm:
erro

End Sub
Clicar para expandir...
 
wizard964 disse:
VB1.jpg


Na base de dados coloquei como MEMO.
Só que ele não vai mais. Os caracteres param...não consigo prolongar + no "txtdescricaosumaria"
Parece que ele trava quando tem 255 caracteres. Eu não quero q ele trave + sim prolongue até onde der !
Clicar para expandir...

LOL... rapaz, podias ter dito mais cedo que era isso. Isso é o limite da TextBox, Tens que ir as properties da TextBox em questão e onde esta, 255, poes 0. se n souberes fazer isso, metes no FormLoad isto:

NomedaTextBox.MaxLenght=0
 
Inicie sessão ou registe-se para poder participar.
Back
Topo