Jump to content
pa.oliv

TextBox Multiline

Recommended Posts

pa.oliv

Bom dia

À uns anos atrás (muitos) fiz um programa onde coloquei uma texbox multiline. Na altura ate pareceu boa ideia.

Agora, como era de esperar, essa ideia não é muito pratica e como já existem muitos cadastros esta alteração tem que ser feita automaticamente.

O que quero fazer é passar cada linha da textbox para uma linha individual da BD.

Exemplo:

O Manuel tem dois filhos, o FA e o FB.

Neste momento existe uma linha com o nome do Manuel e um campo com o FAFB.

  [n] [nome] [agregado] [....

Eu queria que a BD ficasse assim:

  [n] [n familia] [nome] [tipo (principal ou agregado)] [...

o [n familia] pode ser o [n] da 1ª tabela

Assim em vez de ter uma linha na tabela, fico com 3.

  [1] [1] [Manuel] [P] [...

  [2] [1] [FA      ] [A] [...

  [3] [1] [FB      ] [A] [...

Este codigo devolve-me o numero de linhas que a textbox tem.

        Dim lines As Integer
        Dim strString As String
        Dim myArray() As String
        strString = Agregado_familiarTextBox.Text
        myArray = Split(strString, vbCrLf)
        lines = myArray.Length
        TextBox5.Text = lines

Alguém tem alguma ideia .....

Obrigado

Share this post


Link to post
Share on other sites
FreiNando

Não sei qual é a DB que usas mas penso que podes fazer o seguinte:

1-Lês cada registo antigo atribuindo o indice [n familia]

2-Transformas para o array como indicaste

3-Alteras o registo com o indice [n familia] para o primeiro elemento do array com o tipo=principal

4-Crias novos registos com indice [n familia] para os outros elementos do array com o tipo=agregado

Assim quando pesquisares pelo indice de familia vai aparecer todos os registo relacionados.


O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.