none
form cadastro RRS feed

  • Pergunta

  • ola pessoal fiz um form de cadastro e fiz a conecçao con bd access mas assim que faço a depuração ele mostra estes ERROS

    Uma exceção first chance do tipo 'System.IO.IOException' ocorreu em mscorlib.dll
    Uma exceção first chance do tipo 'System.InvalidCastException' ocorreu em Microsoft.VisualBasic.dll
    System.Transactions Critical: 0 : <TraceRecord xmlns="http://schemas.microsoft.com/2004/10/E2ETraceEvent/TraceRecord" Severity="Critical"><TraceIdentifier>http://msdn.microsoft.com/TraceCodes/System/ActivityTracing/2004/07/Reliability/Exception/Unhandled</TraceIdentifier><Description>Exceção não tratada</Description><AppDomain>Sistema de Eleição.exe</AppDomain><Exception><ExceptionType>System.Data.NoNullAllowedException, System.Data, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</ExceptionType><Message>Coluna 'Nome' não permite valores nulos.</Message><StackTrace>   em System.Data.DataColumn.CheckNullable(DataRow row)
       em System.Data.DataColumn.CheckColumnConstraint(DataRow row, DataRowAction action)
       em System.Data.DataTable.RaiseRowChanging(DataRowChangeEventArgs args, DataRow eRow, DataRowAction eAction, Boolean fireEvent)
       em System.Data.DataTable.SetNewRecordWorker(DataRow row, Int32 proposedRecord, DataRowAction action, Boolean isInMerge, Int32 position, Boolean fireEvent, Exception&amp;amp; deferredException)
       em System.Data.DataTable.InsertRow(DataRow row, Int64 proposedID, Int32 pos, Boolean fireEvent)
       em System.Data.DataView.FinishAddNew(Boolean success)
       em System.Data.DataRowView.EndEdit()
       em System.Windows.Forms.CurrencyManager.EndCurrentEdit()
       em System.Windows.Forms.CurrencyManager.ChangeRecordState(Int32 newPosition, Boolean validating, Boolean endCurrentEdit, Boolean firePositionChange, Boolean pullData)
       em System.Windows.Forms.CurrencyManager.set_Position(Int32 value)
       em System.Windows.Forms.BindingSource.set_Position(Int32 value)
       em System.Windows.Forms.BindingSource.MovePrevious()
       em System.Windows.Forms.BindingNavigator.OnMovePrevious(Object sender, EventArgs e)
       em System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e)
       em System.Windows.Forms.ToolStripButton.OnClick(EventArgs e)
       em System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)
       em System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)
       em System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)
       em System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)
       em System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)
       em System.Windows.Forms.Control.WmMouseUp(Message&amp;amp; m, MouseButtons button, Int32 clicks)
       em System.Windows.Forms.Control.WndProc(Message&amp;amp; m)
       em System.Windows.Forms.ScrollableControl.WndProc(Message&amp;amp; m)
       em System.Windows.Forms.ToolStrip.WndProc(Message&amp;amp; m)
       em System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message&amp;amp; m)
       em System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message&amp;amp; m)
       em System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       em System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG&amp;amp; msg)
       em System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
       em System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       em System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       em System.Windows.Forms.Application.Run(ApplicationContext context)
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       em Sistema_de_Eleição.My.MyApplication.Main(String[] Args) na 17d14f5c-a337-4978-8281-53493378c1071.vb:linha 81</StackTrace><ExceptionString>System.Data.NoNullAllowedException: Coluna 'Nome' não permite valores nulos.
       em System.Data.DataColumn.CheckNullable(DataRow row)
       em System.Data.DataColumn.CheckColumnConstraint(DataRow row, DataRowAction action)
       em System.Data.DataTable.RaiseRowChanging(DataRowChangeEventArgs args, DataRow eRow, DataRowAction eAction, Boolean fireEvent)
       em System.Data.DataTable.SetNewRecordWorker(DataRow row, Int32 proposedRecord, DataRowAction action, Boolean isInMerge, Int32 position, Boolean fireEvent, Exception&amp;amp; deferredException)
       em System.Data.DataTable.InsertRow(DataRow row, Int64 proposedID, Int32 pos, Boolean fireEvent)
       em System.Data.DataView.FinishAddNew(Boolean success)
       em System.Data.DataRowView.EndEdit()
       em System.Windows.Forms.CurrencyManager.EndCurrentEdit()
       em System.Windows.Forms.CurrencyManager.ChangeRecordState(Int32 newPosition, Boolean validating, Boolean endCurrentEdit, Boolean firePositionChange, Boolean pullData)
       em System.Windows.Forms.CurrencyManager.set_Position(Int32 value)
       em System.Windows.Forms.BindingSource.set_Position(Int32 value)
       em System.Windows.Forms.BindingSource.MovePrevious()
       em System.Windows.Forms.BindingNavigator.OnMovePrevious(Object sender, EventArgs e)
       em System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e)
       em System.Windows.Forms.ToolStripButton.OnClick(EventArgs e)
       em System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e)
       em System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e)
       em System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met)
       em System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met)
       em System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea)
       em System.Windows.Forms.Control.WmMouseUp(Message&amp;amp; m, MouseButtons button, Int32 clicks)
       em System.Windows.Forms.Control.WndProc(Message&amp;amp; m)
       em System.Windows.Forms.ScrollableControl.WndProc(Message&amp;amp; m)
       em System.Windows.Forms.ToolStrip.WndProc(Message&amp;amp; m)
       em System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message&amp;amp; m)
       em System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message&amp;amp; m)
       em System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
       em System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG&amp;amp; msg)
       em System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
       em System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       em System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       em System.Windows.Forms.Application.Run(ApplicationContext context)
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       em Sistema_de_Eleição.My.MyApplication.Main(String[] Args) na 17d14f5c-a337-4978-8281-53493378c1071.vb:linha 81</ExceptionString></Exception></TraceRecord>

    alguem pode me ajudar?

    no codigo Eu tenho estas linhas

    Public Class Cadastro

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            TxtNome.Text = ""
            TxtIdade.Text = ""
            TxtRaca.Text = ""
            TxtSexo.Text = ""
            TxtDtSaida.Text = ""
            TxtDtEntrada.Text = ""
            TxtDtCastracao.Text = ""
            TxtCor.Text = ""
            TxtNome.Focus()

        End Sub

        Private Sub TxtNome_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNome.TextChanged


        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TxtNome.Focus()


        End Sub

        Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End Sub





        Public Sub New()

            ' Esta chamada é necessária para o Windows Form Designer.
            InitializeComponent()

            ' Adicione qualquer inicialização após a chamada InitializeComponent().

        End Sub

        Protected Overrides Sub Finalize()
            MyBase.Finalize()
        End Sub


        Private Sub Cadastro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'TODO: esta linha de código carrega os dados para a tabela 'BDCaoDataSet.Cadastro'. Você pode movê-la, ou removê-la, conforme necessário.
            Me.CadastroTableAdapter.Fill(Me.BDCaoDataSet.Cadastro)

        End Sub
    End Class

    sou  iniciante mesmo

    por favor me ajudem

     


    Antonio Carlos acefeli@hotmail.com
    domingo, 31 de julho de 2011 20:05

