通过vb.net将复选框和单选按钮的值插入SQL数据库 [英] Inserting values of checkbox and radiobutton into SQL databse through vb.net

问题描述

我现在有4个带有复选框或单选按钮的选项，如果我从这4个选项中仅选择一个选项，那么所选的数据应该放在数据库中，任何一个都可以帮助我解决这个问题.
我很难忍受这个问题，谁能给我一些例子

解决方案

要获取在复选框列表中选中的值，可以使用以下功能....

 公共 静态 字符串 GetCheckboxSelectedValues(CheckBoxList chk)
  {
      字符串的值= " ;
       for ( int  i =  0 ; i <  chk.Items.Count; i ++)
      {
          如果(chk.Items [i].已选中)
          {
              值+ = chk.Items [i].值+ " ;
          }
      }
      values = values.TrimEnd(' ，');
      返回值；
  }

只需传递CheckBoxList Id..it即可以逗号分隔的字符串格式返回校验值

有多种解决方法.

暂时来说，这是两种方法-

1)在数据库中创建4个布尔值列，然后为选中的单选按钮填写true，为其他人填写false.

2)仅创建一列.创建四个unqiue标识符(每个单选按钮一个，例如1,2,3和4).在找出选定/选中的哪个映射到哪个标识符之后，用唯一的标识符值填充该列.

导入System.Data
导入System.Data.SqlClient

局部类_Default
继承System.Web.UI.Page
昏暗的DBConn作为新的SqlConnection(数据源= ZETEONWS05;初始目录= testingcheck;集成安全性= True;")
昏暗的DBCmd作为SqlCommand

受保护的子Page_Load(以对象的ByBy发件人身份，以System.EventArgs的ByVal e身份)处理Me.Load
DBConn.Open()
结束子

受保护的Sub cmdSubmit_Click(ByVal发送者作为对象，ByVal e作为System.EventArgs)处理cmdSubmit.Click
试试

Dim SubNLetter1为Boolean = False
Dim SubNLetter2 As Boolean = False
Dim SubNLetter3为Boolean = False
Dim SubNLetter4为Boolean = False
对于每个LItem作为cblNewsLetter.Items中的ListItem
如果LItems.Selected = True，那么
选择Case LItems.Value
案例"1"
SubNLetter1 = True
案例"2"
SubNLetter2 =真
案例"3"
SubNLetter3 =真
案例"4"
SubNLetter4 =真
结束选择
如果结束
下一个

Dim SQLQuery As String ="INSERT INTO订阅(名字，姓氏，地址，电子邮件，CellNo，国家/地区，LangPref，SubNLetter1，SubNLetter2，SubNLetter3，SubNLetter4)值(@ FirstName，@ LastName，@ Address，@ EMail，@ CellNo，@国家/地区，@ LangPref，@ SubNLetter1，@ SubNLetter2，@ SubNLetter3，@ SubNLetter4)"
DBCmd =新的SqlCommand(SQLQuery，DBConn)
DBCmd.Parameters.Add("@ FirstName"，SqlDbType.Char，50).Value = txtFirstName.Text
DBCmd.Parameters.Add("@ LastName"，SqlDbType.Char，50).Value = txtLastName.Text
DBCmd.Parameters.Add("@ Address"，SqlDbType.VarChar，50).Value = txtAddress.Text
DBCmd.Parameters.Add("@ EMail"，SqlDbType.Char，50).Value = txtEMail.Text
DBCmd.Parameters.Add("@ CellNo"，SqlDbType.VarChar，50).Value = txtCellNo.Text
DBCmd.Parameters.Add("@ Country"，SqlDbType.Char，50).Value = ddlCountry.SelectedValue.ToString
DBCmd.Parameters.Add("@ LangPref"，SqlDbType.Char，50).Value = rbVersion.SelectedItem.ToString
DBCmd.Parameters.Add("@ SubNLetter1"，SqlDbType.Char，50).Value = SubNLetter1
DBCmd.Parameters.Add("@ SubNLetter2"，SqlDbType.Char，50).Value = SubNLetter2
DBCmd.Parameters.Add("@ SubNLetter3"，SqlDbType.Char，50).Value = SubNLetter3
DBCmd.Parameters.Add("@ SubNLetter4"，SqlDbType.Char，50).Value = SubNLetter4
DBCmd.ExecuteNonQuery()
DBCmd.Dispose()
DBCmd =没什么

异常捕获
Response.Write(ex)
结束尝试

结束子

受保护的子Page_Unload(ByVal发送者作为对象，ByVal e作为System.EventArgs)处理Me.Unload
DBConn.Close()
DBConn =没什么
结束子
结束类

hi i have 4 options with check box or radio button now if i select only one option from these 4 options the data which is selected should sit in the database can any one help me out in this.
i am stuck up with this badly can anyone give me some examples

解决方案

Hi,
To get values that are Checked in Check-box List you can Use Following Function....

public static string GetCheckboxSelectedValues(CheckBoxList chk)
  {
      string values = "";
      for (int i = 0; i < chk.Items.Count; i++)
      {
          if (chk.Items[i].Selected)
          {
              values += chk.Items[i].Value + ",";
          }
      }
      values = values.TrimEnd(',');
      return values;
  }

Just Pass CheckBoxList Id..it Will Return Checked Values In Comma Separate string Format

There are a number of ways to tackle.

Off hand, here are two approaches -

1) Create 4 boolean columns in the database and fill in true for the checked radio button and false for others.

