Collection Contents 上一页 下一页 PDF

UltraLite for MobileVB 用户指南

了解 UltraLite for MobileVB 开发

连接到 UltraLite 数据库


UltraLite 应用程序必须先连接到数据库,然后才能对数据库中的数据进行操作。本节将介绍如何连接到 UltraLite 数据库。

使用 ULConnection 对象 

下面这些 ULConnection 对象的属性控制着全局应用程序行为。

有关 ULConnection 对象的详细信息,请参见 ULConnection 类

连接到数据库 

您可以使用 ULConnectionParms 对象或连接字符串来连接数据库。通过使用 ULConnectionParms 对象的方法,您可以轻松而准确地操作连接参数。要利用使用连接字符串的方法,您需要成功创建一个连接字符串。

下面的过程使用 ULConnectionParms 对象来连接 UltraLite 数据库。

有关使用 ULConnectionParms 对象连接到 UltraLite 数据库的详细信息,请参见 CreateDatabaseWithParms 方法OpenConnectionWithParms 方法

使用 ULConnectionParms 连接 UltraLite 数据库

  1. 创建 ULDatabaseManager 对象。

    您应当为每个应用程序仅创建一个 DatabaseManager 对象。该对象位于对象层次结构的根部。因此,通常最好将 DatabaseManager 对象声明为应用程序范围内的全局对象或类级变量。

    'MobileVB
    Public DatabaseMgr As ULDatabaseManager
    Set DatabaseMgr = New ULDatabaseManager
    'Crossfire
    Public DatabaseMgr As New UltraLiteAFLib.ULDatabaseManager
  2. 声明 ULConnection 对象。

    大多数应用程序使用一个连接与 UltraLite 数据库相连,并始终保持该连接处于打开状态。因此,通常最好将 ULConnection 对象声明为应用程序范围内的全局对象。

    'MobileVB
    Public Connection As New ULConnection
    'Crossfire
    Public Connection As UltraLiteAFLib.ULDatabaseManager
  3. 创建 ULConnectionParms 对象。

    在 MobileVB 工具选项板上双击该 ULConnectionParms 对象。您的表单上会出现一个 ULConnectionParms 对象。

  4. 设置 ULConnectionParms 对象的必需属性。

    在 ULConnectionParms 属性窗口中,指定数据库的位置、模式文件这样的属性,并且为您的数据库指定用户名和口令。

    使用以下属性时,对于 CreateDatabaseWithParms,您必须指定一个模式文件;对于 OpenConnectionWithParms,您必须指定一个数据库文件。有关其它属性的信息,请参见属性

    关键字 说明
    DatabaseOnCE UltraLite 数据库在 Windows CE 上的路径和文件名。
    DatabaseOnDesktop UltraLite 数据库在桌上型计算机上的路径和文件名
    SchemaOnCE 在 Windows CE 上的 UltraLite 模式的路径和文件名。
    SchemaOnDesktop UltraLite 模式在桌上型计算机上的路径和文件名。
  5. 打开一个与数据库的连接。

    CreateDatabaseWithParms 和 OpenConnectionWithParms 会返回一个处于打开状态的连接作为 ULConnection 对象。每个方法都会使用一个 ULConnectionParms 对象作为其参数。

    下面的代码会尝试连接现有的数据库。如果数据库不存在,OpenConnectionWithParms 方法会返回错误。这样就会导致 CreateDatabaseWithParms 使用指定的模式文件创建一个数据库。

    在 Crossfire 中,确保 ULConnectionParms 对象包括 GetOcx 方法。

    'MobileVB
    On Error Resume Next
    Set Connection = DatabaseMgr.OpenConnectionWithParms( LoginParms)
    If Err.Number <> ULSQLCode.ulSQLE_NOERROR Then 
      Set Connection = DatabaseManager.CreateDatabaseWithParms( LoginParms )
    End If
    'Crossfire
    Try
      Connection = _
        DatabaseMgr.OpenConnectionWithParms( _
            ULConnectionParms1.GetOcx)
    Catch
      If Err.Number = _
        UltraLiteAFLib.ULSQLCode.ulSQLE_ULTRALITE_DATABASE_NOT_FOUND _
      Then
        Err.Clear()
        Connection = _
          DatabaseMgr.CreateDatabaseWithParms( _
          ULConnectionParms1.GetOcx)
    End Try

Collection Contents 上一页 下一页 PDF