informaster Posted February 23, 2018 at 12:57 PM Report #609476 Posted February 23, 2018 at 12:57 PM 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
M6 Posted February 23, 2018 at 01:50 PM Report #609477 Posted February 23, 2018 at 01:50 PM 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."
informaster Posted February 23, 2018 at 02:31 PM Author Report #609479 Posted February 23, 2018 at 02:31 PM 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
M6 Posted February 23, 2018 at 04:42 PM Report #609484 Posted February 23, 2018 at 04:42 PM 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."
informaster Posted February 23, 2018 at 05:03 PM Author Report #609486 Posted February 23, 2018 at 05:03 PM 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
M6 Posted February 24, 2018 at 10:23 AM Report #609498 Posted February 24, 2018 at 10:23 AM 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."
informaster Posted February 24, 2018 at 08:22 PM Author Report #609504 Posted February 24, 2018 at 08:22 PM 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now