Migração recordset VB6 para VB.NET

Question

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

Answer 1

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,