decsousa

Gostaria de saber se a data atual é igual a data em que vou fornecer na variavel feriado. Tentei comparar e converter para string as datas mas mesmo assim não vai a validação é pra exibir um link de segunda a sexta das 8h as 18h, se for sabado ou domingo ou feriado(var feriado) aí exibe outro link obrigado <script language=javascript type="text/javascript"> var now = new Date(); var dia = now.getDay(); var today = new Date(); var feriado = new Date(today) var dd = String(today.getDate()).padStart(2, '0'); var mm = String(today.getMonth() + 1).padStart(2, '0'); //January is 0! var yyyy = today.getFullYear(); today = [mm + '/' + dd + '/' + yyyy]; feriado = '02/07/2022'; if (now.getHours() >= 8 && now.getHours() < 18 && dia >= '1' && dia <= '5' && today !== feriado ) {document.getElementById("LINK").href = "http://uol.com.br"; document.write("Horario de trabalho"); } else {document.getElementById("LINK").href = "https://google.com"; document.write("Não estamos trabalhando hoje (feriado ou final de semana)"); } </script>

Ola pessoal, Sou novo nessa area e estou aprendendo as coisas basicas em CRUD no VB, porem me deparei com uma situacao que não consigo resolver, ao inserir um cadastro o gridview atualiza em tempo real, mas ao atualizar um cadastro o gridview repete as informacoes apenas modificando a linha em questao, ou seja, duplica os dados. Segue meu codigo. obg Imports MySql.Data.MySqlClient Public Class cadastro_empresas Dim con As New MySqlConnection("#####################") Dim cmd As New MySqlCommand Dim adapt As New MySqlDataAdapter Dim dt As New DataTable() 'SELECT BANCO E INSERE OS DADOS NO DATAGRID Sub carrega_dados() Dim query As String = "select * from empresas" Dim adapt As New MySqlDataAdapter(query, con) Dim ds As New DataSet() Try con.Open() adapt.Fill(dt) For Each row In dt.Rows Populate(row(0), row(1), row(2), row(3), row(4), row(5), row(6)) Next con.Close() clearTxt() DataGridView1.Refresh() Catch ex As Exception MsgBox(ex.Message) con.Close() End Try con.Close() End Sub 'CONSTROI POPULAR DATAGRID Private Sub Populate(id As String, nome As String, endereco As String, cidade As String, telefone As String, celular As String, contato As String) Dim row As String() = New String() {id, nome, endereco, cidade, telefone, celular, contato} DataGridView1.Rows.Add(row) End Sub 'CADASTRAR INFORMAÇÕES Private Sub insert() Dim cadastra As String = "INSERT INTO empresas(nome, endereco, cidade, telefone, celular, contato) VALUES (@nome, @endereco, @cidade, @telefone, @celular, @contato)" cmd = New MySqlCommand(cadastra, con) cmd.Parameters.AddWithValue("@nome", nometxt.Text) cmd.Parameters.AddWithValue("@endereco", enderecotxt.Text) cmd.Parameters.AddWithValue("@cidade", cidadetxt.Text) cmd.Parameters.AddWithValue("@telefone", telefonetxt.Text) cmd.Parameters.AddWithValue("@celular", celulartxt.Text) cmd.Parameters.AddWithValue("@contato", contatotxt.Text) Try con.Open() If cmd.ExecuteNonQuery() > 0 Then MsgBox("Cadastrado") clearTxt() carrega_dados() End If con.Close() Catch ex As Exception MsgBox(ex.Message) con.Close() End Try End Sub 'LIMPA CAMPOS FORMULARIO Private Sub clearTxt() nometxt.Text = "" enderecotxt.Text = "" cidadetxt.Text = "" telefonetxt.Text = "" celulartxt.Text = "" contatotxt.Text = "" End Sub 'CONSTRUÇÃO DATAGRID, CARREGA OS DADOS E EXIBE USUARIO LOGADO Private Sub cadastro_empresas_Load(sender As Object, e As EventArgs) Handles MyBase.Load DataGridView1.ColumnCount = 7 DataGridView1.Columns(0).Name = "id" DataGridView1.Columns(1).Name = "nome" DataGridView1.Columns(2).Name = "endereco" DataGridView1.Columns(3).Name = "cidade" DataGridView1.Columns(4).Name = "telefone" DataGridView1.Columns(5).Name = "celular" DataGridView1.Columns(6).Name = "contato" DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect carrega_dados() sessao.Text = My.Forms.login.txtlogin.Text End Sub 'EVENTO BOTAO CADASTRA Private Sub cadastraEmpresa_Click(sender As Object, e As EventArgs) Handles cadastraEmpresa.Click insert() End Sub 'SCRIPT ATUALIZAÇÃO DE REGISTRO Private Sub atualizar(id As String) Dim sql As String = "UPDATE empresas SET nome='" + nometxt.Text + "',endereco='" + enderecotxt.Text + "',cidade='" + cidadetxt.Text + "',telefone='" + telefonetxt.Text + "',celular='" + celulartxt.Text + "',contato='" + contatotxt.Text + "' WHERE id='" + id + "'" Try con.Open() adapt.UpdateCommand = con.CreateCommand() adapt.UpdateCommand.CommandText = sql If adapt.UpdateCommand.ExecuteNonQuery() > 0 Then MsgBox("Registro atualizado com sucesso.") clearTxt() carrega_dados() End If con.Close() Catch ex As Exception MsgBox(ex.Message) con.Close() End Try End Sub 'POPULAR TEXTBOX AO CLICAR NO DATAGRID Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick Dim nome As String = DataGridView1.SelectedRows(0).Cells(1).Value Dim endereco As String = DataGridView1.SelectedRows(0).Cells(2).Value Dim cidade As String = DataGridView1.SelectedRows(0).Cells(3).Value Dim telefone As String = DataGridView1.SelectedRows(0).Cells(4).Value Dim celular As String = DataGridView1.SelectedRows(0).Cells(5).Value Dim contato As String = DataGridView1.SelectedRows(0).Cells(6).Value nometxt.Text = nome enderecotxt.Text = endereco cidadetxt.Text = cidade telefonetxt.Text = telefone celulartxt.Text = celular contatotxt.Text = contato End Sub Private Sub btnAtualizar_Click(sender As Object, e As EventArgs) Handles btnAtualizar.Click Dim id As String = DataGridView1.SelectedRows(0).Cells(0).Value atualizar(id) End Sub End Class