Respostas

  • bom, acefel primeiras questões

     

    Vi que esta usando o acess, mas a conexão esta funcionando?

    mostre o codigo.

    será algo +/- assim

    If bdnet.State = ConnectionState.Closed Then
    bdnet.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;" & "Data Source=C:\banci\bdnet.mdb"
    bdnet.Open()
    End If

     

    depois disso faremos  o form cadastro, ok? aguardo


    Jean Felipe
    Email: jeanfelipfiais@hotmail.com
    Twitter: @JeanFelipe_



    • Marcado como Resposta acefel terça-feira, 9 de agosto de 2011 21:06
    segunda-feira, 1 de agosto de 2011 16:28

Todas as Respostas

  • bom, acefel primeiras questões

     

    Vi que esta usando o acess, mas a conexão esta funcionando?

    mostre o codigo.

    será algo +/- assim

    If bdnet.State = ConnectionState.Closed Then
    bdnet.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;" & "Data Source=C:\banci\bdnet.mdb"
    bdnet.Open()
    End If

     

    depois disso faremos  o form cadastro, ok? aguardo


    Jean Felipe
    Email: jeanfelipfiais@hotmail.com
    Twitter: @JeanFelipe_



    • Marcado como Resposta acefel terça-feira, 9 de agosto de 2011 21:06
    segunda-feira, 1 de agosto de 2011 16:28
  • Boa tarde Jean

    Sou totalmente iniciante caro colega poderia me dizer onde Eu insiro este código?

    Partindo do inicio este é o codigo do meu Form Cadastro os unicos codigos que fiz até agora sao estes em negrito.

    -------------------------------------------------------------------------------------------------------------------

    Public Class Cadastro

        Private Sub BtnConsultar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConsultar.Click
            TxtNome.Focus()

        End Sub

        Private Sub TxtNome_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNome.TextChanged


        End Sub

        Private Sub BtnLimpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLimpar.Click
            TxtNome.Text = ""
            TxtIdade.Text = ""
            TxtRaca.Text = ""
            TxtSexo.Text = ""
            TxtDtSaida.Text = ""
            TxtDtEntrada.Text = ""
            TxtDtCastracao.Text = ""
            TxtCor.Text = ""
            TxtNome.Focus()


        End Sub

        Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End Sub
        Public Sub New()

            ' Esta chamada é necessária para o Windows Form Designer.
            InitializeComponent()

            ' Adicione qualquer inicialização após a chamada InitializeComponent().

        End Sub

        Protected Overrides Sub Finalize()
            MyBase.Finalize()
        End Sub


        Private Sub Cadastro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'TODO: esta linha de código carrega os dados para a tabela 'BDCaoDataSet.Cadastro'. Você pode movê-la, ou removê-la, conforme necessário.
            Me.CadastroTableAdapter.Fill(Me.BDCaoDataSet.Cadastro)
            TxtNome.Focus()


        End Sub

        Private Sub BtnCadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCadastrar.Click

        End Sub
    End Class

    ---------------------------------------------------------------------------------------------------------------------------------------------

    veja bem ele contem tbem um TxtObs.text para o funcionario acrescentar alguma observaçao. E tbem um picturebox para colocar uma foto quando solicitado o cadastro e quando for consultar

    Agradeço pela ajuda

     


    Antonio Carlos acefeli@hotmail.com
    segunda-feira, 1 de agosto de 2011 20:35
  • bom, primeiramente vc tem que escolher um banco de dados e criar suas tabelas

     

    acho que vc usara o acess, sabe usá-lo?

    se souber crie ele e salve em 2003 (word antigo, pra rodar em qualqer office)

     

    e crie uma tabela chamada Cadastro

    dentro da tabela coloque os campos, na ordem que vc usara no form,(essa ordem foi como vc passou ali em cima) nome, idade, raça, sexo, data saida, data entrada, data castração, cor,

    agora, vc salve esse banco

    e crie uma pasta no C:\ e coloque o banco dentro da pasta, ele ficara assim

     

    C:\bd\bd.mdb

     

    quando fizer isso, vamo continuando.


    Jean Felipe
    Email: jeanfelipfiais@hotmail.com
    Twitter: @JeanFelipe_

    terça-feira, 2 de agosto de 2011 13:35
  • ok Jean já esta pronto podemos continuar Eu devo colocar tbem o campo ObjectOLE ?
    Antonio Carlos acefeli@hotmail.com
    quarta-feira, 3 de agosto de 2011 10:44
  • ok Jean já esta pronto podemos continuar Eu devo colocar tbem o campo ObjectOLE ?
    Antonio Carlos acefeli@hotmail.com


    faz download do sql server express. gravar imagens no access e complexo.

    fica facil grAvar apenas o caminho


    One word frees us of all the weight and pain of life: that word is love.
    quarta-feira, 3 de agosto de 2011 12:20
    Moderador
  • Veja bem jean Eu nunca usei o SQL porem nunca é tarde para aprender Eu consigo fazer a tabela pelo Sql tbem? pois quero fazer uma aplicação que o cliente possa utilizar mesmo sem internet em modo local, será que o bd Access não é mais viavel? Eu utilizo SO seven 64bits e quero fazer aplicaçoes para o uso tbem em 32 bits e utilizar tbem o access. Grato pelo apoio
    Antonio Carlos acefeli@hotmail.com
    quarta-feira, 3 de agosto de 2011 13:22
  • bom, no sql é complicado para usar de cara assim, vc tem que pegar as manhas no acess primeiro dai vc engatinha sozinho pro sql, fiz o msm, tanto que uso, acess ou mysql ou sqlserver ou postgres é msm coisa a unica coisa que muda, são coisas simples tipow, nome de variavel, var char ou só char essas coisas

     

    mas vamos la vc criou um bd acess, com o nome da tabela, Cadastro e colunas como nome, idade, raça, sexo, data saida, data entrada, data castração, cor, certo?

     

    e vc criou sua pasta no C:\bd\bd.mdb nesse formato certo?

    se sim vamos a programar, se não faça isso

    obs: não entendi o que quis dizer com  "Eu devo colocar tbem o campo ObjectOLE ?"

     

    mas vamos la

     

    agora vamos , declarar nossa biblioteca que usaremos, que será da seguinte forma

     

    Imports System.Data.OleDb 
    Public Class Form1
    Friend Shared bd As New OleDbConnection

    bem no inicio de seu form, agora vamos realizar a conexão e ver se ela funciona

     

     

     coloque isso no load form

    Private Sub Form3_Load..
    
    If bd.State = ConnectionState.Closed Then
    bd.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;" & "Data Source=C:\bd\bd.mdb"
    bd.Open()
    MsgBox("Conexão realizada com sucesso!")
    Else
    MsgBox("Falha na conexão!")
    End If
    
    End Sub
    
    
    
    
    
    

     

     

    bom, vou explicar por cima como isso funciona

    se o estado da minha  conexão estiver fechado então faça

    procure em minha biblioteca Oledb (que vc importou la emcima "Imports System.Data.OleDb") e pegue o caminho da pasta aonde esta o meu banco que é o que mandei vc fazer ("C:\bd\bd.mdb")

    se achou e ocorreu tudo certo abrira a conexão e mostre o msgbox

    se não mostre msgbox de erro 

     

    vamos la, tem que dar certo ; D

    boa sorte e vamos devagar ok?


     

     

     

     


    Jean Felipe
    Email: jeanfelipfiais@hotmail.com
    Twitter: @JeanFelipe_


    quarta-feira, 3 de agosto de 2011 15:52
  • @acefel

    fica facil trabalhar com Sql Server do que access. so tens de fazer downlaod do Sql Server Management Studio Express:

    http://www.microsoft.com/download/en/details.aspx?id=8961

    esta interface te permite criar tabela, facilmente como no access.


    One word frees us of all the weight and pain of life: that word is love.
    quarta-feira, 3 de agosto de 2011 21:17
    Moderador
  • Boa noite Jean desculpe pela demora mas tive alguns problemas e só agora consegui voltar aos estudos.

    Bom fiz conforme solicitado e esta funcionando, mas ele aparece este erro

    (A first chance exception of type 'System.InvalidOperationException' occurred in System.Data.dll )

    oque será isto.

    há tbem gostaria de usar botoes de comando para realizar as funções que sao realizadas pelos comandos que aparecem naquela barra quando conectamos o bd, sabe aquela barra onde tem os comando de (< retroceder,>proseguir,+novo cadastro, gravar) e tbem colocar a imagem conforme o nr.registro  referente ao animal.

    grato pela atençao


    Antonio Carlos acefeli@hotmail.com
    quinta-feira, 4 de agosto de 2011 22:43
  • Boa noite colega malange

    veja bem como sou iniciante e ja tenho um pequeno conhecimento minimo no access no momento Eu prefiro utilizar este bd até mesmo para melhorar meu conhecimento com access. mas agradeço muito pela sua atençao e sou grato pelos seus conhecimentos e espero sua colaboraçao em meu aprendizado e por gentileza caso vc tenha a resposta para minhas perguntas agradeço novamente pela colaboraçao.


    Antonio Carlos acefeli@hotmail.com
    quinta-feira, 4 de agosto de 2011 22:48
  • acefel colocou o import certo?

    tem que ser parecido com isso

    Imports System.Data.OleDb 
    Public Class Form1
    Friend Shared bd As New OleDbConnection

    Private Sub Form3_Load.. If bd.State = ConnectionState.Closed Then bd.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;" & "Data Source=C:\bd\bd.mdb" bd.Open() MsgBox("Conexão realizada com sucesso!") Else MsgBox("Falha na conexão!") End If End Sub
    end class

    Jean Felipe
    Email: jeanfelipfiais@hotmail.com
    Twitter: @JeanFelipe_

    sexta-feira, 5 de agosto de 2011 13:21
  • Vc está indo no caminho certo Acefel!...

    Comece com Access aprimore seus conhecimentos nas modelagens,programação que assim voce vai longe.

    Tanto que eu comecei com access e ja estou com SQL Server,tamebm sou estudante,aprendi muito!!! Ainda mais tendo ajuda do pessoal do forum! Essencial! ;)

    Abraços!

    sexta-feira, 5 de agosto de 2011 15:04
  • VEJA SE ESTA CERTO

    Imports System.Data.OleDb
    Public Class FrmCad
        Friend Shared bd As New OleDbConnection

        Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            'TODO: esta linha de código carrega os dados para a tabela 'BdCaoDataSet.Cadastro'. Você pode movê-la, ou removê-la, conforme necessário.
            Me.CadastroTableAdapter.Fill(Me.BdCaoDataSet.Cadastro)
            If bd.State = ConnectionState.Closed Then
                bd.ConnectionString = "Provider = Microsoft.Jet.OleDb.4.0;" & "Data Source=C:\bd\bdcao.mdb"
                bd.Open()
                MsgBox("Conexão realizada com sucesso!")
            Else
                MsgBox("Falha na conexão!")

            End If
        End Sub

        Private Sub CadastroBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CadastroBindingNavigatorSaveItem.Click
            Me.Validate()
            Me.CadastroBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.BdCaoDataSet)

        End Sub

        Private Sub BindingNavigatorMovePreviousItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMovePreviousItem.Click

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End Sub

        Private Sub NomeTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNome.TextChanged
            TxtNome.Text = TxtNome.Text.ToUpper

        End Sub

        Private Sub TxtEspecie_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtEspecie.TextChanged
            TxtEspecie.Text = TxtEspecie.Text.ToUpper
        End Sub

        Private Sub TxtCor_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtCor.TextChanged
            TxtCor.Text = TxtCor.Text.ToUpper
        End Sub

        Private Sub TxtIdade_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtIdade.TextChanged
            TxtIdade.Text = TxtIdade.Text.ToUpper
        End Sub

        Private Sub TxtSexo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtSexo.TextChanged
            TxtSexo.Text = TxtSexo.Text.ToUpper
        End Sub
        Private Sub TxtDtEntrada_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End Sub

        Private Sub CheckBoxCastrado_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxCastrado.CheckedChanged
            'MkTxtDtCast.DataBindings.Add("Enabled", CheckBoxCastrado, "Checked")
        End Sub

        Private Sub MkTxtDtCast_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs) Handles MkTxtDtCast.MaskInputRejected

        End Sub

        Private Sub TxtObs_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtObs.TextChanged
            TxtObs.Text = TxtObs.Text.ToUpper
        End Sub
    End Class

    -----------------------------------------------

    Eu nao entendi o ? disto

    Private Sub Form3_Load..

    Antonio Carlos acefeli@hotmail.com
    sexta-feira, 5 de agosto de 2011 20:16
  • valeu pelo apoio Edu

    Caso queira me ajudar fique a vontade

    preciso agora realizar uma soma de 2 masckedbox

    mkbox dt entrada  e mkbox saida    preciso  realizar esta soma em um form de consulta vou colocar label resposta para calcular o tempo em dias que o animal ficou enternado

    pode me ajudar?


    Antonio Carlos acefeli@hotmail.com
    sexta-feira, 5 de agosto de 2011 20:24
  • ta certo, soh que o
    Private Sub Form3_Load.. 
    era no meu form, no seu vc muda pro seu
    Jean Felipe
    Email: jeanfelipfiais@hotmail.com
    Twitter: @JeanFelipe_

    sábado, 6 de agosto de 2011 02:19
  • legal  Jean

    Valeu vou formalizar outra questao para ajudar tbem nossos colegas


    Antonio Carlos acefeli@hotmail.com
    sábado, 6 de agosto de 2011 17:36
  • agora tente : D

    'comando cadastrar
    
    comando.Connection = BD
    comando.CommandType = CommandType.Text
     comando.CommandText = "INSERT INTO tabela (Nome, Empresa, Telefone, Tipo, Email, EmailEmpresa)" & "VALUES ('" & TextBox1.Text.ToUpper & "', " & "'" & TextBox2.Text.ToUpper & "', " & "'" & TextBox3.Text.ToUpper & "', " & "'" & TextBox4.Text.ToUpper & "', " & "'" & TextBox5.Text.ToUpper & "', " & "'" & TextBox6.Text.ToUpper & "')"
    Try
    comando.ExecuteNonQuery()
    MessageBox.Show("Registro inserido com sucesso!", "Stock'n Sale", MessageBoxButtons.OK)
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    TextBox4.Text = ""
    TextBox5.Text = ""
    TextBox6.Text = ""
    TextBox1.Focus()
    Catch ex As Exception
    MessageBox.Show("Erro de inclusão! " & Err.Description, "Stock'n Sale", MessageBoxButtons.OK)
    End Try
    

     


    Jean Felipe
    Email: jeanfelipfiais@hotmail.com
    Twitter: @JeanFelipe_


    segunda-feira, 8 de agosto de 2011 17:03
  • Jean vamos manter contato a respeito do FormCad neste outro treand

    http://social.msdn.microsoft.com/Forums/pt-BR/vsvbasicpt/thread/e41041eb-9e74-4604-82e9-5ebc7119cff3


    Antonio Carlos acefeli@hotmail.com
    segunda-feira, 8 de agosto de 2011 23:57
  • ok, marca uma resposta como certa e vamo toca o barco com outro post
    Jean Felipe
    Email: jeanfelipfiais@hotmail.com
    Twitter: @JeanFelipe_

    • Marcado como Resposta acefel terça-feira, 9 de agosto de 2011 21:05
    • Não Marcado como Resposta acefel terça-feira, 9 de agosto de 2011 21:05
    terça-feira, 9 de agosto de 2011 13:15