其他类型的checkedlistbox需要回答

时间:2018-03-17 07:48:46

标签: vb.net

我是一个学习vb的新人...在我的问题中将checkedlistbox保存到数据库。 我的问题是: LocalDatabase表1:Employee

[EMPLOYEE]

Form1中

LocalDatabase表2:记录

checkedlistbox列表表单Employee datatable..then我想将值保存到选中了checkedlistbox的数据库...我不知道如何编码vb ...有人可以帮忙吗? 我通过在其他地方学习尝试了代码..但在checklistbox保存中仍然有问题。 我的代码 vb class

Imports System.Data.SqlClient
Public Class ConnectionDatabase
    Public dset As New DataSet
    Public adaptor As New SqlDataAdapter
    Public conn As New SqlConnection
    Public cmd As New SqlCommand
    Public locate As String = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename='C:\Users\asus\Documents\vs twins\TT - Copy\TT\twin.mdf';Integrated Security=True"
End class

所以在vb编码中是:

Imports System.Data
Imports System.Data.SqlClient
Public Class Record
    Dim vs As New ConnectionDatabase
    Dim tblDIV As DataTable
    Dim daDIV As SqlDataAdapter
    Dim dsDIV As New DataSet
    Dim oCon As SqlConnection
    Private Sub Record_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim oCon = New SqlConnection
        oCon.ConnectionString = vs.locate
        dsDIV = New DataSet
        daDIV = New SqlDataAdapter("SELECT Name FROM Employee", oCon)
        Dim builder As SqlCommandBuilder = New SqlCommandBuilder(daDIV)
        builder.QuotePrefix = "["
        builder.QuoteSuffix = "]"

        Try
            daDIV.FillSchema(dsDIV, SchemaType.Source, "DIV")
            daDIV.Fill(dsDIV, "DIV")
            tblDIV = dsDIV.Tables("DIV")
            CheckedListBox1.DataSource = tblDIV
            CheckedListBox1.DisplayMember = "Name"
        Catch ex As Exception
            MsgBox("Encountered an Error;" & vbNewLine & ex.Message)
            oCon.Close()
        End Try
End Sub
    Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged

        Dim TextBox1 As Double
        Dim TextBox2 As Double
        Dim Ans As Double

    WkH = Val(TextBox1.Text)
    WkS = Val(TextBox2.Text)
    Ans = WkH * WkS
    Label4.Text = Ans
End Sub

这一切都可以运行......但我不能在最后一部分编码(保存到数据库中)可以建议一些链接或示例来学习?请帮助谢谢..

0 个答案:

没有答案