checkbox

[reg]

hi , i´m new in the world of vb.net. I´m using sql server, vb.net
language: my problem is : i have a table "Test" with "Text and Sure"
as row. "Sure" is a bit value. how do i insert "Sure" in the database
with the insert command in vb.net?
Thanks

 

[Guest]

A bit field equates to True or False.
Peter

 

[reg]

Thanks for the info. I have done it this way: In the insert command I
define it this way
objCmd.Parameters.Add(New SQLParameter("@Garantie", SqlDbType.Bit,1,
"Garantie"))
And in a table block the following and then a button for insertion into
the DB.
<td>Garantie: </td>
<td>
<asp:CheckBox id="CBG" runat="server"
CssClass="textbox></asp:CheckBox>
</td>
Do I need to do something else?
Thanks

 

[Guest]

Yes, you need to give your parameter a VALUE!

SqlParameter paramGarantie = New SQLParameter("@Garantie", SqlDbType.Bit,1,
"Garantie")
paramGarantie.Value=CBG.Checked

objCmd.Parameters.Add(paramGarantie)

 

[reg]

Please help, where do I put it. I am using VB. Here is the insert
portion
objSQL ="Insert into Aufträge (AuftragsDatum, Name, Vorname,
StrassePostfach, PLZ, Ort, Telefon," & _
"Bearbeiter, Garantie, ExterneNummer, RechnungsDatum, Auftraggeber,
Tätigkeit, Arbeitsfeld1, Arbeitsfeld2, Arbeitsfeld3," & _
"Angebot, Auftrag, BVName, BVStrasse, BVPLZ, BVOrt, Auftragsumme,
Schlussrechnung, Text) Values (@AuftragsDatum, @Name, @Vorname,
@StrassePostfach, " & _
"@PLZ, @Ort, @Telefon, @Bearbeiter, @Garantie, @ExterneNummer,
@RechnungsDatum, @Auftraggeber, @Tätigkeit, @Arbeitsfeld1, " & _
"@Arbeitsfeld2, @Arbeitsfeld3, @Angebot, @Auftrag, @BVName, @BVStrasse,
@BVPLZ, @BVOrt, @Auftragsumme, @Schlussrechnung, @Text)"
Dim objConn As SqlConnection = New
SqlConnection(ConfigurationSettings.AppSettings("Stoeve"))
Dim objCmd as New SQLCommand(objSQL, objConn)

objCmd.Parameters.Add(New SQLParameter("@AuftragsDatum",
"txtAuftragsDatum.Text"))
objCmd.Parameters.Add(New SQLParameter("@Name", "txtName.Text"))
objCmd.Parameters.Add(New SQLParameter("@Vorname", "txtVorname.Text"))
objCmd.Parameters.Add(New SQLParameter("@StrassePostfach",
"txtStrassePostfach.Text"))
objCmd.Parameters.Add(New SQLParameter("@PLZ", "txtPLZ.Text"))
objCmd.Parameters.Add(New SQLParameter("@Ort", "txtOrt.Text"))
objCmd.Parameters.Add(New SQLParameter("@Telefon", "txtTelefon.Text"))
objCmd.Parameters.Add(New SQLParameter("@Bearbeiter",
ddlMA.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Garantie", SqlDbType.Bit,1
"Garantie"))
SqlParameter paramGarantie = New SQLParameter("@Garantie",
SqlDbType.Bit,1,"Garantie")
paramGarantie.Value=CBG.Checked
objCmd.Parameters.Add(paramGarantie)
objCmd.Parameters.Add(New SQLParameter("@ExterneNummer",
"txtExterneNummer.Text"))
objCmd.Parameters.Add(New SQLParameter("@RechnungsDatum",
SqlDbType.DateTime,8, "RechnungsDatum"))
objCmd.Parameters.Add(New SQLParameter("@Auftraggeber",
ddlAG.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Tätigkeit",
ddlT.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Arbeitsfeld1",
ddlA1.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Arbeitsfeld2",
ddlA2.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Arbeitsfeld3",
ddlA3.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Angebot", SqlDbType.Bit,1,
"Angebot"))
objCmd.Parameters.Add(New SQLParameter("@Auftrag", SqlDbType.Bit,1,
"Auftrag"))
objCmd.Parameters.Add(New SQLParameter("@BVName", "txtBVName.Text"))
objCmd.Parameters.Add(New SQLParameter("@BVStrasse",
"txtBVStrasse.Text"))
objCmd.Parameters.Add(New SQLParameter("@BVPLZ", "txtBVPLZ.Text"))
objCmd.Parameters.Add(New SQLParameter("@BVOrt"," txtBVOrt.Text"))
objCmd.Parameters.Add(New SQLParameter("@Auftragsumme",
SqlDbType.Money,8, "Auftragsumme"))
objCmd.Parameters.Add(New SQLParameter("@Schlussrechnung",
SqlDbType.Money,8, "Schlussrechnung"))
objCmd.Parameters.Add(New SQLParameter("@Text", "txtText.Text"))
objConn.Open()
objCmd.ExecuteNonQuery()
label1.visible="true"
BindData()
objConn.Close()
label1.text = "Die Datei wurde gespeichert!"
'Response.Redirect("insertAuftrag.aspx")

End Sub

Thanks

 

[reg]

Excuse I have forgotten to send the Page_Load portion too

Sub Page_Load()
If Not IsPostBack Then
objConn.Open()

objCmd = New SqlCommand("SELECT * FROM Mitarbeiter", objConn)
objRdr = objCmd.ExecuteReader()
ddlMA.DataSource = objRdr
ddlMA.DataValueField = "Name"
ddlMA.DataTextField = "Name"
ddlMA.DataBind()
objRdr.Close()

objCmd = New SqlCommand("SELECT * FROM Auftraggeber", objConn)
objRdr = objCmd.ExecuteReader()
ddlAG.DataSource = objRdr
ddlAG.DataValueField = "AuftraggeberName"
ddlAG.DataTextField = "AuftraggeberName"
ddlAG.DataBind()
objRdr.Close()

objCmd = New SqlCommand("SELECT * FROM Tätigkeit", objConn)
objRdr = objCmd.ExecuteReader()
ddlT.DataSource = objRdr
ddlT.DataValueField = "Text"
ddlT.DataTextField = "Text"
ddlT.DataBind()
objRdr.Close()

objCmd = New SqlCommand("SELECT * FROM Arbeiten1", objConn)
objRdr = objCmd.ExecuteReader()
ddlA1.DataSource = objRdr
ddlA1.DataValueField = "Arbeitsfeld1"
ddlA1.DataTextField = "Arbeitsfeld1"
ddlA1.DataBind()
objRdr.Close()

objCmd = New SqlCommand("SELECT * FROM Arbeiten2", objConn)
objRdr = objCmd.ExecuteReader()
ddlA2.DataSource = objRdr
ddlA2.DataValueField = "Arbeitsfeld2"
ddlA2.DataTextField = "Arbeitsfeld2"
ddlA2.DataBind()
objRdr.Close()

objCmd = New SqlCommand("SELECT * FROM Arbeiten3", objConn)
objRdr = objCmd.ExecuteReader()
ddlA3.DataSource = objRdr
ddlA3.DataValueField = "Arbeitsfeld3"
ddlA3.DataTextField = "Arbeitsfeld3"
ddlA3.DataBind()
objRdr.Close()
objConn.Close()
End If
End Sub