none
Migração recordset VB6 para VB.NET RRS feed

  • Pergunta

  • Ola,

    Atualmente tenho sistemas em VB6 que usam recordSet para manipulação dos dados, os mesmos permitindo insert ou updates em uma mesma chamanda. Qual melhor forma para migrar acesso a dados que são manipulados via RecordSet dessa forma para vb.net.

    Um exemplo abaixo.

    Do While RsCO315Rem.EOF = False And RsCO315Rem.BOF = False
       If RsCO315Prod.RecordCount = 0 Then
          RsCO315Prod.AddNew
          RsCO315Prod!CODEMPRESA = "teste"
          RsCO315Prod!NumContrato = "teste"
       End If
       RsCO315Prod!CPF = "teste"
       RsCO315Prod!DATREMARQ = "teste"
       RsCO315Prod!REGTIMESTAMP = Now
                                
       RsCO315Prod.Update
       DoEvents
       Refresh
    Loop

        


    Paulo da Silva Rocha @PauloRochaBR

    terça-feira, 21 de outubro de 2014 12:16

Todas as Respostas

  • Você poderá utilizar tanto Entity Framework:

    http://msdn.microsoft.com/pt-br/data/aa937721

    http://www.asp.net/entity-framework

    como ADO:

    http://msdn.microsoft.com/pt-br/library/e80y5yhx(v=vs.110).aspx

    Há várias maneiras de fazer múltiplas operações com a mesma conexão, via entity framework é executando as queries dentro do mesmo contexto, via ADO você poderá ter um SqlCommand com uma conexão e ir alternando os comandos e executando os mesmos, há outras formas também, sendo essas as mais simples e comuns.

    Exemplo em ADO:

    Dim command As New SqlCommand
    Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection("STRING CONEXÃO BANCO")
    Try
    	connection.Open()
    	'Insert
    	command.Connection = connection
    	command.CommandType = CommandType.Text
    	command.CommandText = "INSERT INTO TABELA (CODEMPRESA, NUMCONTRATO) VALUES(@EMPRESA,@CONTRATO)"
    	command.Parameters.Add("@EMPRESA", SqlDbType.VarChar).Value = "EMPRESA TESTE"
    	command.Parameters.Add("@CONTRATO", SqlDbType.Int).Value = 1
    	command.ExecuteNonQuery()
    	'Update
    	'Limpar os parâmetros
    	command.Parameters.Clear()
    	command.CommandText = "UPDATE TABELA SET CODEMPRESA = @EMPRESA WHERE NUMCONTRATO = @CONTRATO"
    	command.Parameters.Add("@EMPRESA", SqlDbType.VarChar).Value = "EMPRESA ALTERADA"
    	command.Parameters.Add("@CONTRATO", SqlDbType.Int).Value = 1
    	'Execução da query
    	command.ExecuteNonQuery()
    Catch e As Exception
    	'Tratamento de Exceções
    Finally
    	command.Dispose()
    	connection.Close()
    	connection.Dispose()
    End Try

    Att,



    • Editado Luan Bon terça-feira, 21 de outubro de 2014 13:24
    terça-feira, 21 de outubro de 2014 13:22