Как сохранить как "н / п" в MS Access? - PullRequest
0 голосов
/ 06 апреля 2019

Даже если я сниму флажок CheckBox, он сохранит текст по умолчанию, написанный на нем.
Этот код для моего самостоятельного изучения.

Private Sub btnADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnADD.Click

    Dim provider1 As String
    Dim dataFile1 As String
    Dim connString1 As String
    Dim myConnection1 As OleDbConnection = New OleDbConnection

    provider1 = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source ="
    dataFile1 = "|DataDirectory|\dbSentinel.accdb"
    connString1 = provider1 & dataFile1
    myConnection1.ConnectionString = connString1
    myConnection1.Open()

    Dim str As String
    str = "Insert into tblComputerDesktopInventory([DesktopName],[Department],OperatingSystem],[MOBOmanufacturer],[MOBOproduct],[MOBOserial],[MOBOspecs],[HDDmanufacturer],[HDDcapacity],[HDDserial],[ACCmonitor],ACCmodel],[ACCserial],[ACCmouse],[ACCkeyboard],[ACCmousepad],[ACCheadset],[RAMmanufacturer],[RAMcapacity],[RAMserial]) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"

    Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection1)
    cmd.Parameters.Add(New OleDbParameter("DesktopName", CType(txtDesktopName.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("Department", CType(cboDepartment.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("OperatingSystem", CType(cboOperatingSystem.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("MOBOmanufacturer", CType(txtMOBOmanufacturer.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("MOBOproduct", CType(txtMOBOproduct.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("MOBOserial", CType(txtMOBOserial.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("MOBOspecs", CType(txtMOBOspecs.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("HDDmanufacturer", CType(txtHDDmanufacturer.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("HDDcapacity", CType(txtHDDcapacity.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("HDDserial", CType(txtHDDserial.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("ACCmonitor", CType(txtACCmonitor.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("ACCmodel", CType(txtACCmodel.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("ACCserial", CType(txtACCserial.Text, String)))
    'the next line starts a checkbox
    cmd.Parameters.Add(New OleDbParameter("ACCmouse", CType(chkmouse.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("ACCkeyboard", CType(chkkeyboard.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("ACCmousepad", CType(chkmousepad.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("ACCheadset", CType(chkheadset.Text, String)))
    'end of checkbox
    cmd.Parameters.Add(New OleDbParameter("RAMmanufacturer", CType(txtRAMmanufacturer.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("RAMcapacity", CType(txtRAMcapacity.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("RAMserial", CType(txtRAMserial.Text, String)))
End sub
...