none
CAMPOS EM BRANCO NO VS2012 USANDO ACCESS COMO BASE DE DADOS RRS feed

  • Pergunta

  • Pessoal.. sou desenvolvedor em VB6 há quase 12 anos e estou tentando migrar meus conhecimentos para o VS2012, entretanto, a cada dificuldade que me deparo, desisto de usar essa linguagem, que para eu, está difícil de me adptar. Rotinas que em VB6 eu faço de olhos fechados, no VS fico horas tentando e nao sai nada. Agora, estou tentando migrar um de meus sistemas para o VS2012 e estou empacado na rotina de alterar dados.. Já aprendi como INCLUIR e CHAMAR os dados do banco de dados para a tela, mas estou empacado na EDIÇÃO : alterar ou excluir um dado da base de dados.. alguma dica de como fazer ??? outra coisa, NA INCLUSÃO, o VS2012 nao deixa que um campo fique sem preencher, obrigando o  operador a preencher algo para que o VS GRAVE, caso contrario o VS nao deixa gravar, dizendo que existem campos em branco.. AFINAL, COMO FAZ PARA ESSA M.... DE LINGUAGEM DEIXAR UM CAMPO EM BRANCO , AFINAL, VAI TER CAMPO NA TELA QUE O OPERADOR DEREPENTE NAO TENHA EM MÃOS ,PARA INFORMAR...

    SEGUE MEU CODIGO DE INCLUSAO DE DADOS:

    Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\COB2012\SISTEMA.MDB")
            Dim cmd As New OleDb.OleDbCommand("INSERT INTO USUARIOS(usuario,setor,ender,bair,cida,cep,uf,email,fres,fcel,fcom,cobra,quota,comissiona,percom,sh,ac1,ac2,ac3,ac4,ac5,ac6,ac7,ac8)VALUES(@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9,@p10,@p11,@p12,@p13,@p14,@p15,@p16,@p17,@p18,@p19,@p20,@p21,@p22,@p23,@p24)", cn)
            cmd.Parameters.AddWithValue("@p1", USU.Text)
            cmd.Parameters.AddWithValue("@p2", SECAO.Text)
            cmd.Parameters.AddWithValue("@p3", ENDER.Text)
            cmd.Parameters.AddWithValue("@p4", BAIR.Text)
            cmd.Parameters.AddWithValue("@p5", CIDA.Text)
            cmd.Parameters.AddWithValue("@p6", CEP.Text)
            cmd.Parameters.AddWithValue("@p7", UF.Text)
            cmd.Parameters.AddWithValue("@p8", MAIL.Text)
            cmd.Parameters.AddWithValue("@p9", FONE.Text)
            cmd.Parameters.AddWithValue("@p10", FCEL.Text)
            cmd.Parameters.AddWithValue("@p11", RAMAL.Text)
            cmd.Parameters.AddWithValue("@p12", COBRA.Text)
            cmd.Parameters.AddWithValue("@p13", COTA.Text)
            cmd.Parameters.AddWithValue("@p14", COMI.Text)
            cmd.Parameters.AddWithValue("@p15", PERCOM.Text)
            cmd.Parameters.AddWithValue("@p16", SH.Text)
            If AC1.Checked = True Then
                cmd.Parameters.AddWithValue("@p17", "S")
            Else
                cmd.Parameters.AddWithValue("@p17", "N")
            End If
            If AC2.Checked = True Then
                cmd.Parameters.AddWithValue("@p18", "S")
            Else
                cmd.Parameters.AddWithValue("@p18", "N")
            End If
            If AC3.Checked = True Then
                cmd.Parameters.AddWithValue("@p19", "S")
            Else
                cmd.Parameters.AddWithValue("@p19", "N")
            End If
            If AC4.Checked = True Then
                cmd.Parameters.AddWithValue("@p20", "S")
            Else
                cmd.Parameters.AddWithValue("@p20", "N")
            End If
            If AC5.Checked = True Then
                cmd.Parameters.AddWithValue("@p21", "S")
            Else
                cmd.Parameters.AddWithValue("@p21", "N")
            End If
            If AC6.Checked = True Then
                cmd.Parameters.AddWithValue("@p22", "S")
            Else
                cmd.Parameters.AddWithValue("@p22", "N")
            End If
            If AC7.Checked = True Then
                cmd.Parameters.AddWithValue("@p23", "S")
            Else
                cmd.Parameters.AddWithValue("@p23", "N")
            End If

            If AC8.Checked = True Then
                cmd.Parameters.AddWithValue("@p24", "S")
            Else
                cmd.Parameters.AddWithValue("@p24", "N")
            End If
            cmd.Connection.Open()
            cmd.ExecuteNonQuery()
            cmd.Connection.Close()

            Try
                Dim idno As Object
                idno = 0
                Dim cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\COB2012\SISTEMA.MDB")
                USU.Items.Clear()
                If cn2.State = ConnectionState.Open Then cn.Close()
                cn2.Open()
                Dim ds As New DataSet
                Dim dr As DataRow
                Dim dt As New DataTable
                Dim adptr As New OleDb.OleDbDataAdapter("select * from USUARIOS", cn2)
                adptr.Fill(ds, "USUARIO")
                dt = ds.Tables(0)
                For Each dr In dt.Rows
                    USU.Items.Add(dr.Item("USUARIO"))
                Next
                cn.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

            Try
                USU.Text = ""
                SECAO.Text = ""
                ENDER.Text = ""
                BAIR.Text = ""
                FONE.Mask = ""
                FONE.Text = ""
                FONE.Mask = "(##)####-####"
                FCEL.Mask = ""
                FCEL.Text = ""
                FCEL.Mask = "(##)####-####"
                RAMAL.Mask = ""
                RAMAL.Text = ""
                RAMAL.Mask = "(##)####-####"
                CIDA.Text = ""
                UF.Text = ""
                CEP.Mask = ""
                CEP.Text = ""
                CEP.Mask = "##.###-###"
                MAIL.Text = ""
                COBRA.Text = ""
                COTA.Text = ""
                COMI.Text = ""
                PERCOM.Text = ""
                SH.Text = ""
                CREDOR.Text = ""
                CARTE.Text = ""
                AC1.Checked = False
                AC2.Checked = False
                AC3.Checked = False
                AC4.Checked = False
                AC5.Checked = False
                AC6.Checked = False
                AC7.Checked = False
                AC8.Checked = False
                USU.Focus()
            Catch ex As OleDb.OleDbException
                MessageBox.Show(ex.Message)
                cmd.Connection.Close()
            End Try
    domingo, 16 de junho de 2013 11:52