 insertar datos tipo bit desde visual a mi sql, AYUDA!!!!!!!!
Private Sub Almacenar()
Dim tc1, tc2, tc3 As Boolean
tc1 = False
tc2 = False
tc3 = False
Try
If RBt1.Checked = True Then
tc1 = True
Dim cls_ConnectSQL As New cls_ConnectSQL
Dim xstring As String = String.Format("INSERT INTO Det_final_pla (det_numpat, det_recibo, det_periodo_del, det_periodo_al, det_afiliacion, det_nombre, det_salario,det_obs, det_fecha_dig, det_operador,afiliacion) VALUES({0},{1},'{2}','{3}',{4},'{5}',{6},'{7}','{8 }','{9}',{10})", numpat.Text, numrec.Text, Format(dtp_del.Value, "yyyy/MM/dd"), Format(dtp_al.Value, "yyyy/MM/dd"), txtafi.Text, txtname.Text, txtsal.Text, RTB.Text, Format(dtp_reg.Value, "yyyy/MM/dd"), Label17.Text, tc1.tostring())
Dim xstring2 As String = String.Format("SELECT det_afiliacion,det_nombre,det_salario,det_ibm,det_ otro FROM Det_final_pla where det_numpat=" & Format(Val(numpat.Text)))
If cls_ConnectSQL.ActualizaDatos(xstring, "") Then
Me.UltraGrid1.DataSource = Nothing
Me.UltraGrid1.DataSource = cls_ConnectSQL.GetDtQuery(xstring2, "")
Me.UltraGrid1.Refresh()
End If
Else
If RBt2.Checked = True Then
tc2 = True
Dim cls_ConnectSQL2 As New cls_ConnectSQL
Dim xstring As String = String.Format("INSERT INTO Det_final_pla (det_numpat, det_recibo, det_periodo_del, det_periodo_al, det_ibm, det_nombre, det_salario,det_obs, det_fecha_dig, det_operador, ibm) VALUES({0},{1},'{2}','{3}','{4}','{5}',{6},'{7}',' {8}','{9}',{10})", numpat.Text, numrec.Text, Format(dtp_del.Value, "yyyy/MM/dd"), Format(dtp_al.Value, "yyyy/MM/dd"), txtibm.Text, txtname.Text, txtsal.Text, RTB.Text, Format(dtp_reg.Value, "yyyy/MM/dd"), Label17.Text, tc2.tostring())
Dim xstring2 As String = String.Format("SELECT det_afiliacion,det_nombre,det_salario,det_ibm,det_ otro FROM Det_final_pla where det_numpat=" & Format(Val(numpat.Text)))
If cls_ConnectSQL2.ActualizaDatos(xstring, "") Then
Me.UltraGrid1.DataSource = Nothing
Me.UltraGrid1.DataSource = cls_ConnectSQL2.GetDtQuery(xstring2, "")
Me.UltraGrid1.Refresh()
End If
Else
If RBt3.Checked = True Then
tc3 = True
Dim cls_ConnectSQL3 As New cls_ConnectSQL
Dim xstring As String = String.Format("INSERT INTO Det_final_pla (det_numpat,det_recibo,det_periodo_del,det_periodo _al,det_otro,det_nombre,det_salario, det_obs, det_fecha_dig, det_operador, otro) VALUES({0},{1},'{2}','{3}','{4}','{5}',{6},'{7}',' {8}','{9}',{10})", numpat.Text, numrec.Text, Format(dtp_del.Value, "yyyy/MM/dd"), Format(dtp_al.Value, "yyyy/MM/dd"), txtotro.Text, txtname.Text, txtsal.Text, RTB.Text, Format(dtp_reg.Value, "yyyy/MM/dd"), Label17.Text, tc3.tostring())
Dim xstring2 As String = String.Format("SELECT det_afiliacion,det_nombre,det_salario,det_ibm,det_ otro FROM Det_final_pla where det_numpat=" & Format(Val(numpat.Text)))
If cls_ConnectSQL3.ActualizaDatos(xstring, "") Then
Me.UltraGrid1.DataSource = Nothing
Me.UltraGrid1.DataSource = cls_ConnectSQL3.GetDtQuery(xstring2, "")
Me.UltraGrid1.Refresh()
End If
End If
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
LimpiaDetalle()
End Sub
EL PROBLEMA ES QUE CUANDO EJECUTO LA SENTENCIA DE ALMACENAMIENTO ME GENERA UN ERRO QUE DICE QUE NO PUEDO INSERTAR EL DATO "TRUE" EN MI CAMPO BIT |