CODIGO DE PRODUTO

Citação:

RDR17 escreveu:
Ok! Entâo esta pratica poder ser aplicada.

Quanto ao grupo e subgrupo já tenho um cadastro com mais de 20.000 itens e devo importar com o codigo atual, mas posso fazer o select pelo inicio do codigo.

Agora incrementar um campo manualmente como devo travar o registro do banco para colocar o código correto? Não tenho certeza do comando que devo usar. No caso vou desenvolver em VB .Net

 Public Function geracodigo(ByVal id As String) As String
        Try
            Dim ssql As String
            ssql = [Ô]UPDATE sequencia SET [Ô] & id & [Ô]=LAST_INSERT_ID([Ô] & id & [Ô]+1);[Ô]
            ExecSqlSemRetorno(ssql)
            ssql = [Ô]SELECT [Ô] & id & [Ô] FROM SEQUENCIA[Ô]
            geracodigo = ExecSql(ssql)
            Return geracodigo
        Catch ex As Exception
            MsgBox(ex.Message & [Ô] - [Ô] & ex.StackTrace)
        End Try
        Return Nothing
    End Function  

Citação:

RDR17 escreveu:
Muito obrigado Fox!!!

Valeu pela dica, vou escrever as tabelas e retorno com mais dúvidas.

Abraço.

 Public Function ExecSql(ByVal sql As String) As String
        Try
            System.Windows.Forms.Cursor.Current = New System.Windows.Forms.Cursor(My.Application.Info.DirectoryPath & [Ô]\sql.cur[Ô])
            Dim dr As String
           [ô]Verificando se existe uma conexão ativa, se houver eu destruo a conexão e inicio uma nova conexão, fiz isso para que um usuario tenha sempre uma unica conexão ativa por pc.
            If IsNothing(Conexao) Then
                Dim Conexao As New MySqlConnection(mStrConnectionString)
                Conexao.Close()
                Conexao.Dispose()
                conectado = False
                Con()
            Else
                Conexao.Close()
                Conexao.Dispose()
                conectado = False
                Con()
            End If
           [ô]Como trabalho com transações utilizei essa condição para saber se era uma instrução de visualização(select) ou alteração(<> de Select)
            If UCase(Mid(sql, 2, 6)) = UCase([Ô]Select[Ô]) Then
                usatrans = False
            Else
                mytrans = Conexao.BeginTransaction
                usatrans = True
            End If

            Dim objCommand = New MySqlCommand(sql, Con)
            dr = objCommand.ExecuteScalar
            System.Windows.Forms.Cursor.Current = Cursors.Default

            If usatrans = True Then
                mytrans.Commit()
                usatrans = False
            End If

            Conexao.Close()
            Conexao.Dispose()
            Return dr
        Catch ex As MySqlException
        ... Tratamento de erro 
        End Try

    End Function  

Public Function ExecSqlSemRetorno(ByVal sql As String) As Boolean
        Try
            System.Windows.Forms.Cursor.Current = New System.Windows.Forms.Cursor(My.Application.Info.DirectoryPath & [Ô]\sql.cur[Ô])
            Dim dr As String
            Conexao.Close()
            Conexao.Dispose()
            conectado = False
            Con()

            If UCase(Mid(sql, 2, 6)) = UCase([Ô]Select[Ô]) Then
                usatrans = False
            Else
                mytrans = Conexao.BeginTransaction
                usatrans = True
            End If

            Dim objCommand = New MySqlCommand(sql, Con)
            dr = objCommand.ExecuteScalar

            If usatrans = True Then
                mytrans.Commit()
                usatrans = False
            End If

            System.Windows.Forms.Cursor.Current = Cursors.Default
            Conexao.Close()
            Conexao.Dispose()

            [ô]If dr = Nothing Then
            [ô]Return False
            [ô]Else
            Return True
            [ô]End If
        Catch ex As MySqlException
       .....Tratamento de erro.
        End Try

    End Function