DataSet X ACCESS

[fernandofbl 0]

Bom dia, Senhores!

 

Olá, tenho um problema que se aplica na hora de gravar os registros da base. Vou explicar o processo e em seguida, colar um trecho do código para os senhores.

 

Bom, o processo consiste em atualizar a base local do cliente, onde ele preenche um dataset ou datatable, de uma base mysql e em seguida uso esse datatable para gravar os registros que me foram retornados da base mysql, remota, para a base local que é uma base access. até ai, nenhum problema. Em contra-partida, a base em access não recebe os registros, ao final de todo o processo, eu atualizado o datasource da grid com o dataset que está rodando na aplicação e aparece os registros que quero atualizar, mas não consigo fazer com que esses registros sejam gravados efetivamente no banco. vou colocar a rotina de gravação logo abaixo para que você´s possam ver e se possivel me ajudarem.

 

Um abraço...

 

PS:VS 2005; access 2003. Base de dados remota é mysql

 

 

 

 

'declarações do objetos
	   Private mds As New CRUD.MAXINEGOCIOS.dsMaxiNegocios							
			  Dim dr As CRUD.MAXINEGOCIOS.dsMaxiNegocios.anuncios1Row		
			 
			 Try
					'BIND NA TABELA DE ANUNCIOS 
					For i As Integer = 0 To myData.Rows.Count - 1
						With myData.Rows(i)
							'dataAtualizacao = FormatDateTime(.Item("data"), DateFormat.LongDate)
							Dim int_codigo As Integer = .Item("codigo")
							s_data.FillByCodigo(mds.anuncios1, int_codigo)
							If mds.anuncios1.Count > 0 Then
								dr = mds.anuncios1(0)
								isNew = False
							Else
								dr = mds.anuncios1.Newanuncios1Row
								isNew = True
							End If

							'Aqui eu atribuo os valores ao datarow (vou postar abaixo o metodo)
							bindTemp(dr, myData, i)
							If isNew Then mds.anuncios1.Addanuncios1Row(dr)
							mds.EnforceConstraints = False
							s_data.Update(mds.anuncios1)
							mds.AcceptChanges()
						End With
					Next
					str_resultado = "Sucesso"
				Catch ex As Exception
					str_resultado = "Erro ao Gravar os registros atualizados. " + ex.Message
				End Try

 

 

 

 

 

Atribuindo os valores ao datarow

 

 

Public Sub bindTemp(ByVal dr As CRUD.MAXINEGOCIOS.dsMaxiNegocios.anuncios1Row, ByVal DadosMysql As DataTable, ByVal indice As Integer)

With DadosMysql.Rows(indice)

dr.cod_cliente = .Item("cod_cliente")
dr.codigo = .Item("codigo")
dr.nome_fantasia = " aNovo - " & .Item("nome_fantasia")
dr.cod_anuncios_modulos = .Item("cod_anuncios_modulos")
dr.cod_atividades = .Item("cod_atividades")
dr.telefone = .Item("telefone")
dr.cep = .Item("cep")
dr.endereco = .Item("endereco")
dr.bairro = .Item("bairro")
dr.cidade = .Item("cidade")
dr.uf = .Item("uf")
dr.numero = .Item("numero")
dr.informacao = .Item("informacao")
dr.site = .Item("site")
dr.email = .Item("email")
'dr.html = .Item("html")
dr.data = .Item("data")
dr.ativo = .Item("ativo")
End With
End Sub

 

 

 

 

PS: no try/catch não sai do try, como se ele não ocorresse erro algum!! mas enfim. valeu, antecipadamento

 

:\

 

 

 

 

--------------------------------------------------------------------------------

Fab´s

[fernandofbl 0]

Putz,Lamentavel!!!

Mas mesmo assim, valeu, galera!!!

Se precisarem de alguma coisa, estamos ai