SALVANDO MAIS DE UMA OPCAO DO TEXTBOX

[wilherme]

Gostaria de salvar mais que uma opção do meu textbox

No textbox recebe o nome das empresas e na hora de salvar ele só salva uma.

ele ate da a mensagem de salvo com sucesso mas não salva no banco

Como poderia fazer para salvar mais que uma opção?

Private Sub btnCadastroSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCadastroSalvar.Click
        Me.Salvar()
    End Sub
    Protected Sub Salvar()
        Try
            For Each Empresa1 As String In txtEmpresa.Text
                Dim conexao As New clsConexao
                ' primeiro o nome de como esta no banco e depois o textBox
                Dim cnpj As String = mktCadastroCnpj.Text
                Dim inscricaoEstadual As String = mktCadastroInscricao.Text
                Dim Empresa As String = txtEmpresa.Text
                Dim razaoSocial As String = txtCadastroRazao.Text
                Dim endereco As String = txtCadastroEndereco.Text
                Dim numero As String = txtCadastroNumero.Text
                Dim bairro As String = txtCadastroBairro.Text
                Dim cidade As String = txtcadastroCidade.Text
                Dim estado As String = cboCadastroEstado.Text
                Dim telefone As String = mktCadastroTelefone.Text
                Dim fax As String = mktCadastroFax.Text
                Dim contato As String = txtCadastroContato.Text
                Dim cargo As String = txtCadastroCargo.Text
                Dim email As String = txtCadastroEmail.Text
                Dim condPgto As String = txtCadastroCondicao.Text
                Dim transportadora As String = txtCadastroTransportadora.Text
                Dim telTransport As String = mktCadastroTelTransp.Text
                Dim observacao As String = txtCadastroObservacao.Text
                Dim tabela As New Data.DataTable
                If ((((Trim(cnpj.Replace(".", "").Replace("-", "").Replace("/", "")) <> "" And Trim(inscricaoEstadual.Replace(".", "")) <> "") And (Empresa <> "" And razaoSocial <> "") And (endereco <> "" And numero <> "") And (bairro <> "" And cidade <> "")) And ((estado <> "" And telefone <> "") And (fax <> "" And contato <> "") And (cargo <> "" And email <> "") And (condPgto <> "" And transportadora <> ""))) And (telTransport <> "" And observacao <> "")) Then
                    ValidaCnpj()
                    If VerificaCnpj = True Then
                        ValidaIE()
                        If VerificaIE = True Then
                            Dim Buscacnpj As String = "select cnpj from tbCadastro where cnpj = '" & cnpj & "'"
                            tabela = conexao.executeQuery(Buscacnpj)
                            If tabela.Rows.Count = 0 Then
                                Dim busca As String = "insert into tbCadastro (cnpj,inscricaoEstadual,Empresa,razaoSocial,endereco,numero,bairro,cidade,estado,telefone,fax,contato,cargo,email,condPgto,transportadora,telTransport,observacao) values ("
                                busca += Chr(34) & cnpj & Chr(34) & ","
                                busca += Chr(34) & inscricaoEstadual & Chr(34) & ","
                                busca += Chr(34) & Empresa & Chr(34) & ","
                                busca += Chr(34) & Trim(razaoSocial) & Chr(34) & ","
                                busca += Chr(34) & endereco & Chr(34) & ","
                                busca += Chr(34) & numero & Chr(34) & ","
                                busca += Chr(34) & bairro & Chr(34) & ","
                                busca += Chr(34) & cidade & Chr(34) & ","
                                busca += Chr(34) & estado & Chr(34) & ","
                                busca += Chr(34) & telefone & Chr(34) & ","
                                busca += Chr(34) & fax & Chr(34) & ","
                                busca += Chr(34) & contato & Chr(34) & ","
                                busca += Chr(34) & cargo & Chr(34) & ","
                                busca += Chr(34) & email & Chr(34) & ","
                                busca += Chr(34) & condPgto & Chr(34) & ","
                                busca += Chr(34) & transportadora & Chr(34) & ","
                                busca += Chr(34) & telTransport & Chr(34) & ","
                                busca += Chr(34) & observacao & Chr(34) & ")"
                                conexao.executeNonQuery(busca)
                                MessageBox.Show("Cadastro Salvo com Sucesso", "OK", MessageBoxButtons.OK, MessageBoxIcon.Information)
                                LimpaCampos()
                            Else
                                MessageBox.Show("Cnpj já Cadastrado", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
                            End If
                        End If
                        Exit Sub
                    End If
                    Exit Sub
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("Preencha todos os campos", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        'Else
        '    MessageBox.Show("Preencha todos os campos", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        'End If
    End Sub

Editado Abril 28, 2011 por kuroi
Adicionar tag CODE

[Matheus-vb6]

Gostaria de salvar mais que uma opção do meu textbox

No textbox recebe o nome das empresas e na hora de salvar ele só salva uma.

ele ate da a mensagem de salvo com sucesso mas não salva no banco

Como poderia fazer para salvar mais que uma opção?

Não entendi nada cara.... como assim mais que uma opção do TEXTBOX?

[wilherme]

meu textbox esta assim:

lacta

nestle

Existe mais de uma linha no meu textbox...

e ele está salvando só uma...

[kuroi]

isso não é visual basic e sim visual basic .net.

vou mover pro lugar certo.

agora você quer gravar dois registros no banco, ou quer gravar um só, mas q quer q aparecam as duas empresas no mesmo campo no mesmo registro??

[wilherme]

agora você quer gravar dois registros no banco, ou quer gravar um só, mas q quer q aparecam as duas empresas no mesmo campo no mesmo registro??

Sim eu quero gravar o registro no banco e no mesmo campo tambem...

E possivel isso ou terei que fazer diferente?

[kuroi]

wilherme, q banco de dados você usa??

acho q na verdade, ele deve ta gravando certo com esse codigo q você usa, mas na hora q você abre no banco, ele só mostra a primeira linha, exatamente porque cada registro só ocupa o tamanho de uma linha. no access por exemplo, se você aumentar o tamanho da linha na vertical, você vai ver o conteudo do campo todo, e a linha debaxo deve estar la.

ou se você ler o registro no seu programa e mostrar no formulario, ele deve mostrar as duas linha, não??