UPDATE E SELECT EM CHECKBOX

EDISIMOES 15/01/2012 11:28:27
#393256
Ola a todos.
Tenho tres checkBox, ja consegui fazer insert com eles, agora o grilo é que não consigo retornar os valaores detrue /false e nem far um update, se alguem puder me ajudar fico agradecido.
FOXMAN 15/01/2012 12:34:50
#393259
é preciso saber como estão os campos referentes aos checkbox no banco de dados.
De uma forma geral, você pode tratar os valores (True/False) como 0/1 respecitvamente.

Se você conseguiu fazer insert, é questão de tratar os dados de retorno para Select.
Já para Update é igual ao insert com diferênça da sintax sql .

Manda o códito que vc utiliza para insert que fica fácil exemplificar para você...
EDISIMOES 16/01/2012 07:32:24
#393276
Ola companheiro Foxman da vizinha cidade,
o código que uso no insertr é o seguinte:



Private Sub incluir()
Dim Con As New OleDbConnection
Con.ConnectionString = My.Settings.CNS1
Try
Con.Open()
Catch ex As Exception
MessageBox.Show([Ô]Erro ao tentar acessar conexão com o Banco de Dados.[Ô] & ex.Message)
Return
End Try

Dim Comando As New OleDbCommand


Comando.CommandText = [Ô]INSERT INTO CadMotorista ( Nome, Cidade, TelFixo, TelCel, Observacao, EscAnterior, DataApresentacao, Vencimento_CNH, Contrato, Escalado, 1Safra, NaoPegar )[Ô] & _
[Ô] VALUES ( @Nome, @Cidade, @TelFixo, @TelCel, @Observacao, @EscAnterior, @DataApresentacao, @Vencimento_CNH, @Contrato, @Escalado, @1Safra, @NaoPegar )[Ô]


Comando.Parameters.Clear()
Comando.Parameters.Add([Ô]@Nome[Ô], OleDbType.VarChar, 40).Value = txtNome.Text
Comando.Parameters.Add([Ô]@Cidade[Ô], OleDbType.VarChar, 40).Value = txtCidade.Text
Comando.Parameters.Add([Ô]@TelFixo[Ô], OleDbType.VarChar, 15).Value = mskTelFixo.Text
Comando.Parameters.Add([Ô]@TelCel[Ô], OleDbType.VarChar, 15).Value = mskTelCel.Text
Comando.Parameters.Add([Ô]@Observacao[Ô], OleDbType.VarChar, 255).Value = txtObsrv.Text
Comando.Parameters.Add([Ô]@EscAnterior[Ô], OleDbType.VarChar, 10).Value = txtEscAnt.Text
Comando.Parameters.Add([Ô]@DataApresentacao[Ô], OleDbType.VarChar, 12).Value = dtApresentacao.Text
Comando.Parameters.Add([Ô]@Vencimento_CNH[Ô], OleDbType.VarChar, 12).Value = mskVencCNH.Text
Comando.Parameters.Add([Ô]@Contrato[Ô], OleDbType.VarChar, 10).Value = cmbTipoContr.Text
Comando.Parameters.Add([Ô]@Escalado[Ô], OleDbType.Boolean, 1).Value = CheckBox1.Checked
Comando.Parameters.Add([Ô]@1Safra[Ô], OleDbType.Boolean, 1).Value = CheckBox2.Checked
Comando.Parameters.Add([Ô]@NaoPegar[Ô], OleDbType.Boolean, 1).Value = CheckBox3.Checked
Comando.CommandType = CommandType.Text

Comando.Connection = Con
Dim c As Integer
Try
c = Comando.ExecuteNonQuery
Catch ex As Exception
MessageBox.Show([Ô]Confira se todos os campos estão preenchidos.[Ô] & ex.Message)
Return
End Try

MessageBox.Show(String.Format([Ô]Registro inserido com Sucesso. - {0} registros [Ô], c))
End Sub


Obrigado pela atenção.
EDISIMOES 18/01/2012 06:54:14
#393499
Nenhuma solução?????
Tópico encerrado , respostas não são mais permitidas
Voltar