m1.vb

黑魔方vb.net数据库开发第4章第5节

Module m1
    Dim fullname = Application.StartupPath()
    Dim myfiledir As New System.IO.DirectoryInfo(fullname)
    Dim dbfile = myfiledir.Parent.Parent.FullName & "\student.mdb"
    Public constr As String = "provider=microsoft.jet.oledb.4.0;data source=" & dbfile
    Public con As New ADODB.Connection()
    Public rs As New ADODB.Recordset()
    Public cmd As New ADODB.Command()
    Sub opendb()
        con.Open(constr)
        rs.Open("student", con, 2, 2)
    End Sub
End Module