myconnection.vb

来自「This code using Visual basic 2008 with M」· VB 代码 · 共 16 行

Imports System.Data
Imports System.Data.OleDb
Module Myconnection
    Public con As New OleDb.OleDbConnection("Provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\dbstudent.mdb")
    Public Sub adddatatolistview(ByVal lvw As ListView, ByVal id As String, ByVal name As String, ByVal sex As String, ByVal dob As String, ByVal addre As String)
        Dim lv As New ListViewItem
        lvw.Items.Add(lv)
        lv.Text = id
        lv.SubItems.Add(name)
        lv.SubItems.Add(sex)
        lv.SubItems.Add(dob)
        lv.SubItems.Add(addre)
    End Sub
    
End Module