PESQUISA NO DATAGRIDVIEW FALHANDO
pessoal outra bucha: Uso o código abaixo em 1 determinado botão, e isso eu uso em 5 formulários diferentes. Apenas em um formulário me mostra o seguinte erro : Cannot find column [Campo2].
Note que o código que eu uso e tabela à ser acessada é tudo igual nos 5 forms.
Dim keywords As String = TextBox5.Text
DataGridView1.Focus()
ds.Tables([Ô]contatos[Ô]).DefaultView.RowFilter = [Ô]Campo2 Like [ô]%[Ô] & keywords & [Ô]%[ô] [Ô]
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
O que pode ser ?
Note que o código que eu uso e tabela à ser acessada é tudo igual nos 5 forms.
Dim keywords As String = TextBox5.Text
DataGridView1.Focus()
ds.Tables([Ô]contatos[Ô]).DefaultView.RowFilter = [Ô]Campo2 Like [ô]%[Ô] & keywords & [Ô]%[ô] [Ô]
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
O que pode ser ?
Amigo, tem alguma diferença sim. Poste ai o código de um form que dá certo e o do que dá errado para vermos.
Como faço para anexar esse arquivo Altair. Já tentei de várias maneiras e só dá formato não aceito.Aguardo;
FORM ONDE O BOTÃO 3 NÃO FUNCIONA
mports System.Data
Imports System.Data.OleDb
Public Class Form14
Dim cmdUpdate As New OleDbCommand
Dim cnnOLEDB As New OleDbConnection
Dim strConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô]
Public a As Boolean = False
Dim conn As OleDbConnection
Dim cmd As New OleDbCommand
Dim reader As OleDbDataReader
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim i As Integer = 0
Dim intLinhaescolhida As Integer
Dim intNumescolhido As Integer
Dim strAssunto As String
Dim strAssunto2 As String
Dim Con As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.MDB;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
Private Sub Form14_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
On Error Resume Next
If a = False Then
e.Cancel = True
End If
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
On Error Resume Next
a = True
Button5.Visible = True
Button3.Visible = False
Button4.Visible = False
Form1.UserToolStripMenuItem.Enabled = True
Form1.AgendaToolStripMenuItem.Enabled = True
Form1.SAIRToolStripMenuItem.Enabled = True
Form1.SENHAToolStripMenuItem.Enabled = True
Form1.EditarcontatosToolStripMenuItem.Enabled = True
Form1.CONTATOSToolStripMenuItem.Enabled = True
Form1.FECToolStripMenuItem.Enabled = True
Me.Close()
End Sub
Private Sub Form14_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Form1.UserToolStripMenuItem.Enabled = False
Form1.AgendaToolStripMenuItem.Enabled = False
Form1.SAIRToolStripMenuItem.Enabled = False
Form1.SENHAToolStripMenuItem.Enabled = False
Form1.EditarcontatosToolStripMenuItem.Enabled = False
Form1.CONTATOSToolStripMenuItem.Enabled = False
Form1.FECToolStripMenuItem.Enabled = False
[ô]cnnOLEDB.ConnectionString = strConnectionString
[ô]cnnOLEDB.Open()
GroupBox1.Visible = False
GroupBox3.Visible = False
Button3.Visible = False
Button4.Visible = False
TextBox5.Focus()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
On Error Resume Next
GroupBox3.Visible = True
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select num,Campo1,Campo2,Campo3,Campo4,Campo5,Campo6,Campo7,Campo8,Campo9,campo10,Campo11,Campo12 from contatos where Campo2 LIKE [ô]%[Ô] & TextBox5.Text & [Ô]%[ô] order by Campo2[Ô], conn)
ds = New DataSet()
da.Fill(ds, [Ô]contatos[Ô])
DataGridView1.DataSource = ds.Tables([Ô]contatos[Ô])
conn.Close()
With DataGridView1
.Columns(0).Width = [Ô]80[Ô] [ô]Primeira coluna
.Columns(0).HeaderText = [Ô]ID[Ô]
.Columns(1).Width = [Ô]100[Ô] [ô]segunda coluna
.Columns(1).HeaderText = [Ô]Nome fantasia[Ô]
.Columns(2).Width = [Ô]300[Ô] [ô]terceira coluna
.Columns(2).HeaderText = [Ô]Razão social[Ô]
.Columns(3).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(3).HeaderText = [Ô]Cidade[Ô]
.Columns(4).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(4).HeaderText = [Ô]Telefone_geral[Ô]
.Columns(5).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(5).HeaderText = [Ô]Pessoa_contato[Ô]
.Columns(6).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(6).HeaderText = [Ô]CNPJ/CPF[Ô]
.Columns(7).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(7).HeaderText = [Ô]I.Estadual/R.G.[Ô]
.Columns(8).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(8).HeaderText = [Ô]Endereço[Ô]
.Columns(9).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(9).HeaderText = [Ô]Bairro[Ô]
.Columns(10).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(10).HeaderText = [Ô]CEP[Ô]
.Columns(11).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(11).HeaderText = [Ô]Email[Ô]
.Columns(12).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(12).HeaderText = [Ô]Celular[Ô]
Dim Indice As Integer = 1
For x = 0 To DataGridView1.Rows.Count - 1
If Indice = 1 Then
.Rows(x).DefaultCellStyle.BackColor = Color.Aqua
Else
If Indice = 2 Then
.Rows(x).DefaultCellStyle.BackColor = Color.White
End If
End If
Indice += 1
If Indice = 3 Then
Indice = 1
End If
Next
End With
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select num,assunto from assuntos order by assunto[Ô], conn)
ds = New DataSet()
da.Fill(ds, [Ô]contatos[Ô])
DataGridView2.DataSource = ds.Tables([Ô]contatos[Ô])
conn.Close()
With DataGridView2
.Columns(0).Width = [Ô]40[Ô] [ô]Primeira coluna
.Columns(0).HeaderText = [Ô]ID[Ô]
.Columns(1).Width = [Ô]250[Ô] [ô]Primeira coluna
.Columns(1).HeaderText = [Ô]Assuntos[Ô]
Dim Indice As Integer = 1
For x = 0 To DataGridView2.Rows.Count - 1
If Indice = 1 Then
.Rows(x).DefaultCellStyle.BackColor = Color.Aqua
Else
If Indice = 2 Then
.Rows(x).DefaultCellStyle.BackColor = Color.White
End If
End If
Indice += 1
If Indice = 3 Then
Indice = 1
End If
Next
End With
Button5.Visible = False
Button3.Visible = True
Button4.Visible = True
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
DataGridView2.Rows(0).Selected = True
End Sub
Private Sub TextBox5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.LostFocus
On Error Resume Next
Button5.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
Dim keywords As String = TextBox5.Text
DataGridView1.Focus()
ds.Tables([Ô]contatos[Ô]).DefaultView.RowFilter = [Ô]Campo2 Like [ô]%[Ô] & keywords & [Ô]%[ô] [Ô]
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error Resume Next
Button5.Visible = True
Button3.Visible = False
Button4.Visible = False
TextBox5.Text = [Ô][Ô]
DataGridView1.DataSource = Nothing
TextBox5.Focus()
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
On Error Resume Next
GroupBox1.Visible = True
intLinhaescolhida = e.RowIndex
intNumescolhido = DataGridView1.Rows(e.RowIndex).Cells(0).Value
TextBox1.Text = [Ô][Ô]
TextBox2.Text = [Ô][Ô]
TextBox3.Text = [Ô][Ô]
TextBox4.Text = [Ô][Ô]
TextBox6.Text = [Ô][Ô]
TextBox7.Text = [Ô][Ô]
TextBox8.Text = [Ô][Ô]
TextBox9.Text = [Ô][Ô]
TextBox10.Text = [Ô][Ô]
TextBox11.Text = [Ô][Ô]
TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
TextBox3.Text = Today
TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value
TextBox6.Text = DataGridView1.Rows(e.RowIndex).Cells(5).Value
TextBox8.Text = Today
TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells(11).Value
TextBox10.Text = DataGridView1.Rows(e.RowIndex).Cells(12).Value
TextBox11.Text = DataGridView1.Rows(e.RowIndex).Cells(6).Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim intContador As Integer
Dim strLinha As String
strAssunto2 = [Ô][Ô]
intContador = 0
If TextBox1.Text <> [Ô][Ô] And TextBox2.Text <> [Ô][Ô] And TextBox3.Text <> [Ô][Ô] And TextBox4.Text <> [Ô][Ô] And TextBox6.Text <> [Ô][Ô] And TextBox8.Text <> [Ô][Ô] Then
For Each row As DataGridViewRow In Me.DataGridView2.Rows
If Not row.IsNewRow Then
strLinha = DataGridView2.Rows(intContador).Cells(1).Value
strAssunto2 = strAssunto2 & [Ô] [Ô] & strLinha
intContador = intContador + 1
End If
Next
Try
cmd = Con.CreateCommand
Con.Open()
With cmd
.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO ligacoes (assunto,conversa,nomefantasia,razaosocial,dataligacao,pessoacontatada,telefone,proxligacao,celular,email,cnpj)VALUES (@assunto,@conversa,@nomefantasia,@razaosocial,@dataligacao,@pessoacontatada,@telefone,@proxligacao,@celular,@email,@cnpj)[Ô]
.Parameters.Add([Ô]@assunto[Ô], OleDbType.VarChar)
.Parameters([Ô]@assunto[Ô]).Value = strAssunto2
.
mports System.Data
Imports System.Data.OleDb
Public Class Form14
Dim cmdUpdate As New OleDbCommand
Dim cnnOLEDB As New OleDbConnection
Dim strConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô]
Public a As Boolean = False
Dim conn As OleDbConnection
Dim cmd As New OleDbCommand
Dim reader As OleDbDataReader
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim i As Integer = 0
Dim intLinhaescolhida As Integer
Dim intNumescolhido As Integer
Dim strAssunto As String
Dim strAssunto2 As String
Dim Con As New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.MDB;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
Private Sub Form14_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
On Error Resume Next
If a = False Then
e.Cancel = True
End If
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
On Error Resume Next
a = True
Button5.Visible = True
Button3.Visible = False
Button4.Visible = False
Form1.UserToolStripMenuItem.Enabled = True
Form1.AgendaToolStripMenuItem.Enabled = True
Form1.SAIRToolStripMenuItem.Enabled = True
Form1.SENHAToolStripMenuItem.Enabled = True
Form1.EditarcontatosToolStripMenuItem.Enabled = True
Form1.CONTATOSToolStripMenuItem.Enabled = True
Form1.FECToolStripMenuItem.Enabled = True
Me.Close()
End Sub
Private Sub Form14_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Form1.UserToolStripMenuItem.Enabled = False
Form1.AgendaToolStripMenuItem.Enabled = False
Form1.SAIRToolStripMenuItem.Enabled = False
Form1.SENHAToolStripMenuItem.Enabled = False
Form1.EditarcontatosToolStripMenuItem.Enabled = False
Form1.CONTATOSToolStripMenuItem.Enabled = False
Form1.FECToolStripMenuItem.Enabled = False
[ô]cnnOLEDB.ConnectionString = strConnectionString
[ô]cnnOLEDB.Open()
GroupBox1.Visible = False
GroupBox3.Visible = False
Button3.Visible = False
Button4.Visible = False
TextBox5.Focus()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
On Error Resume Next
GroupBox3.Visible = True
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select num,Campo1,Campo2,Campo3,Campo4,Campo5,Campo6,Campo7,Campo8,Campo9,campo10,Campo11,Campo12 from contatos where Campo2 LIKE [ô]%[Ô] & TextBox5.Text & [Ô]%[ô] order by Campo2[Ô], conn)
ds = New DataSet()
da.Fill(ds, [Ô]contatos[Ô])
DataGridView1.DataSource = ds.Tables([Ô]contatos[Ô])
conn.Close()
With DataGridView1
.Columns(0).Width = [Ô]80[Ô] [ô]Primeira coluna
.Columns(0).HeaderText = [Ô]ID[Ô]
.Columns(1).Width = [Ô]100[Ô] [ô]segunda coluna
.Columns(1).HeaderText = [Ô]Nome fantasia[Ô]
.Columns(2).Width = [Ô]300[Ô] [ô]terceira coluna
.Columns(2).HeaderText = [Ô]Razão social[Ô]
.Columns(3).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(3).HeaderText = [Ô]Cidade[Ô]
.Columns(4).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(4).HeaderText = [Ô]Telefone_geral[Ô]
.Columns(5).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(5).HeaderText = [Ô]Pessoa_contato[Ô]
.Columns(6).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(6).HeaderText = [Ô]CNPJ/CPF[Ô]
.Columns(7).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(7).HeaderText = [Ô]I.Estadual/R.G.[Ô]
.Columns(8).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(8).HeaderText = [Ô]Endereço[Ô]
.Columns(9).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(9).HeaderText = [Ô]Bairro[Ô]
.Columns(10).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(10).HeaderText = [Ô]CEP[Ô]
.Columns(11).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(11).HeaderText = [Ô]Email[Ô]
.Columns(12).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(12).HeaderText = [Ô]Celular[Ô]
Dim Indice As Integer = 1
For x = 0 To DataGridView1.Rows.Count - 1
If Indice = 1 Then
.Rows(x).DefaultCellStyle.BackColor = Color.Aqua
Else
If Indice = 2 Then
.Rows(x).DefaultCellStyle.BackColor = Color.White
End If
End If
Indice += 1
If Indice = 3 Then
Indice = 1
End If
Next
End With
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select num,assunto from assuntos order by assunto[Ô], conn)
ds = New DataSet()
da.Fill(ds, [Ô]contatos[Ô])
DataGridView2.DataSource = ds.Tables([Ô]contatos[Ô])
conn.Close()
With DataGridView2
.Columns(0).Width = [Ô]40[Ô] [ô]Primeira coluna
.Columns(0).HeaderText = [Ô]ID[Ô]
.Columns(1).Width = [Ô]250[Ô] [ô]Primeira coluna
.Columns(1).HeaderText = [Ô]Assuntos[Ô]
Dim Indice As Integer = 1
For x = 0 To DataGridView2.Rows.Count - 1
If Indice = 1 Then
.Rows(x).DefaultCellStyle.BackColor = Color.Aqua
Else
If Indice = 2 Then
.Rows(x).DefaultCellStyle.BackColor = Color.White
End If
End If
Indice += 1
If Indice = 3 Then
Indice = 1
End If
Next
End With
Button5.Visible = False
Button3.Visible = True
Button4.Visible = True
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
DataGridView2.Rows(0).Selected = True
End Sub
Private Sub TextBox5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.LostFocus
On Error Resume Next
Button5.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
Dim keywords As String = TextBox5.Text
DataGridView1.Focus()
ds.Tables([Ô]contatos[Ô]).DefaultView.RowFilter = [Ô]Campo2 Like [ô]%[Ô] & keywords & [Ô]%[ô] [Ô]
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error Resume Next
Button5.Visible = True
Button3.Visible = False
Button4.Visible = False
TextBox5.Text = [Ô][Ô]
DataGridView1.DataSource = Nothing
TextBox5.Focus()
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
On Error Resume Next
GroupBox1.Visible = True
intLinhaescolhida = e.RowIndex
intNumescolhido = DataGridView1.Rows(e.RowIndex).Cells(0).Value
TextBox1.Text = [Ô][Ô]
TextBox2.Text = [Ô][Ô]
TextBox3.Text = [Ô][Ô]
TextBox4.Text = [Ô][Ô]
TextBox6.Text = [Ô][Ô]
TextBox7.Text = [Ô][Ô]
TextBox8.Text = [Ô][Ô]
TextBox9.Text = [Ô][Ô]
TextBox10.Text = [Ô][Ô]
TextBox11.Text = [Ô][Ô]
TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
TextBox3.Text = Today
TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value
TextBox6.Text = DataGridView1.Rows(e.RowIndex).Cells(5).Value
TextBox8.Text = Today
TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells(11).Value
TextBox10.Text = DataGridView1.Rows(e.RowIndex).Cells(12).Value
TextBox11.Text = DataGridView1.Rows(e.RowIndex).Cells(6).Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim intContador As Integer
Dim strLinha As String
strAssunto2 = [Ô][Ô]
intContador = 0
If TextBox1.Text <> [Ô][Ô] And TextBox2.Text <> [Ô][Ô] And TextBox3.Text <> [Ô][Ô] And TextBox4.Text <> [Ô][Ô] And TextBox6.Text <> [Ô][Ô] And TextBox8.Text <> [Ô][Ô] Then
For Each row As DataGridViewRow In Me.DataGridView2.Rows
If Not row.IsNewRow Then
strLinha = DataGridView2.Rows(intContador).Cells(1).Value
strAssunto2 = strAssunto2 & [Ô] [Ô] & strLinha
intContador = intContador + 1
End If
Next
Try
cmd = Con.CreateCommand
Con.Open()
With cmd
.CommandType = CommandType.Text
.CommandText = [Ô]INSERT INTO ligacoes (assunto,conversa,nomefantasia,razaosocial,dataligacao,pessoacontatada,telefone,proxligacao,celular,email,cnpj)VALUES (@assunto,@conversa,@nomefantasia,@razaosocial,@dataligacao,@pessoacontatada,@telefone,@proxligacao,@celular,@email,@cnpj)[Ô]
.Parameters.Add([Ô]@assunto[Ô], OleDbType.VarChar)
.Parameters([Ô]@assunto[Ô]).Value = strAssunto2
.
FORM ONDE O BOTÃO 3 FUNCIONA DIREITINHO
Imports System.Data
Imports System.Data.OleDb
Public Class Form12
Dim cmdUpdate As New OleDbCommand
Dim cnnOLEDB As New OleDbConnection
Dim strConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô]
Public a As Boolean = False
Dim conn As OleDbConnection
Dim cmd As New OleDbCommand
Dim reader As OleDbDataReader
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim i As Integer = 0
Dim intLinhaescolhida As Integer
Dim intNumescolhido As Integer
Private Sub Form12_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
On Error Resume Next
If a = False Then
e.Cancel = True
End If
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
On Error Resume Next
a = True
Button5.Visible = True
Button3.Visible = False
Button4.Visible = False
Form1.UserToolStripMenuItem.Enabled = True
Form1.AgendaToolStripMenuItem.Enabled = True
Form1.SAIRToolStripMenuItem.Enabled = True
Form1.SENHAToolStripMenuItem.Enabled = True
Form1.EditarcontatosToolStripMenuItem.Enabled = True
Form1.CONTATOSToolStripMenuItem.Enabled = True
Form1.FECToolStripMenuItem.Enabled = True
Me.Close()
End Sub
Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Form1.UserToolStripMenuItem.Enabled = False
Form1.AgendaToolStripMenuItem.Enabled = False
Form1.SAIRToolStripMenuItem.Enabled = False
Form1.SENHAToolStripMenuItem.Enabled = False
Form1.EditarcontatosToolStripMenuItem.Enabled = False
Form1.CONTATOSToolStripMenuItem.Enabled = False
Form1.FECToolStripMenuItem.Enabled = False
[ô]cnnOLEDB.ConnectionString = strConnectionString
[ô]cnnOLEDB.Open()
GroupBox1.Visible = False
GroupBox3.Visible = False
Button3.Visible = False
Button4.Visible = False
TextBox5.Focus()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
On Error Resume Next
GroupBox3.Visible = True
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select num,Campo1,Campo2,Campo3,Campo4,Campo5,Campo6,Campo7,Campo8,Campo9,campo10,Campo11,Campo12 from contatos where Campo2 LIKE [ô]%[Ô] & TextBox5.Text & [Ô]%[ô] order by Campo2[Ô], conn)
ds = New DataSet()
da.Fill(ds, [Ô]contatos[Ô])
DataGridView1.DataSource = ds.Tables([Ô]contatos[Ô])
conn.Close()
With DataGridView1
.Columns(0).Width = [Ô]80[Ô] [ô]Primeira coluna
.Columns(0).HeaderText = [Ô]ID[Ô]
.Columns(1).Width = [Ô]100[Ô] [ô]segunda coluna
.Columns(1).HeaderText = [Ô]Nome fantasia[Ô]
.Columns(2).Width = [Ô]300[Ô] [ô]terceira coluna
.Columns(2).HeaderText = [Ô]Razão social[Ô]
.Columns(3).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(3).HeaderText = [Ô]Cidade[Ô]
.Columns(4).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(4).HeaderText = [Ô]Telefone_geral[Ô]
.Columns(5).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(5).HeaderText = [Ô]Pessoa_contato[Ô]
.Columns(6).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(6).HeaderText = [Ô]CNPJ/CPF[Ô]
.Columns(7).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(7).HeaderText = [Ô]I.Estadual/R.G.[Ô]
.Columns(8).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(8).HeaderText = [Ô]Endereço[Ô]
.Columns(9).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(9).HeaderText = [Ô]Bairro[Ô]
.Columns(10).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(10).HeaderText = [Ô]CEP[Ô]
.Columns(11).Width = [Ô]80[Ô] [ô]terceira coluna
.Columns(11).HeaderText = [Ô]Email[Ô]
.Columns(12).Width = [Ô]80[Ô] [ô]terceira coluna
.Columns(12).HeaderText = [Ô]Celular[Ô]
Dim Indice As Integer = 1
For x = 0 To DataGridView1.Rows.Count - 1
If Indice = 1 Then
.Rows(x).DefaultCellStyle.BackColor = Color.Aqua
Else
If Indice = 2 Then
.Rows(x).DefaultCellStyle.BackColor = Color.White
End If
End If
Indice += 1
If Indice = 3 Then
Indice = 1
End If
Next
End With
Button5.Visible = False
Button3.Visible = True
Button4.Visible = True
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
End Sub
Private Sub TextBox5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.LostFocus
On Error Resume Next
Button5.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
Dim keywords As String = TextBox5.Text
DataGridView1.Focus()
ds.Tables([Ô]contatos[Ô]).DefaultView.RowFilter = [Ô]Campo2 Like [ô]%[Ô] & keywords & [Ô]%[ô] [Ô]
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error Resume Next
Button5.Visible = True
Button3.Visible = False
Button4.Visible = False
TextBox5.Text = [Ô][Ô]
DataGridView1.DataSource = Nothing
TextBox5.Focus()
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
On Error Resume Next
GroupBox1.Visible = True
intLinhaescolhida = e.RowIndex
intNumescolhido = DataGridView1.Rows(e.RowIndex).Cells(0).Value
TextBox1.Text = [Ô][Ô]
TextBox2.Text = [Ô][Ô]
TextBox3.Text = [Ô][Ô]
TextBox4.Text = [Ô][Ô]
TextBox6.Text = [Ô][Ô]
TextBox7.Text = [Ô][Ô]
TextBox8.Text = [Ô][Ô]
TextBox9.Text = [Ô][Ô]
TextBox10.Text = [Ô][Ô]
TextBox11.Text = [Ô][Ô]
TextBox12.Text = [Ô][Ô]
TextBox13.Text = [Ô][Ô]
TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value
TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value
TextBox6.Text = DataGridView1.Rows(e.RowIndex).Cells(5).Value
TextBox7.Text = DataGridView1.Rows(e.RowIndex).Cells(6).Value
TextBox8.Text = DataGridView1.Rows(e.RowIndex).Cells(7).Value
TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells(8).Value
TextBox10.Text = DataGridView1.Rows(e.RowIndex).Cells(9).Value
TextBox11.Text = DataGridView1.Rows(e.RowIndex).Cells(10).Value
TextBox12.Text = DataGridView1.Rows(e.RowIndex).Cells(11).Value
TextBox13.Text = DataGridView1.Rows(e.RowIndex).Cells(12).Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
If TextBox1.Text <> [Ô][Ô] And TextBox2.Text <> [Ô][Ô] And TextBox3.Text <> [Ô][Ô] And TextBox4.Text <> [Ô][Ô] And TextBox6.Text <> [Ô][Ô] And TextBox7.Text <> [Ô][Ô] And TextBox8.Text <> [Ô][Ô] And TextBox9.Text <> [Ô][Ô] And TextBox10.Text <> [Ô][Ô] And TextBox11.Text <> [Ô][Ô] Then
cnnOLEDB.ConnectionString = strConnectionString
cnnOLEDB.Open()
cmdUpdate.CommandText = [Ô]UPDATE contatos SET Campo1=[ô][Ô] & TextBox1.Text & [Ô][ô], Campo2=[ô][Ô] & TextBox2.Text & [Ô][ô], Campo3=[ô][Ô] & TextBox3.Text & [Ô][ô], Campo4=[ô][Ô] & TextBox4.Text & [Ô][ô], Campo5=[ô][Ô] & TextBox6.Text & [Ô][ô], Campo6=[ô][Ô] & TextBox7.Text & [Ô][ô], Campo7=[ô][Ô] & TextBox8.Text & [Ô][ô], Campo8=[ô][Ô] & TextBox9.Text & [Ô][ô], Campo9=[ô][Ô] & TextBox10.Text & [Ô][ô], Campo10=[ô][Ô] & TextBox11.Text & [Ô][ô], Campo11=[ô][Ô] & TextBox12.Text & [Ô][ô], Campo12=[ô][Ô] & TextBox13.Text & [Ô][ô] WHERE num = [Ô] & intNumescolhido & [Ô];[Ô]
cmdUpdate.CommandType = CommandType.Text
cmdUpdate.Connection = cnnOLEDB
cmdUpdate.ExecuteNonQuery()
cmdUpdate.Dispose()
cnnOLEDB.Close()
DataGridView1.Rows(intLinhaescolhida).Cells(1).Value = TextBox1.Text
DataGridView1.Rows(intLinhaescolhida).Cells(2).Value = TextBox2.Text
DataGridView1.Rows(intLinhaescolhida).Cells(3).Value = TextBox3.Text
DataGridView1.Rows(intLinhaescolhida).Cells(4).Value = TextBox4.Text
DataGridView1.Rows(intLinhaescolhida).Cells(5).Value = TextBox6.Text
DataGridView1.Rows(intLinhaescolhida).Cells(6).Value = TextBox7.Text
DataGridView1.Rows(intLinhaescolhida).Cells(7).Value = TextBox8.Text
DataGridView1.Rows(intLinhaescolhida).Cells(8).Value = TextBox9.Text
DataGridView1.Rows(intLinhaescolhida).Cells(9).Value = TextBox10.Text
DataGridView1.Rows(intLinhaescolhida).Cells(10).Value = TextBox11.Text
DataGridView1.Rows(intLinhaescolhida).Cells(11).Value = TextBox12.Text
DataGridView1.Rows(intLinhaescolhida).Cells(12).Value = TextBox13.Text
MsgBox([Ô]Operação realizada com sucesso.[Ô])
Else
MsgBox([Ô]Todos os campos precisam estar preenchidos.[Ô])
TextBox1.Focus()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Imports System.Data
Imports System.Data.OleDb
Public Class Form12
Dim cmdUpdate As New OleDbCommand
Dim cnnOLEDB As New OleDbConnection
Dim strConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô]
Public a As Boolean = False
Dim conn As OleDbConnection
Dim cmd As New OleDbCommand
Dim reader As OleDbDataReader
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim i As Integer = 0
Dim intLinhaescolhida As Integer
Dim intNumescolhido As Integer
Private Sub Form12_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
On Error Resume Next
If a = False Then
e.Cancel = True
End If
End Sub
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
On Error Resume Next
a = True
Button5.Visible = True
Button3.Visible = False
Button4.Visible = False
Form1.UserToolStripMenuItem.Enabled = True
Form1.AgendaToolStripMenuItem.Enabled = True
Form1.SAIRToolStripMenuItem.Enabled = True
Form1.SENHAToolStripMenuItem.Enabled = True
Form1.EditarcontatosToolStripMenuItem.Enabled = True
Form1.CONTATOSToolStripMenuItem.Enabled = True
Form1.FECToolStripMenuItem.Enabled = True
Me.Close()
End Sub
Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
Form1.UserToolStripMenuItem.Enabled = False
Form1.AgendaToolStripMenuItem.Enabled = False
Form1.SAIRToolStripMenuItem.Enabled = False
Form1.SENHAToolStripMenuItem.Enabled = False
Form1.EditarcontatosToolStripMenuItem.Enabled = False
Form1.CONTATOSToolStripMenuItem.Enabled = False
Form1.FECToolStripMenuItem.Enabled = False
[ô]cnnOLEDB.ConnectionString = strConnectionString
[ô]cnnOLEDB.Open()
GroupBox1.Visible = False
GroupBox3.Visible = False
Button3.Visible = False
Button4.Visible = False
TextBox5.Focus()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
On Error Resume Next
GroupBox3.Visible = True
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select num,Campo1,Campo2,Campo3,Campo4,Campo5,Campo6,Campo7,Campo8,Campo9,campo10,Campo11,Campo12 from contatos where Campo2 LIKE [ô]%[Ô] & TextBox5.Text & [Ô]%[ô] order by Campo2[Ô], conn)
ds = New DataSet()
da.Fill(ds, [Ô]contatos[Ô])
DataGridView1.DataSource = ds.Tables([Ô]contatos[Ô])
conn.Close()
With DataGridView1
.Columns(0).Width = [Ô]80[Ô] [ô]Primeira coluna
.Columns(0).HeaderText = [Ô]ID[Ô]
.Columns(1).Width = [Ô]100[Ô] [ô]segunda coluna
.Columns(1).HeaderText = [Ô]Nome fantasia[Ô]
.Columns(2).Width = [Ô]300[Ô] [ô]terceira coluna
.Columns(2).HeaderText = [Ô]Razão social[Ô]
.Columns(3).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(3).HeaderText = [Ô]Cidade[Ô]
.Columns(4).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(4).HeaderText = [Ô]Telefone_geral[Ô]
.Columns(5).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(5).HeaderText = [Ô]Pessoa_contato[Ô]
.Columns(6).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(6).HeaderText = [Ô]CNPJ/CPF[Ô]
.Columns(7).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(7).HeaderText = [Ô]I.Estadual/R.G.[Ô]
.Columns(8).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(8).HeaderText = [Ô]Endereço[Ô]
.Columns(9).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(9).HeaderText = [Ô]Bairro[Ô]
.Columns(10).Width = [Ô]100[Ô] [ô]terceira coluna
.Columns(10).HeaderText = [Ô]CEP[Ô]
.Columns(11).Width = [Ô]80[Ô] [ô]terceira coluna
.Columns(11).HeaderText = [Ô]Email[Ô]
.Columns(12).Width = [Ô]80[Ô] [ô]terceira coluna
.Columns(12).HeaderText = [Ô]Celular[Ô]
Dim Indice As Integer = 1
For x = 0 To DataGridView1.Rows.Count - 1
If Indice = 1 Then
.Rows(x).DefaultCellStyle.BackColor = Color.Aqua
Else
If Indice = 2 Then
.Rows(x).DefaultCellStyle.BackColor = Color.White
End If
End If
Indice += 1
If Indice = 3 Then
Indice = 1
End If
Next
End With
Button5.Visible = False
Button3.Visible = True
Button4.Visible = True
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
End Sub
Private Sub TextBox5_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox5.LostFocus
On Error Resume Next
Button5.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
Dim keywords As String = TextBox5.Text
DataGridView1.Focus()
ds.Tables([Ô]contatos[Ô]).DefaultView.RowFilter = [Ô]Campo2 Like [ô]%[Ô] & keywords & [Ô]%[ô] [Ô]
DataGridView1.Focus()
DataGridView1.Rows(0).Selected = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error Resume Next
Button5.Visible = True
Button3.Visible = False
Button4.Visible = False
TextBox5.Text = [Ô][Ô]
DataGridView1.DataSource = Nothing
TextBox5.Focus()
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
On Error Resume Next
GroupBox1.Visible = True
intLinhaescolhida = e.RowIndex
intNumescolhido = DataGridView1.Rows(e.RowIndex).Cells(0).Value
TextBox1.Text = [Ô][Ô]
TextBox2.Text = [Ô][Ô]
TextBox3.Text = [Ô][Ô]
TextBox4.Text = [Ô][Ô]
TextBox6.Text = [Ô][Ô]
TextBox7.Text = [Ô][Ô]
TextBox8.Text = [Ô][Ô]
TextBox9.Text = [Ô][Ô]
TextBox10.Text = [Ô][Ô]
TextBox11.Text = [Ô][Ô]
TextBox12.Text = [Ô][Ô]
TextBox13.Text = [Ô][Ô]
TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value
TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value
TextBox6.Text = DataGridView1.Rows(e.RowIndex).Cells(5).Value
TextBox7.Text = DataGridView1.Rows(e.RowIndex).Cells(6).Value
TextBox8.Text = DataGridView1.Rows(e.RowIndex).Cells(7).Value
TextBox9.Text = DataGridView1.Rows(e.RowIndex).Cells(8).Value
TextBox10.Text = DataGridView1.Rows(e.RowIndex).Cells(9).Value
TextBox11.Text = DataGridView1.Rows(e.RowIndex).Cells(10).Value
TextBox12.Text = DataGridView1.Rows(e.RowIndex).Cells(11).Value
TextBox13.Text = DataGridView1.Rows(e.RowIndex).Cells(12).Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
If TextBox1.Text <> [Ô][Ô] And TextBox2.Text <> [Ô][Ô] And TextBox3.Text <> [Ô][Ô] And TextBox4.Text <> [Ô][Ô] And TextBox6.Text <> [Ô][Ô] And TextBox7.Text <> [Ô][Ô] And TextBox8.Text <> [Ô][Ô] And TextBox9.Text <> [Ô][Ô] And TextBox10.Text <> [Ô][Ô] And TextBox11.Text <> [Ô][Ô] Then
cnnOLEDB.ConnectionString = strConnectionString
cnnOLEDB.Open()
cmdUpdate.CommandText = [Ô]UPDATE contatos SET Campo1=[ô][Ô] & TextBox1.Text & [Ô][ô], Campo2=[ô][Ô] & TextBox2.Text & [Ô][ô], Campo3=[ô][Ô] & TextBox3.Text & [Ô][ô], Campo4=[ô][Ô] & TextBox4.Text & [Ô][ô], Campo5=[ô][Ô] & TextBox6.Text & [Ô][ô], Campo6=[ô][Ô] & TextBox7.Text & [Ô][ô], Campo7=[ô][Ô] & TextBox8.Text & [Ô][ô], Campo8=[ô][Ô] & TextBox9.Text & [Ô][ô], Campo9=[ô][Ô] & TextBox10.Text & [Ô][ô], Campo10=[ô][Ô] & TextBox11.Text & [Ô][ô], Campo11=[ô][Ô] & TextBox12.Text & [Ô][ô], Campo12=[ô][Ô] & TextBox13.Text & [Ô][ô] WHERE num = [Ô] & intNumescolhido & [Ô];[Ô]
cmdUpdate.CommandType = CommandType.Text
cmdUpdate.Connection = cnnOLEDB
cmdUpdate.ExecuteNonQuery()
cmdUpdate.Dispose()
cnnOLEDB.Close()
DataGridView1.Rows(intLinhaescolhida).Cells(1).Value = TextBox1.Text
DataGridView1.Rows(intLinhaescolhida).Cells(2).Value = TextBox2.Text
DataGridView1.Rows(intLinhaescolhida).Cells(3).Value = TextBox3.Text
DataGridView1.Rows(intLinhaescolhida).Cells(4).Value = TextBox4.Text
DataGridView1.Rows(intLinhaescolhida).Cells(5).Value = TextBox6.Text
DataGridView1.Rows(intLinhaescolhida).Cells(6).Value = TextBox7.Text
DataGridView1.Rows(intLinhaescolhida).Cells(7).Value = TextBox8.Text
DataGridView1.Rows(intLinhaescolhida).Cells(8).Value = TextBox9.Text
DataGridView1.Rows(intLinhaescolhida).Cells(9).Value = TextBox10.Text
DataGridView1.Rows(intLinhaescolhida).Cells(10).Value = TextBox11.Text
DataGridView1.Rows(intLinhaescolhida).Cells(11).Value = TextBox12.Text
DataGridView1.Rows(intLinhaescolhida).Cells(12).Value = TextBox13.Text
MsgBox([Ô]Operação realizada com sucesso.[Ô])
Else
MsgBox([Ô]Todos os campos precisam estar preenchidos.[Ô])
TextBox1.Focus()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
é NÃO DEU NÃO
Amigo o código assim é mais complicado de olhar, se tiver como anexar ficaria bem mais pratico, para anexar basta compactar como ZIP.
faça como nosso amigo altair falou poste o anexo compactado como .zip usa o winrar
Eu devo Compactar o arquivo Form14.vb e carregar o Form14.rar ? Porque fiz isso e quando vou em escolher arquivo ele me diz que o formato de arquivo enviado não é aceito.
Amigo eu disse [Ô]ZIP[Ô], que é diferente de [Ô].RAR[Ô], o fórum não aceita arquivos com a extensão .RAR. Seria interessante mandar o projeto todo se tiver como, inclusive o banco.
Altair tem algum email que posso te mandar ? Tento anexar zipado (1,2 KB ) mas me diz que o arquivo é muito extenso, e não tem jeito.
Tópico encerrado , respostas não são mais permitidas