API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 25th, 2017
61
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 14.88 KB | None | 0 0
raw download clone embed print report
  1.   'Verificar se o orçamento já existe
  2.                    Try
  3.                         orcamentosConn_orcamentosIDAdapter = New OleDb.OleDbDataAdapter("SELECT ID FROM OrcamentosT WHERE ID=" & OrcamentoID, orcamentosConn)
  4.                         orcamentosConn_orcamentosIDDataTable = New DataTable
  5.                         orcamentosConn_orcamentosIDAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
  6.                         orcamentosConn_orcamentosIDAdapter.Fill(orcamentosConn_orcamentosIDDataTable)
  7.                     Catch ex As Exception
  8.                         MsgBox("Ocorreu um erro a carregar o orçamento : " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Erro Fatal")
  9.                         End
  10.                     End Try
  11.  
  12.                     Try
  13.                         existeOrcamento = orcamentosConn_orcamentosIDDataTable.Rows.Item(0).Item(0).ToString()
  14.                     Catch ex As Exception
  15.                         existeOrcamento = ""
  16.                     End Try
  17.  
  18.                     If existeOrcamento = "" Then
  19.                         Try
  20.                             orcamentosConn.Open()
  21.                         Catch ex As Exception
  22.                             Erro("Ocorreu um erro a abrir a conecção à DB: " & vbCrLf & vbCrLf & ex.Message)
  23.                         End Try
  24.                         Dim cmd As New OleDb.OleDbCommand
  25.                         Dim cmdText As String
  26.                         cmdText = "INSERT INTO OrcamentosT (ID, Cliente, Morada, CodigoPostal, NumContribuinte, Telefone, PrecoUniProd1, PrecoUniProd2, PrecoUniProd3, PrecoUniProd4, PrecoUniProd5, PrecoUniProd6, PrecoUniProd7, PrecoUniProd8, PrecoUniProd9, PrecoUniProd10, PrecoUniProd11, PrecoUniProd12, PrecoUniProd13, PrecoUniProd14, PrecoUniProd15, QuantProd1, QuantProd2, QuantProd3, QuantProd4, QuantProd5, QuantProd6, QuantProd7, QuantProd8, QuantProd9, QuantProd10, QuantProd11, QuantProd12, QuantProd13, QuantProd14, QuantProd15, PrecoTotal1, PrecoTotal2, PrecoTotal3, PrecoTotal4, PrecoTotal5, PrecoTotal6, PrecoTotal7, PrecoTotal8, PrecoTotal9, PrecoTotal10, PrecoTotal11, PrecoTotal12, PrecoTotal13, PrecoTotal14, PrecoTotal15, NomeProd1, NomeProd2, NomeProd3, NomeProd4, NomeProd5, NomeProd6, NomeProd7, NomeProd8, NomeProd9, NomeProd10, NomeProd11, NomeProd12, NomeProd13, NomeProd14, NomeProd15, Tmr) " & _
  27.                                   "VALUES (" & _
  28.                                     OrcamentoID & ", " & _
  29.                                     "'" & Replace(txtNome.Text, "'", "") & "', " & _
  30.                                     "'" & Replace(txtMorada.Text, "'", "") & "', " & _
  31.                                     "'" & txtCodPostal.Text & "', " & _
  32.                                     "'" & txtNcontribuinte.Text & "', " & _
  33.                                     "'" & txtTelefone.Text & "', " & _
  34.                                     "'" & txtProd_PrecUni_01.Text & "', " & _
  35.                                     "'" & txtProd_PrecUni_02.Text & "', " & _
  36.                                     "'" & txtProd_PrecUni_03.Text & "', " & _
  37.                                     "'" & txtProd_PrecUni_04.Text & "', " & _
  38.                                     "'" & txtProd_PrecUni_05.Text & "', " & _
  39.                                     "'" & txtProd_PrecUni_06.Text & "', " & _
  40.                                     "'" & txtProd_PrecUni_07.Text & "', " & _
  41.                                     "'" & txtProd_PrecUni_08.Text & "', " & _
  42.                                     "'" & txtProd_PrecUni_09.Text & "', " & _
  43.                                     "'" & txtProd_PrecUni_10.Text & "', " & _
  44.                                     "'" & txtProd_PrecUni_11.Text & "', " & _
  45.                                     "'" & txtProd_PrecUni_12.Text & "', " & _
  46.                                     "'" & txtProd_PrecUni_13.Text & "', " & _
  47.                                     "'" & txtProd_PrecUni_14.Text & "', " & _
  48.                                     "'" & txtProd_PrecUni_15.Text & "', " & _
  49.                                     "'" & txtProd_Quant_01.Text & "', " & _
  50.                                     "'" & txtProd_Quant_02.Text & "', " & _
  51.                                     "'" & txtProd_Quant_03.Text & "', " & _
  52.                                     "'" & txtProd_Quant_04.Text & "', " & _
  53.                                     "'" & txtProd_Quant_05.Text & "', " & _
  54.                                     "'" & txtProd_Quant_06.Text & "', " & _
  55.                                     "'" & txtProd_Quant_07.Text & "', " & _
  56.                                     "'" & txtProd_Quant_08.Text & "', " & _
  57.                                     "'" & txtProd_Quant_09.Text & "', " & _
  58.                                     "'" & txtProd_Quant_10.Text & "', " & _
  59.                                     "'" & txtProd_Quant_11.Text & "', " & _
  60.                                     "'" & txtProd_Quant_12.Text & "', " & _
  61.                                     "'" & txtProd_Quant_13.Text & "', " & _
  62.                                     "'" & txtProd_Quant_14.Text & "', " & _
  63.                                     "'" & txtProd_Quant_15.Text & "', " & _
  64.                                     "'" & txtProd_PrecTot_01.Text & "', " & _
  65.                                     "'" & txtProd_PrecTot_02.Text & "', " & _
  66.                                     "'" & txtProd_PrecTot_03.Text & "', " & _
  67.                                     "'" & txtProd_PrecTot_04.Text & "', " & _
  68.                                     "'" & txtProd_PrecTot_05.Text & "', " & _
  69.                                     "'" & txtProd_PrecTot_06.Text & "', " & _
  70.                                     "'" & txtProd_PrecTot_07.Text & "', " & _
  71.                                     "'" & txtProd_PrecTot_08.Text & "', " & _
  72.                                     "'" & txtProd_PrecTot_09.Text & "', " & _
  73.                                     "'" & txtProd_PrecTot_10.Text & "', " & _
  74.                                     "'" & txtProd_PrecTot_11.Text & "', " & _
  75.                                     "'" & txtProd_PrecTot_12.Text & "', " & _
  76.                                     "'" & txtProd_PrecTot_13.Text & "', " & _
  77.                                     "'" & txtProd_PrecTot_14.Text & "', " & _
  78.                                     "'" & txtProd_PrecTot_15.Text & "', " & _
  79.                                     "'" & txtProd_Nome_01.Text & "', " & _
  80.                                     "'" & txtProd_Nome_02.Text & "', " & _
  81.                                     "'" & txtProd_Nome_03.Text & "', " & _
  82.                                     "'" & txtProd_Nome_04.Text & "', " & _
  83.                                     "'" & txtProd_Nome_05.Text & "', " & _
  84.                                     "'" & txtProd_Nome_06.Text & "', " & _
  85.                                     "'" & txtProd_Nome_07.Text & "', " & _
  86.                                     "'" & txtProd_Nome_08.Text & "', " & _
  87.                                     "'" & txtProd_Nome_09.Text & "', " & _
  88.                                     "'" & txtProd_Nome_10.Text & "', " & _
  89.                                     "'" & txtProd_Nome_11.Text & "', " & _
  90.                                     "'" & txtProd_Nome_12.Text & "', " & _
  91.                                     "'" & txtProd_Nome_13.Text & "', " & _
  92.                                     "'" & txtProd_Nome_14.Text & "', " & _
  93.                                     "'" & txtProd_Nome_15.Text & "', " & _
  94.                                     "'" & tmr.Text & "')"
  95.                         cmd.Connection = orcamentosConn
  96.                         cmd.CommandText = cmdText
  97.                         Try
  98.                             cmd.ExecuteNonQuery()
  99.                         Catch ex As Exception
  100.                             Erro("Ocorreu um erro a tentar executar a query: " & vbCrLf & "'" & cmdText & "'" & vbCrLf & vbCrLf & ex.Message)
  101.                         End Try
  102.                         orcamentosConn.Close()
  103.                         CarregarOrcamento()
  104.                         ActualizarDataTables()
  105.                     Else
  106.                         Try
  107.                             orcamentosConn.Open()
  108.                         Catch ex As Exception
  109.                             Erro("Ocorreu um erro a abrir a conecção à DB: " & vbCrLf & vbCrLf & ex.Message)
  110.                         End Try
  111.                         Dim cmd As New OleDb.OleDbCommand
  112.                         Dim cmdText As String
  113.                         '***Alteração/Acrescento NomeProd.
  114.                        cmdText = "UPDATE OrcamentosT SET " & _
  115.                                     "Cliente='" & Replace(txtNome.Text, "'", "") & "', " & _
  116.                                     "Morada='" & Replace(txtMorada.Text, "'", "") & "', " & _
  117.                                     "CodigoPostal='" & txtCodPostal.Text & "', " & _
  118.                                     "NumContribuinte='" & txtNcontribuinte.Text & "', " & _
  119.                                     "Telefone='" & txtTelefone.Text & "', " & _
  120.                                     "PrecoUniProd1='" & txtProd_PrecUni_01.Text & "', " & _
  121.                                     "PrecoUniProd2='" & txtProd_PrecUni_02.Text & "', " & _
  122.                                     "PrecoUniProd3='" & txtProd_PrecUni_03.Text & "', " & _
  123.                                     "PrecoUniProd4='" & txtProd_PrecUni_04.Text & "', " & _
  124.                                     "PrecoUniProd5='" & txtProd_PrecUni_05.Text & "', " & _
  125.                                     "PrecoUniProd6='" & txtProd_PrecUni_06.Text & "', " & _
  126.                                     "PrecoUniProd7='" & txtProd_PrecUni_07.Text & "', " & _
  127.                                     "PrecoUniProd8='" & txtProd_PrecUni_08.Text & "', " & _
  128.                                     "PrecoUniProd9='" & txtProd_PrecUni_09.Text & "', " & _
  129.                                     "PrecoUniProd10='" & txtProd_PrecUni_10.Text & "', " & _
  130.                                     "PrecoUniProd11='" & txtProd_PrecUni_11.Text & "', " & _
  131.                                     "PrecoUniProd12='" & txtProd_PrecUni_12.Text & "', " & _
  132.                                     "PrecoUniProd13='" & txtProd_PrecUni_13.Text & "', " & _
  133.                                     "PrecoUniProd14='" & txtProd_PrecUni_14.Text & "', " & _
  134.                                     "PrecoUniProd15='" & txtProd_PrecUni_15.Text & "', " & _
  135.                                     "QuantProd1='" & txtProd_Quant_01.Text & "', " & _
  136.                                     "QuantProd2='" & txtProd_Quant_02.Text & "', " & _
  137.                                     "QuantProd3='" & txtProd_Quant_03.Text & "', " & _
  138.                                     "QuantProd4='" & txtProd_Quant_04.Text & "', " & _
  139.                                     "QuantProd5='" & txtProd_Quant_05.Text & "', " & _
  140.                                     "QuantProd6='" & txtProd_Quant_06.Text & "', " & _
  141.                                     "QuantProd7='" & txtProd_Quant_07.Text & "', " & _
  142.                                     "QuantProd8='" & txtProd_Quant_08.Text & "', " & _
  143.                                     "QuantProd9='" & txtProd_Quant_09.Text & "', " & _
  144.                                     "QuantProd10='" & txtProd_Quant_10.Text & "', " & _
  145.                                     "QuantProd11='" & txtProd_Quant_11.Text & "', " & _
  146.                                     "QuantProd12='" & txtProd_Quant_12.Text & "', " & _
  147.                                     "QuantProd13='" & txtProd_Quant_13.Text & "', " & _
  148.                                     "QuantProd14='" & txtProd_Quant_14.Text & "', " & _
  149.                                     "QuantProd15='" & txtProd_Quant_15.Text & "', " & _
  150.                                     "PrecoTotal1='" & txtProd_PrecTot_01.Text & "', " & _
  151.                                     "PrecoTotal2='" & txtProd_PrecTot_02.Text & "', " & _
  152.                                     "PrecoTotal3='" & txtProd_PrecTot_03.Text & "', " & _
  153.                                     "PrecoTotal4='" & txtProd_PrecTot_04.Text & "', " & _
  154.                                     "PrecoTotal5='" & txtProd_PrecTot_05.Text & "', " & _
  155.                                     "PrecoTotal6='" & txtProd_PrecTot_06.Text & "', " & _
  156.                                     "PrecoTotal7='" & txtProd_PrecTot_07.Text & "', " & _
  157.                                     "PrecoTotal8='" & txtProd_PrecTot_08.Text & "', " & _
  158.                                     "PrecoTotal9='" & txtProd_PrecTot_09.Text & "', " & _
  159.                                     "PrecoTotal10='" & txtProd_PrecTot_10.Text & "', " & _
  160.                                     "PrecoTotal11='" & txtProd_PrecTot_11.Text & "', " & _
  161.                                     "PrecoTotal12='" & txtProd_PrecTot_12.Text & "', " & _
  162.                                     "PrecoTotal13='" & txtProd_PrecTot_13.Text & "', " & _
  163.                                     "PrecoTotal14='" & txtProd_PrecTot_14.Text & "', " & _
  164.                                     "PrecoTotal15='" & txtProd_PrecTot_15.Text & "', " & _
  165.                                     "NomeProd1='" & txtProd_Nome_01.Text & "', " & _
  166.                                     "NomeProd2='" & txtProd_Nome_02.Text & "', " & _
  167.                                     "NomeProd3='" & txtProd_Nome_03.Text & "', " & _
  168.                                     "NomeProd4='" & txtProd_Nome_04.Text & "', " & _
  169.                                     "NomeProd5='" & txtProd_Nome_05.Text & "', " & _
  170.                                     "NomeProd6='" & txtProd_Nome_06.Text & "', " & _
  171.                                     "NomeProd7='" & txtProd_Nome_07.Text & "', " & _
  172.                                     "NomeProd8='" & txtProd_Nome_08.Text & "', " & _
  173.                                     "NomeProd9='" & txtProd_Nome_09.Text & "', " & _
  174.                                     "NomeProd10='" & txtProd_Nome_10.Text & "', " & _
  175.                                     "NomeProd11='" & txtProd_Nome_11.Text & "', " & _
  176.                                     "NomeProd12='" & txtProd_Nome_12.Text & "', " & _
  177.                                     "NomeProd13='" & txtProd_Nome_13.Text & "', " & _
  178.                                     "NomeProd14='" & txtProd_Nome_14.Text & "', " & _
  179.                                     "NomeProd15='" & txtProd_Nome_15.Text & "', " & _
  180.                                     "Tmr='" & tmr.Text & "' " & _
  181.                                   "WHERE ID=" & OrcamentoID
  182.                         cmd.Connection = orcamentosConn
  183.                         cmd.CommandText = cmdText
  184.                         Try
  185.                             cmd.ExecuteNonQuery()
  186.                         Catch ex As Exception
  187.                             Erro("Ocorreu um erro a tentar executar a query: " & vbCrLf & "'" & cmdText & "'" & vbCrLf & vbCrLf & ex.Message)
  188.                         End Try
  189.                         orcamentosConn.Close()
  190.                         CarregarOrcamento()
  191.                         ActualizarDataTables()
  192.                     End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!