com consulta

[Alex Passos 0]

Olá

 

Eu estou fazendo uma consulta por data no banco de dados MySQL (estou utilizando o Windows Form).

 

Eu abro o form e faço a consulta... beleza funciona 100%, mais quando troco a data pra fazer a consulta novamente da erro aparece a mensagem do msgbox que coloquei, ai quando fecho o form e abro novamente funciona, ou seja, só esta fazendo uma consulta, pra fazer outra tenho que fechar o form e abre ele novamente.

 

olha meu código:

 

Dim varInicial, varFinal As String		Try			BDLogin()			Conexao.Open()			varInicial = Format(CType(DTInicial.Text, Date), "yyyy/MM/dd")			varFinal = Format(CType(DTFinal.Text, Date), "yyyy/MM/dd")			Dim cmd As New MySql.Data.MySqlClient.MySqlCommand("select * from cliente where data_cad between '" & varInicial & "' and '" & varFinal & "'", Conexao)			Dim da As New MySql.Data.MySqlClient.MySqlDataAdapter(cmd)			Dim ds As New DataSet			Dim tb As New DataTable			da.Fill(tb)			ds.Tables.Add(tb)			Dim tableStyle As New DataGridTableStyle			Dim column As New DataGridTextBoxColumn			tableStyle.MappingName = tb.TableName.ToString			column = New DataGridTextBoxColumn			column.MappingName = "id"			column.HeaderText = "id"			column.Width = 0			column.Alignment = HorizontalAlignment.Center			tableStyle.GridColumnStyles.Add(column)			column = New DataGridTextBoxColumn			column.MappingName = "data_cad"			column.HeaderText = "Data"			column.Width = 80			column.Alignment = HorizontalAlignment.Center			tableStyle.GridColumnStyles.Add(column)			column = New DataGridTextBoxColumn			column.MappingName = "codigo"			column.HeaderText = "Código"			column.Width = 60			column.Alignment = HorizontalAlignment.Center			tableStyle.GridColumnStyles.Add(column)			column = New DataGridTextBoxColumn			column.MappingName = "nome"			column.HeaderText = "Nome"			column.Width = 300			'column.Alignment = HorizontalAlignment.Center			tableStyle.GridColumnStyles.Add(column)			column = New DataGridTextBoxColumn			column.MappingName = "cidade"			column.HeaderText = "Cidade"			column.Width = 100			'column.Alignment = HorizontalAlignment.Center			tableStyle.GridColumnStyles.Add(column)			column = New DataGridTextBoxColumn			column.MappingName = "ip"			column.HeaderText = "IP"			column.Width = 80			column.Alignment = HorizontalAlignment.Center			tableStyle.GridColumnStyles.Add(column)			column = New DataGridTextBoxColumn			column.MappingName = "torre"			column.HeaderText = "Torre"			column.Width = 80			column.Alignment = HorizontalAlignment.Center			tableStyle.GridColumnStyles.Add(column)			column = New DataGridTextBoxColumn			column.MappingName = "tipo_radio"			column.HeaderText = "Rádio"			column.Width = 60			column.Alignment = HorizontalAlignment.Center			tableStyle.GridColumnStyles.Add(column)			'APLICAR ESTILO no datagrid 			DGData.TableStyles.Add(tableStyle)			DGData.DataSource = tb			Conexao.Close()			lblResultadoData.Text = tb.Rows.Count.ToString			btnEditarData.Enabled = True			btnExcluirData.Enabled = True			Exit Sub		Catch ex As Exception			MsgBox("Erro na consulta", MsgBoxStyle.Critical, "Atenção")		End Try

O que esta faltando ou tem alguma coisa errada?

 

Obrigado

[Graymalkin 0]

É provável que o erro esteja ao incluir o estilo...

 

DGData.TableStyles.Add(tableStyle)

... novamente na DataGrid. Você só precisa incluí-lo apenas uma vez e todas as vezes que uma tabela com um MappingName igual ao do estilo for ser mostrada o mesmo será automaticamente utilizado. Retire aquele Try... Catch para verificar se o erro ocorre nesta linha mesmo.

 

Abraços,

 

Graymalkin

[Alex Passos 0]

Eu retirei o Try e executei, quando clico a duas vezes esta dando o seguinte erro:na linha:DGCodigo.TableStyles.Add(tableStyle)ArgumentException was unhandledData grid table styles collection already contains a table style with the samemapping nameParameter name: table