DATAGRIDVIEW1 APENAS NUMEROS
Private Sub btnsalvaedicao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalvaedicao.Click
Dim com As New MySqlCommand
Dim ds As New DataSet
Dim adap As New MySqlDataAdapter
Dim con As New MySqlConnection
Try
If (cbxpesquisa.Text = [Ô]CARDAPIO[Ô]) Then
con = New MySqlConnection([Ô]server=localhost ; user id= root ; password= 123456789a ; database=bardotorresmo[Ô])
con.Open()
com.CommandText = [Ô]update CARDAPIO set NOMECARDAPIO=[ô][Ô] & DataGridView1.CurrentRow.Cells(1).Value.ToString.ToUpper & [Ô][ô], PRECO=[ô][Ô] & DataGridView1.CurrentRow.Cells(2).Value & [Ô][ô]where IDCARDAPIO=[ô][Ô] & DataGridView1.CurrentRow.Cells(0).Value & [Ô][ô][Ô]
com.Connection = con
com.ExecuteNonQuery()
adap = New MySqlDataAdapter([Ô]select * from CARDAPIO[Ô], con)
adap.Fill(ds, [Ô]1[Ô])
DataGridView1.DataSource = ds.Tables([Ô]1[Ô])
[ô]este comando serve para dar clean na tabela
[ô]Dim dt As DataTable
[ô]dt = DataGridView1.DataSource
[ô]dt.Rows.Clear()
[ô]cbxpesquisa.Text = [Ô][Ô]
ElseIf (cbxpesquisa.Text = [Ô][Ô]) Then
MessageBox.Show([Ô]Faça uma pesquisa antes![Ô], [Ô]Erro![Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show([Ô]Faça uma pesquisa antes![Ô], [Ô]Erro![Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
esse é meu codigo porém na tabela [txt-color=#e80000]PRECO=[ô][Ô] & DataGridView1.CurrentRow.Cells(2).Value &[/txt-color]
gostaria que entrasse apenas numero ja vi varios tópicos mas nao entendi direito se alguem puder ajudar agradeço ;/
Dim com As New MySqlCommand
Dim ds As New DataSet
Dim adap As New MySqlDataAdapter
Dim con As New MySqlConnection
Try
If (cbxpesquisa.Text = [Ô]CARDAPIO[Ô]) Then
con = New MySqlConnection([Ô]server=localhost ; user id= root ; password= 123456789a ; database=bardotorresmo[Ô])
con.Open()
com.CommandText = [Ô]update CARDAPIO set NOMECARDAPIO=[ô][Ô] & DataGridView1.CurrentRow.Cells(1).Value.ToString.ToUpper & [Ô][ô], PRECO=[ô][Ô] & DataGridView1.CurrentRow.Cells(2).Value & [Ô][ô]where IDCARDAPIO=[ô][Ô] & DataGridView1.CurrentRow.Cells(0).Value & [Ô][ô][Ô]
com.Connection = con
com.ExecuteNonQuery()
adap = New MySqlDataAdapter([Ô]select * from CARDAPIO[Ô], con)
adap.Fill(ds, [Ô]1[Ô])
DataGridView1.DataSource = ds.Tables([Ô]1[Ô])
[ô]este comando serve para dar clean na tabela
[ô]Dim dt As DataTable
[ô]dt = DataGridView1.DataSource
[ô]dt.Rows.Clear()
[ô]cbxpesquisa.Text = [Ô][Ô]
ElseIf (cbxpesquisa.Text = [Ô][Ô]) Then
MessageBox.Show([Ô]Faça uma pesquisa antes![Ô], [Ô]Erro![Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show([Ô]Faça uma pesquisa antes![Ô], [Ô]Erro![Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
esse é meu codigo porém na tabela [txt-color=#e80000]PRECO=[ô][Ô] & DataGridView1.CurrentRow.Cells(2).Value &[/txt-color]
gostaria que entrasse apenas numero ja vi varios tópicos mas nao entendi direito se alguem puder ajudar agradeço ;/
Você vai ter que explicar melhor o que você quer. [Ô]gostaria que entrasse apenas números[Ô] não me diz nada...
tipo quero apenas numeros(0,1,2,3,4,5,6,7,8,9) e virgula(,) exemplo
como na imagem tem o campo preço lá só pode ser inserido o valor...ex:
id = 1 nome= torresmo preço = 2,70....
eu consigo editar o preço e colocar letras... e não quero que isso ocorra? tendeo?
para facilitar ex doque consigo fazer
id = 1 nome = torresmo preço = testa
como na imagem tem o campo preço lá só pode ser inserido o valor...ex:
id = 1 nome= torresmo preço = 2,70....
eu consigo editar o preço e colocar letras... e não quero que isso ocorra? tendeo?
para facilitar ex doque consigo fazer
id = 1 nome = torresmo preço = testa
ja consegui
[ô]permitir a entrada de numeros e a , [ô]
Private Sub Validar_Numeros(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim Celda As DataGridViewCell = DataGridView1.CurrentCell()
If Celda.ColumnIndex = 2 Then
If e.KeyChar = [Ô],[Ô]c Then
If InStr(Celda.EditedFormattedValue.ToString, [Ô],[Ô], CompareMethod.Text) > 0 Then
e.Handled = True
Else
e.Handled = False
End If
Else
If Len(Trim(Celda.EditedFormattedValue.ToString)) > 0 Then
If Char.IsNumber(e.KeyChar) Or e.KeyChar = Convert.ToChar(8) Then
e.Handled = False
Else
e.Handled = True
End If
Else
If e.KeyChar = [Ô]0[Ô]c Then
e.Handled = True
Else
If Char.IsNumber(e.KeyChar) Or e.KeyChar = Convert.ToChar(8) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End If
End If
End If
End Sub
Private Sub DataGridView1_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
AddHandler e.Control.KeyPress, AddressOf Validar_Numeros
End Sub
nesse caso só da tabela preço ;x
[ô]permitir a entrada de numeros e a , [ô]
Private Sub Validar_Numeros(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim Celda As DataGridViewCell = DataGridView1.CurrentCell()
If Celda.ColumnIndex = 2 Then
If e.KeyChar = [Ô],[Ô]c Then
If InStr(Celda.EditedFormattedValue.ToString, [Ô],[Ô], CompareMethod.Text) > 0 Then
e.Handled = True
Else
e.Handled = False
End If
Else
If Len(Trim(Celda.EditedFormattedValue.ToString)) > 0 Then
If Char.IsNumber(e.KeyChar) Or e.KeyChar = Convert.ToChar(8) Then
e.Handled = False
Else
e.Handled = True
End If
Else
If e.KeyChar = [Ô]0[Ô]c Then
e.Handled = True
Else
If Char.IsNumber(e.KeyChar) Or e.KeyChar = Convert.ToChar(8) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End If
End If
End If
End Sub
Private Sub DataGridView1_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
AddHandler e.Control.KeyPress, AddressOf Validar_Numeros
End Sub
nesse caso só da tabela preço ;x
Tópico encerrado , respostas não são mais permitidas