VB.NET能衔接ACCESS吗

本人最近在做毕业设计，题目是小区物业管理系统。请问用VB.NET的话，后面可否用ACCESS做数据库？怎么实现连接   VB以前从没学过，顺便问下，学VB.NET要花大概多久哦，本人没多少时间，还要补考，如果还有哪个好心人能提供相关方面的资料的话，不甚感激，定追加100，谢谢！！！  275504346@QQ.COM

答案：vb.net当然可以连接ACCESS数据库，一是可以手动，二可以编写程序。
看看些程序的
Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\1\桌面\treeview.mdb;Persist Security Info=False"
        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(constr)
        conn.Open()

        Dim sqlstr As String = "SELECT * FROM 职员表"

        Dim mydataadapter As New OleDb.OleDbDataAdapter
        Dim mydataset As New DataSet

        mydataadapter.SelectCommand = New OleDb.OleDbCommand(sqlstr, conn)
        mydataadapter.Fill(mydataset, "table1")

        DataGridView1.DataSource = mydataset.Tables("table1")

        mydataset.Dispose()
        mydataadapter.Dispose()

        conn.Close()
        conn.Dispose()
你的库文件在哪只要改下路径和库文件名字就OK了

其他：可以 "Provider=Microsoft.Jet.OLEDB.4.0;User Id=你的用户名;jet OleDB:Database Password=你的密码;Data Source=XXX:\a.mdb"

XXX:\a.mdb   就是access文件的路径 Imports System.Data
Imports System.Data.OleDb


Namespace DB

    Public Class OLEDB

#Region "DBReturnDataTable_访问数据库,并将结果通过DataTable返回"

        ''' <summary>
        ''' 访问数据库,并将结果通过DataTable返回
        ''' </summary>
        ''' <param name="StrSQL">Select语句</param>
        ''' <param name="ConnectionString">数据库连接字符串</param>
        ''' <param name="dt">返回查询所得到结果的DataTable</param>
        ''' <returns>True or False</returns>
        ''' <remarks></remarks>
        Public Function DBReturnDataTable(ByVal StrSQL As String, ByVal ConnectionString As String, ByRef dt As DataTable) As Boolean
            Dim cn As New OleDbConnection
            Dim cmd As New OleDbCommand
            DBReturnDataTable = True
            cn.ConnectionString = ConnectionString
            cn.Open()
            cmd.Connection = cn
            cmd.CommandText = StrSQL
            cmd.CommandType = CommandType.Text
            Dim da As New OleDbDataAdapter

            Try
                da.SelectCommand = cmd
                da.Fill(dt)
            Catch ex As Exception
                DBReturnDataTable = False
            End Try

            If cn.State = ConnectionState.Open Then
                cn.Close()
            End If

            Return DBReturnDataTable
        End Function

#End Region

#Region "RunSQLInsertOrUpdate_访问数据库,进行Insert和Update操作"

        ''' <summary>
        ''' 访问数据库,进行Insert和Update操作
        ''' </summary>
        ''' <param name="SQLTxt">SQL Insert Or Update 语句</param>
        ''' <param name="ConnectionString">数据库连接字符串</param>
        ''' <returns>True or False</returns>
        ''' <remarks></remarks>
        Public Function RunSQLInsertOrUpdate(ByVal SQLTxt As String, ByVal ConnectionString As String) As Boolean
            Dim cn As New OleDbConnection
            Dim cmd As New OleDbCommand

            RunSQLInsertOrUpdate = False
            cn.ConnectionString = ConnectionString
            Try
                cn.Open()
                cmd.CommandType = CommandType.Text
                cmd.CommandText = SQLTxt
                cmd.Connection = cn
                cmd.ExecuteNonQuery()
                RunSQLInsertOrUpdate = True
            Catch ex As Exception
                RunSQLInsertOrUpdate = False
            End Try

            If cn.State = ConnectionState.Open Then
                cn.Close()
            End If

            Return RunSQLInsertOrUpdate
        End Function

#End Region
    End Class
End Namespace 

上一个：vb.net 中有没有类似与 c# 的 typeof(String) 的方法
下一个：VB.net和C#学习哪一个比较好?