Jump to content
informaster

Base de Dados Acess e Base de Dados Mysql

Recommended Posts

informaster

Bom Dia,

Espero que esteja tudo bem convosco....

Tenho um problema para resolver....

Agora tenho que verificar caso alguem apage um registo no ACESS então a aplicação vai ter que apagar automaticamente no MYSQL...

Visto que tenho as duas DATAGRIDS de comparação como faço uma comparação ? por exemplo o codigo numero um existe na GRID do MYSQL mas não existe na GRID do ACESS então

APAGAR esse registo na base de dados MYSQL ... Alguem me consegue ajudar??????  Obrigado

                    '//TABELA VALESLIN
                    'VERIFICA SE A DATA DE MODIFICAÇÃO DO ACESS E MYSQL
                    DateTablesUltDateMDB(txtUltimaDataModificacaoMDB, LblTabelasDatas, "Vales_Lin", "DataUltModificacao")
                    DateTablesMySql(txtUltimaDataModificacaoMYSQL, LblTabelasDatas, "Vales_Lin", "DataUltModificacao")

                    'COMPARA AS DATAS DE MODIFICACAO SE FOREM DIFERENTES COMEÇA   
                    If txtUltimaDataModificacaoMDB.Text <> txtUltimaDataModificacaoMYSQL.Text Then
                        If txtUltimaDataModificacaoMYSQL.Text = String.Empty Then
                            txtUltimaDataModificacaoMYSQL.Text = txtTodaySimple.Text
                        End If
                      
                      	'FAZ UM SELECT PARA DENTRO DA DATAGRID_A ACESS
                        SelectMDBtoDgv("Codigo_Vale", "Cliente_Adquiriu", "Vales_Lin", "DataUltModificacao", txtUltimaDataModificacaoMYSQL)
                        'FAZ UM SELECT PARA DENTRO DA DATAGRID_B MYSQL
                        SelectMySqltoDgv("Codigo_Vale", "Cliente_Adquiriu", "Vales_Lin", "DataUltModificacao")
                        
                      ' APAGA OS REGISTOS QUE SEJAM IGUAIS DATAGRID_A E B NO MYSQL
                      ApagarMySqlFromDgv("Vales_Lin", "Codigo_Vale")
                      ' FAZ UM INSERT NO MYSQL O QUE Á DE NOVO NA DATAGRGRID_A ACESS
                        VALESLIN("Codigo_Vale", txtUltimaDataModificacaoMYSQL, "Vales_Lin", "Codigo_Vale", "Cliente_Adquiriu", "Cliente_Adquiriu_Desc", "Cliente_Utilizou", "Cliente_Utilizou_Desc", "Data_Emissao", "Data_Utilizacao", "Talao_Nr_Emissao", "Talao_Nr_Utilizacao", "Valor", "TipoAcum", "Pagamento_ID", "Tipo_Pagamento", "ValorPago", "Codigo_Cab", "Descricao", "Vale_ArtServ_Numerario", "TipoArtServ", "CodigoArtServ", "UtilizacaoOutroCliente", "UtilizacaoOutraFilial", "Vencimento", "ConsumoMinimo", "Filial", "DataUltModificacao", "Impressoes", "Filial_Utilizacao", "ImpMapaVales", "Filial_Talao_Emissao", "Talao_Tipo_Emissao", "Talao_Tipo_Utilizacao", "TelemovelDestino", "Posto")
                      
                      	' VOLTA A ACTUALIZAR AS DATAS DE MODIFICACAO
                        DateTablesUltDateMDB(txtUltimaDataModificacaoMDB, LblTabelasDatas, "Vales_Lin", "DataUltModificacao")
                        DateTablesMySql(txtUltimaDataModificacaoMYSQL, LblTabelasDatas, "Vales_Lin", "DataUltModificacao")
                    End If

 


 

 

Nuno Revez

@informaster

Share this post


Link to post
Share on other sites
M6

Não percebi a dúvida.

Se sabes o que tens de fazer, necessitas de ajuda em quê?


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
informaster

Boas

 

A duvida é como faço para verificar isso nas datagrids A e B ou seja na DATAGRID B está um registo a mais do que a DATAGRID A...

E escolher esse registo a mais e fazer a query de delete....

Condição:

if existe registos a mais na datagrid B que a A então apaga o que é mais mas na base de dados do MYSQL.

 

Espero me ter explicado....

Obrigado


 

 

Nuno Revez

@informaster

Share this post


Link to post
Share on other sites
M6

Podes ordenar as data grids pela chave e varrer ambas as datagrids linha-a-linha para colecionares quais as chaves que estão numa e não na outra.

Isso vai-te dar as chaves que tens de eliminar.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
informaster

eheheheh...

Pois o que dizes pode até funcionar mas nao tenho sequer a minima ideia do codigo que se usa nem exemplo disso que fala.

 


 

 

Nuno Revez

@informaster

Share this post


Link to post
Share on other sites
M6

Bom, eu sempre parti do principio de que conhecias o modelo de dados, até porque isso é imprescindível para essa tarefa...

Eu não conheço, mas a julgar pelo nome das colunas diria que "Codigo_Vale" é a chave da tabela e que é por esse campo que tens de fazer a comparação.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
informaster

Boas

 

Sim eu sei disso... falo do codigo que se usa para manipular esse tipo de comparação...

Fazer querys ao MDB sei fazer ...Fazer querys ao MySQL sei fazer...

Agora comparar em datagrids nao faço a minima....

 

Entendes... falta de conhecimento para tal...


 

 

Nuno Revez

@informaster

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.