Visual Basic.NET - AutoNumerico

' ... ... ...

Instruccion = New OleDbCommand("INSERT INTO Registro(ApellidoP, ApellidoM,ApellidoCompleto,Nombres,Tipo,Dni,FechaNacimiento,Edad,Sexo,Nacionalidad,Direccion,Categoria,DatosComp,Licencia,FechaE,FechaR,Condicion,Estado,Ecsal,Restricciones,FechaM,Escuela,FechaEs,Tramite,Lugar,Ano,Costo,GrupoSan,Servicio,Donacion,FechaRegistro)" &

"values(Ap,Am,Completo,Nom,CmbTipo,DNI,DateTimePicker1,Edades,CnbSexo,CmbNacionalidad,Casa,CmbCat,TextBox1,Licencias,DateTimePicker2,Fv,CmbCondi,CbEstado,CmbMedico,CmbRes,MaskFechaM,CmbEscuela,MaskFechaV,CmbTramite,CmbDestino,Anio,TextBox2,Cbgrupo,TxtServicio,Cbdonacion,TxtFecha)", conn)

' ... ... ...

' ... ... ...

' ************    Instruccion.Parameters.AddWithValue("@Codigo", TxtCodigo.Text)

' ... ... ...

' ... ... ...

Try

Dim codProveedor As Integer = GetNextAutoNumeric()

Dim codigos = String.Format("23L{0:}", codProveedor)

TxtCodigo.Text = CStr(codigos)

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

Dim codProveedor As Integer = GetNextAutoNumeric()

Dim codigos = String.Format("23L{0:}", codProveedor)

TxtCodigo.Text = CStr(codigos)

TxtCodigo.Text = "23L" & GetNextAutoNumeric.ToString

Private Function AgregarEnDB() As Boolean

        Dim SQL As String

        ParametroConexion()

        MiConexion.Open()

        MiComando = MiConexion.CreateCommand()

        SQL = "INSERT INTO TProductos (Articulo, Stock_A) VALUES(@Articulo, @StockA); "

        MiComando.CommandText = SQL

        ' El campo ID es NumAuto, es dado por el DB

        MiComando.Parameters.AddWithValue("@Articulo", TBArticulo.Text)

        MiComando.Parameters.AddWithValue("@StockA", TBStockA.Text)

        If MiComando.ExecuteNonQuery() = 1 Then

            ' Agregacion OK

            SQL = "SELECT @@IDENTITY"  ' da el ultima Id creado para el sistema

            MiComando.CommandText = SQL

            Dim UltimaId As Integer = MiComando.ExecuteScalar()

            Dim NuevoCodigo As String = "23L" & String.Format("{0:D5}", UltimaId)

            SQL = "UPDATE TProductos SET Codigo = '" & NuevoCodigo & "' WHERE Id = " & UltimaId & ";"

            MiComando.CommandText = SQL

            MiComando.ExecuteNonQuery()

        Else

            ' Error

            MiConexion.Close()

            MiComando.Dispose()

            Return False

        End If

        MiConexion.Close()

        MiComando.Dispose()

        Return True

    End Function

Dim RutaYNombreDB As String = "D:\Tmp\TestAccesDBSimpleConMostrarYAgregar\MonStock2013.accdb"

Dim codProveedor As Integer = GetNextAutoNumeric()

Dim codigos = String.Format("23L{0:}", codProveedor)

TxtCodigo.Text = CStr(codigos)

SQL = "SELECT @@IDENTITY"  ' da el ultima Id creado para el sistema

            MiComando.CommandText = SQL

            Dim Ultimo As Integer = MiComando.ExecuteScalar()

Dim NuevoCodigo As String = "23L" & String.Format("{0:D5}", Ultimo)

SQL = "UPDATE TProductos SET Codigo = '" & NuevoCodigo & "' WHERE Id = " & Ultimo & ";"

            MiComando.CommandText = SQL

            MiComando.ExecuteNonQuery()

' ... ... ..

                If Instruccion.ExecuteNonQuery() = 1 Then

                    ' Agregacion OK

                    Dim SQL As String

                    SQL = "SELECT @@IDENTITY"  ' da el ultima Id creado para el sistema

                    Instruccion.CommandText = Sql

                    Dim UltimoID As Integer = Instruccion.ExecuteScalar()

                    Dim NuevoCodigo As String = "23L" & String.Format("{0:D5}", UltimoID)

                    Sql = "UPDATE Registro SET Codigo = '" & NuevoCodigo & "' WHERE Id = " & UltimoID & ";"

                    Instruccion.CommandText = Sql

                    If Instruccion.ExecuteNonQuery() = 1 Then

                        MsgBox("Se Guardo Registro Correctamente", vbInformation, "Aviso")