2) Create just one column. Create four unqiue identifiers (one for each radiobutton e.g. 1,2,3 and 4). Fill the column with the unique identifier value after figuring out out which of the selected / checked maps to which identifier.

Imports System.Data
Imports System.Data.SqlClient

Partial Class _Default
Inherits System.Web.UI.Page
Dim DBConn As New SqlConnection("Data Source=ZETEONWS05;Initial Catalog=testingcheck;Integrated Security=True;")
Dim DBCmd As SqlCommand

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DBConn.Open()
End Sub

Protected Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click
Try

Dim SubNLetter1 As Boolean = False
Dim SubNLetter2 As Boolean = False
Dim SubNLetter3 As Boolean = False
Dim SubNLetter4 As Boolean = False
For Each LItems As ListItem In cblNewsLetter.Items
If LItems.Selected = True Then
Select Case LItems.Value
Case "1"
SubNLetter1 = True
Case "2"
SubNLetter2 = True
Case "3"
SubNLetter3 = True
Case "4"
SubNLetter4 = True
End Select
End If
Next

Dim SQLQuery As String = "INSERT INTO Subscription (FirstName, LastName, Address, EMail, CellNo, Country, LangPref, SubNLetter1, SubNLetter2, SubNLetter3, SubNLetter4) VALUES (@FirstName, @LastName, @Address, @EMail, @CellNo, @Country, @LangPref, @SubNLetter1, @SubNLetter2, @SubNLetter3, @SubNLetter4)"
DBCmd = New SqlCommand(SQLQuery, DBConn)
DBCmd.Parameters.Add("@FirstName", SqlDbType.Char, 50).Value = txtFirstName.Text
DBCmd.Parameters.Add("@LastName", SqlDbType.Char, 50).Value = txtLastName.Text
DBCmd.Parameters.Add("@Address", SqlDbType.VarChar, 50).Value = txtAddress.Text
DBCmd.Parameters.Add("@EMail", SqlDbType.Char, 50).Value = txtEMail.Text
DBCmd.Parameters.Add("@CellNo", SqlDbType.VarChar, 50).Value = txtCellNo.Text
DBCmd.Parameters.Add("@Country", SqlDbType.Char, 50).Value = ddlCountry.SelectedValue.ToString
DBCmd.Parameters.Add("@LangPref", SqlDbType.Char, 50).Value = rbVersion.SelectedItem.ToString
DBCmd.Parameters.Add("@SubNLetter1", SqlDbType.Char, 50).Value = SubNLetter1
DBCmd.Parameters.Add("@SubNLetter2", SqlDbType.Char, 50).Value = SubNLetter2
DBCmd.Parameters.Add("@SubNLetter3", SqlDbType.Char, 50).Value = SubNLetter3
DBCmd.Parameters.Add("@SubNLetter4", SqlDbType.Char, 50).Value = SubNLetter4
DBCmd.ExecuteNonQuery()
DBCmd.Dispose()
DBCmd = Nothing

Catch ex As Exception
Response.Write(ex)
End Try

End Sub

Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
DBConn.Close()
DBConn = Nothing
End Sub
End Class

这篇关于通过vb.net将复选框和单选按钮的值插入SQL数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！