Para guardar los Radio Button en la base de datos:
Private Function horario
(ByVal hora As Boolean) As String
Dim Matutino As String = "hora"
Dim Vespertino As String = "hora"
Dim Nocturno As String = "hora"
Dim Turno As String = " hora"
If Me.rbtMatutino.Checked = True Then
Turno = "Matutino"
ElseIf Me.rbtVespertino.Checked = True Then
Turno = "Vespertino"
ElseIf Me.rbtNocturno.Checked = True Then
Turno = "Nocturno"
End If
Return Turno
End Function
En la base de datos se guarda como texto.
Para guardar los checkbox en la base de datos, se guardan con valor si/no, se declaran boolean en la clase y se hace un if por ejemplo:
If Me.chkHombre.Checked = True Then
Dim hombre As Boolean = True
Dim mujer As Boolean = False
em.adicionar(Me.txtCorreo.Text, hombre, mujer)
Else
Dim hombre As Boolean = False
Dim mujer As Boolean = True
em.adicionar(hombre, mujer)
End If
Para ese ejemplo use dos checkbox uno de hombre y uno de mujer, por logica solo use el de hombre, pues el if lo hace todo.
En la base debe de existir un campo para hombre y otro para mujer.
Bueno espero les sirva, saludos.