TxtNumeroRegistro.Text = UltimoID  ' ¡!! NO SE COMO SE LLAMADA ESTA TEXTBOX

TxtCodigo.Text = NuevoCodigo

                    Else

                        ' Error

                        MsgBox("NO se Guardo Registro Correctamente", vbInformation, "Aviso")

                        conn.Close()

                        Instruccion.Dispose()

                        Exit Sub

                    End If

                Else

                    ' Error

                    MsgBox("NO se Guardo Registro Correctamente", vbInformation, "Aviso")

                    conn.Close()

                    Instruccion.Dispose()

                    Exit Sub

                End If

            End If

' ... ... ..

Private Sub FrmIngreso_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'agregue esto...!!!! para ver sobre la conexión segura pero si hay que retiralre esta bien

'************Try

' Ya has escrito la variable combo al inicial del codigo del Form, de la Class FrmIngres

'***************   conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data '

'***********     Source=D:\VBProgramacion\ProyectLicencia\ProyectLicencia\ProyectLicencia\DataLicencia.accdb"

'*************conn.Open()

'************MsgBox("Conexion Exitosa", vbInformation, "Conexion Segura")

'***************Catch ex As Exception

'***************MsgBox("Error al Conectarse a la Base de Datos4444", vbCritical, "Sin Conexión")

'****************End Try

'PARA CONECTAR CON LA BASE DE DATOS

'----------------------------------

'************ Es mejor de escribir la ConnectionString para todo el Form y la leer donde es necesario. Es la razón que he utilizado la variable combo que has escrito en tu código del 2 de june, estaba una buena idea.

'***********conn.ConnectionString = combo

'****************** Quizá las 2 líneas siguientes están necesarias ..., no las comprendo bien  :(

'****************** pienso que este pode ser la fuente del mostrada duplicada en tu DGV

'****************** Si están necesaria entonces ciertamente el open es necesario :

'*?????? conn.ConnectionString = combo

'*?????? conn.Open

'*?????? Me.RegistroTableAdapter.Fill(Me.DataLicenciaDataSet11.Registro)

'*?????? DataGridView1.DataSource = Nothing

'CALUCLAR EL TIEMPO

'-----------------

'************* Efectivamente, las 2 líneas siguientes no deben ser aquí

' TxtNumeroRegistro.Text = UltimoID

' TxtCodigo.Text = NuevoCodigo

' ... ... ...

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'AVISO DE ESPACIOS EN BLANCO

'---------------------------

If Ap.Text = "" Or Am.Text = "" Or Nom.Text = "" Or CmbTipo.Text = "" Or DNI.Text = "" Or CnbSexo.Text = "" Or CmbNacionalidad.Text = "" Or Casa.Text = "" Then

MsgBox("Lllenar Campos Obligatorios, no dejar Vacios", vbOKOnly + vbInformation, "AVISO")

Ap.Focus()

Exit Sub

End If

Try

'*****************

'*** No necesario de verificar si Open es bien hecha porque estamos en un bloc Try y que cuando no se hace bien este Open, el mensaje ex.Message dice bien cual es el problema.

conn.ConnectionString = combo

conn.Open()

