VB.net 2005 Access数据库编程学习

来源：互联网发布：文怀沙知乎编辑：程序博客网时间：2024/04/28 18:40
'使用数据向导创建数据连接虽然简单，不要编写代码，但它的主要缺点是：连接信息在程序中是硬编码的，所以很难发布。连接信息依赖于机器（数据库地址更改也不可以），一旦在代码中编译好，就不能改变。 
'创建动态连接的过程：在使用OleDbConnection类之前，必须提供一个连接字符串，用于初始化该类，或者在属性ConnectionString中设置连接字符串。'首先需要在VB页首即窗口类的外面引入名字空间：Imports System.Data.OleDb。因为OleDb名字空间中的类来访问数据库。 
'打开数据库.由于数据库连接是一个复杂的程序与数据库管理系统交互的过程，有许多原因可以导致数据库连接不上，因此，一定要使用Try…Catch报告错误。 
        Dim StrConnectString As String = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source = E:/SUNIST论文/实验结果/StandadTokamakSimulationDatabase.mdb "
        'Dim ObjConnection As New OleDbConnection(StrConnectString) 
        Dim objConnection As New OleDbConnection
        objConnection.ConnectionString = StrConnectString
        '通过state属性确定连接是否已经打开，若未打开，打开连接。打开连接的open过程可能出问题，所以在打开数据库连接的代码上添加错误处理是非常重要的，这样可以 
        '最一般的错误。下面的Try块中，如果open成功，就把连接状态写入IDE的输出窗口。Catch块有两个，分别处理连接错误和因连接已打开而抛出的异常。 
        If objConnection.State <> ConnectionState.Open Then
            Try
                objConnection.Open()
                Debug.WriteLine(objConnection.State.ToString)
            Catch OleDbExceptionErr As OleDbException
                Debug.WriteLine(OleDbExceptionErr.Message)
            Catch InvalidOperationExceptionErr As InvalidOperationException
                Debug.WriteLine(InvalidOperationExceptionErr.Message)
            End Try
        End If
        '使用完数据库连接后，就应关闭它，释放连接所占用的数据库资源。可以在未打开的连接上调用close方法，因为该方法不抛出任何异常。 
        '调用Dispose方法提供了一种清理Connection对象占用资源的方式，通过释放不需要的资源使程序的内存占用率降低。也可以不调用Dispose方法，因为垃圾回收器（GC） 
        '会在某一时刻检查Connection对象，发现它不再被使用，就进行清理。但是，最好在支持Dispose方法的对象上调用该方法。 
        '最后，把Connection对象设置为Nothing，释放对它的引用。 
        objConnection.Close()
        objConnection.Dispose()
        objConnection = Nothing
——————————————————————————
'基本的SQL语句 
INSERT INTO tablename
(column1,column2,...)
VALUES (value1,value2,...)
SELECT column1,column2...
FROM tablename
WHERE searchcondition
ORDER BY orderexpression ASC|DESC
UPDATE tablename
SET column1=value,column2=value,...
WHERE criteria（实例UPDATE Person SET FirstName = 'Nina' WHERE LastName = 'Rasmussen' 注意需要单引号） 
DELETE
FROM tablename
WHERE criteria
————————————————————————————————————