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?

meu textbox esta assim: lacta nestle Existe mais de uma linha no meu textbox... e ele está salvando só uma...

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

O que será que esta errado no meu codigo fonte? Codigo da minha tela de CadastroEscola ************************************************** Private Sub ImpExcel() Dim xlWorkSheet As Excel.Worksheet 'Dim dataAtual As Date 'Dim dataNasc As Date Dim xl As New Excel.Application Dim xlw As Excel.Workbook Dim idade As Long 'Abrir o arquivo do Excel Set xlw = xl.Workbooks.Open(Application.GetOpenFilename(fileFilter:="xls Files (*.xls), *.xls")) 'xlWorkSheet = xlw.Worksheets("Plan1") 'Definir qual a planilha de trabalho xlw.Sheets("Plan1").Select 'Exibe o conteúdo da célula na posição 2,3 ' variavel = xlw.Application.Cells(2, 3).Value 'MsgBox xlw.Application.Worksheets(1).txtNome.Text 'dataAtual = Now.Date 'dataNasc = Parse.Date(txtNascimento.Text) 'Preenche os TextBox do formulário a partir dos dados do arquivo excel importado TextBox5.Text = xlw.Application.Worksheets(1).TextBox1.Text TextBox6.Text = xlw.Application.Worksheets(1).TextBox2.Text TextBox8.Text = xlw.Application.Worksheets(1).TextBox4.Text TextBox1.Text = xlw.Application.Worksheets(1).TextBox5.Text TextBox7.Text = 2011 - (Mid(xlw.Application.Worksheets(1).TextBox3.Text, 7, 10)) ' Image2.Picture = xlw.Application.Workbooks(1).Image1.Picture 'Image2.Picture = LoadPicture(xlw.Application.Worksheets(1).Image1) 'Image2.Picture = xlw.Application.Worksheets(1).Image1.Text ' aaaaaa ' Fechar a planilha sem salvar alterações ' Para salvar mude False para True xlw.Close False ' Liberamos a memória Set xlw = Nothing Set xl = Nothing End Sub Private Sub CommandButton12_Click() ImpExcel End Sub 'Private Sub CommandButton1_Click() Private Sub CommandButton_Seleciona_Click() Exibe_Caixa_Dialogo End Sub End Sub Private Sub CommandButton_Click() Exibe_Caixa_Dialogo End Sub **************************************************************** Codigo da minha tela CadastroAluno **************************************************************** Private Sub CommandButton_Seleciona_Click() Exibe_Caixa_Dialogo End Sub Sub Exibe_Caixa_Dialogo() Set CaixaDialogo = Application.FileDialog(msoFileDialogFilePicker) With CaixaDialogo .Title = "wilherme" .InitialView = msoFileDialogViewPreview .AllowMultiSelect = False If .Show = -1 Then EnderecoImagem = .SelectedItems(1) Image1.Picture = LoadPicture(.SelectedItems(1)) End If End With End Sub Private Sub CommandButton1_Click() ActiveWorkbook.Save End Sub Private Sub CommandButton5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then TextBox2.Activate End If End Sub Private Sub Image1_Click() End Sub Private Sub Label1_Click() End Sub 'Private Sub CommandButton4_Click() Private Sub UserForm1_Initialize() AtualizaListaEstados CadastroCodigo = Dados.Range("CodCalc").Value + 1 TextBox_Codigo.Value = CadastroCodigo AtualizaComboBoxPesquisa End Sub Private Sub CommandButton5_Click() End End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then TextBox2.Activate End If End Sub Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then TextBox3.Activate End If End Sub Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then TextBox4.Activate End If End Sub Private Sub TextBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then TextBox5.Activate End If End Sub Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then CommandButton1.Activate End If End Sub ***********************************************************************

Como assim: mortrar meu arquivo?

Tenho essa tela: Na tela aluno ele se cadastra e vai inserir uma foto dele, ate ai tudo bem... Na tela escola clico no botão importar e me traz todas as informações do espectivo aluno menos a foto dele... Como faço para importar a foto junto? Wilherme Constantinov Mattos

Num sei se te ajuda mas vai ai http://www.macoratti.net/vbn_pdf1.htm Wilherme

Porque ninguém me ajuda?

Bom dia pessoal sou iniciante nisso ainda e não sei bem como fazer e gostaria de umas dicas de como fazer isso: Elaborar uma Macro: Cadastro de turma até 10 aluno(nome da turma, serie da turma,numero da sala dessa turma) importe dados de um aluno(nome, sobrenome, data de nascimento, endereço completo, serie a cursar) Ao importar o esses dados que virão em formato excell, o sistema deverá calcular a idade do aluno automaticamente, adicionar uma foto e inserilo em uma turma previamente cadastrada(combo). Ao terminar o cadastro do aluno quero que isso seja gravado em outra aba dentro da turma correepondente. Os dados nessa outra aba serão (numero do aluno(id crescente), nome) Estou tentando mas não consigo estou bastante confuso ainda. Att: Wilherme Constantinov Mattos