Instruccion = New OleDbCommand("INSERT INTO Registro(ApellidoP, ........................

' ... ... ...

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'AVISO DE ESPACIOS EN BLANCO

'---------------------------

If Ap.Text = "" Or Am.Text = "" Or Nom.Text = "" Or CmbTipo.Text = "" Or DNI.Text = "" Or CnbSexo.Text = "" Or CmbNacionalidad.Text = "" Or Casa.Text = "" Then

MsgBox("Lllenar Campos Obligatorios, no dejar Vacios", vbOKOnly + vbInformation, "AVISO")

Ap.Focus()

Exit Sub

End If

Try

'*****************

'*** No necesario de verificar si Open es bien hecha porque estamos en un bloc Try y que cuando no se hace bien este Open, el mensaje ex.Message dice bien cual es el problema.

conn.ConnectionString = combo

conn.Open()

Instruccion = New OleDbCommand("INSERT INTO Registro(ApellidoP, ........................

' ... ... ...

'Instruccion.ExecuteNonQuery()

If Instruccion.ExecuteNonQuery() = 1 Then ...

Dim combo As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DataLicencia.accdb"

Imports System.Data.OleDb

Public Class FrmIngreso

        Dim conn As New OleDbConnection

        Dim Instruccion As New OleDbCommand

        Dim combo As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\VBProgramacion\ProyectLicencia\ProyectLicencia\ProyectLicencia\DataLicencia.accdb"

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        'AVISO DE ESPACIOS EN BLANCO

        ''---------------------------

        If Ap.Text = "" Or Am.Text = "" Or Nom.Text = "" Or CmbTipo.Text = "" Or DNI.Text = "" Or CnbSexo.Text = "" Or CmbNacionalidad.Text = "" Or Casa.Text = "" Then

            MsgBox("Lllenar Campos Obligatorios, no dejar Vacios", vbOKOnly + vbInformation, "AVISO")

            Ap.Focus()

            Exit Sub

        End If

conn.ConnectionString = combo  ' esta linea quizá no es necesaria porque Dim conn As New OleDbConnection es global y no existe Dispose(), pero puede ser escrita

conn.Open

' ... ... ...

' ... ... ...

'  '  '  '  '          Instruccion.ExecuteNonQuery()  ' esta vez, no olvido de suprimir esta liena

                If Instruccion.ExecuteNonQuery() = 1 Then

' ... ... ...

' ... ... ...

' ... ... ...

If Instruccion.ExecuteNonQuery() = 1 Then

                        MsgBox("Se Guardo Registro Correctamente", vbInformation, "Aviso")

                        ‘ ****** Creo que hay malo formato (este no explica el error)

                        ‘   TxtNumeroRegistro.Text = UltimoID +1

                        ‘    TxtCodigo.Text = "23L" & String.Format("{0:D5}", (UltimoID+1))

‘ cuando quieres mostrar los Id y Codigo del futuro registro (pienso que es no sentido), tienes que escribir :

                           TxtNumeroRegistro.Text = "23L" & UltimoID

                           TxtCodigo.Text = NuevoCodigo

                    Else

' ... ... ...

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim D As String

        D = String.Format("{0:F}", Now)

        MessageBox.Show(D)

        MaskedTextBox1.Text = D

        MessageBox.Show(MaskedTextBox1.Text)

    End Sub

' en mi ejemplo precedente :

        If Not MaskedTextBox1.MaskCompleted Then

            MessageBox.Show("Error")

        Else

            MessageBox.Show(MaskedTextBox1.Text)

        End If

If Es bien la FechaM  Then  ' debes escribir los codigos correctos

            Instruccion = New OleDbCommand("INSERT INTO Registro(ApellidoP, ApellidoM,ApellidoCompleto,Nombres,Tipo,Dni,FechaNacimiento,Edad,Sexo,Nacionalidad,Direccion,Categoria,DatosComp,Licencia,FechaE,FechaR,Condicion,Estado,Ecsal,Restricciones,FechaM,Escuela,FechaEs,Tramite,Lugar,Ano,Costo,GrupoSan,Servicio,Donacion,FechaRegistro)" &

                                           "values(Ap,Am,Completo,Nom,CmbTipo,DNI,DateTimePicker1,Edades,CnbSexo,CmbNacionalidad,Casa,CmbCat,TextBox1,Licencias,DateTimePicker2,Fv,CmbCondi,CbEstado,CmbMedico,CmbRes,MaskFechaM,CmbEscuela,MaskFechaV,CmbTramite,CmbDestino,Anio,TextBox2,Cbgrupo,TxtServicio,Cbdonacion,TxtFecha)", conn)

Else

            Instruccion = New OleDbCommand("INSERT INTO Registro(ApellidoP, ApellidoM,ApellidoCompleto,Nombres,Tipo,Dni,FechaNacimiento,Edad,Sexo,Nacionalidad,Direccion,Categoria,DatosComp,Licencia,FechaE,FechaR,Condicion,Estado,Ecsal,Restricciones,Escuela,FechaEs,Tramite,Lugar,Ano,Costo,GrupoSan,Servicio,Donacion,FechaRegistro)" &

                                           "values(Ap,Am,Completo,Nom,CmbTipo,DNI,DateTimePicker1,Edades,CnbSexo,CmbNacionalidad,Casa,CmbCat,TextBox1,Licencias,DateTimePicker2,Fv,CmbCondi,CbEstado,CmbMedico,CmbRes,CmbEscuela,MaskFechaV,CmbTramite,CmbDestino,Anio,TextBox2,Cbgrupo,TxtServicio,Cbdonacion,TxtFecha)", conn)

'... ... ...

   Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click

        If TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Then

            MsgBox("Lllenar Campos Obligatorios, no dejar Vacios", vbOKOnly + vbInformation, "AVISO")

            TextBox6.Focus()

            Exit Sub

        End If

        Try

            conn.ConnectionString = combo

            conn.Open()

            Instruccion = New OleDbCommand("INSERT INTO ACTAS(FEntrega,Datos,Dni,Domicilio,Dinterno,FIngreso,Categoria,Placa,Marca,Color,Modelo,Motor,Serie,Descripcion)" &

                                           "values(FechaRegistro,TextBox5,TextBox6,TextBox7,TextBox9,TextBox10,TextBox12,TextBox13,TextBox14,TextBox15,TextBox16,TextBox17,TextBox18,TextBox8)", conn)

            If MsgBox("¿Desea grabar estos datos.?", MsgBoxStyle.YesNo + vbInformation, "Cbv") = vbYes Then

                Instruccion.Parameters.AddWithValue("@FEntrega", FechaRegistro.Text)

                Instruccion.Parameters.AddWithValue("@Datos", TextBox5.Text)

                Instruccion.Parameters.AddWithValue("@Dni", TextBox6.Text)

                Instruccion.Parameters.AddWithValue("@Domicilio", TextBox7.Text)

                Instruccion.Parameters.AddWithValue("@Dinterno", TextBox9.Text)

                Instruccion.Parameters.AddWithValue("@FIngreso", TextBox10.Text)

                 ' *** PHR Instruccion.Parameters.AddWithValue("@FIngreso", CType(FechaRegistro.Text, Date).AddDays(-1))

                Instruccion.Parameters.AddWithValue("@Categoria", TextBox12.Text)

                Instruccion.Parameters.AddWithValue("@Placa", TextBox13.Text)

                Instruccion.Parameters.AddWithValue("@Marca", TextBox14.Text)

                Instruccion.Parameters.AddWithValue("@Color", TextBox15.Text)

                Instruccion.Parameters.AddWithValue("@Modelo", TextBox16.Text)

                Instruccion.Parameters.AddWithValue("@Motor", TextBox17.Text)

                Instruccion.Parameters.AddWithValue("@Serie", TextBox18.Text)

                Instruccion.Parameters.AddWithValue("@Descripcion", TextBox8.Text)

                If Instruccion.ExecuteNonQuery() = 1 Then

                    Dim SQL As String

                    SQL = "SELECT @@IDENTITY" ' DA EL ULTIMO REGISTRO iD CREADO PARA EL SISTEMA

                    Instruccion.CommandText = SQL

                    Dim UltimoID As Integer = Instruccion.ExecuteScalar()

                    Dim NuevoCodigo As String = "A" & String.Format("{0:D4}", UltimoID)

                    SQL = "UPDATE ACTAS SET Generado='" & NuevoCodigo & "' WHERE Id=" & UltimoID & ";"

                    Instruccion.CommandText = SQL

                    If Instruccion.ExecuteNonQuery() = 1 Then

                        MsgBox("Se Guardo Registro Correctamente", vbInformation, "Aviso")

                        Nacta.Text = "A" & String.Format("{0:D4}", (UltimoID + 1))

                        TxtCodigo.Text = NuevoCodigo

                        SQL = "UPDATE SANCIONES SET NActas=@Nactas,FEntregaAC=@FEntregaAC WHERE Placa='" & TextBox13.Text & "';"

                        Instruccion.CommandText = SQL

                        Instruccion.Parameters.Clear()

                        Instruccion.Parameters.AddWithValue("@Nactas", NuevoCodigo)

                        Instruccion.Parameters.AddWithValue("@FEntregaAC", FechaRegistro.Text)

                        If Instruccion.ExecuteNonQuery() <> 1 Then

                            'error : ES necesario de eliminar el registro en Actas porque NO lo será completado en SANCIONES.

                            ' Cuando no eliminar el registramente incomplto, creas un registro huérfano en la tabla ACTACS

                            SQL = "DELETE FROM ACTAS WHERE Id=" & UltimoID & ";"

                            Instruccion.CommandText = SQL

                            Instruccion.ExecuteNonQuery()

                            MsgBox("No se guardo Registro Correctamente", vbInformation, "Aviso")

                            conn.Close()

                            Instruccion.Dispose()

                            Exit Sub

                        End If

                    Else

                        MsgBox("No se guardo Registro Correctamente", vbInformation, "Aviso")

                        conn.Close()

                        Instruccion.Dispose()

                        Exit Sub

                    End If

                Else

                    'error

                    MsgBox("No se guardo Registro Correctamente", vbInformation, "Aviso")

                    conn.Close()

                    Instruccion.Dispose()

                    Exit Sub

                End If

            End If

        Catch ex As Exception

            MsgBox("No se Guardo Registro....Error de Programación!, " & ex.Message, vbCritical, "Error al Guardar")

            conn.Close()

            Exit Sub

        End Try

        conn.Close()

        ' VaciarTodasZonasDeTexto()

        ' DataRegsitros()

        ' *** PHR *** escritura provisionale para ver el resultado

         ' *** PHR Dim dtX As New DataTable

         ' *** PHR Dim das As New OleDb.OleDbDataAdapter("SELECT * FROM SANCIONES WHERE Placa = '" & TextBox13.Text & "';", conn)

         ' *** PHR das.Fill(dtX)

        ' *** PHR DataGridView1.DataSource = dtX

        BtnGuardar.Visible = False

        ImpActa.Visible = True

    End Sub

'... ... ...