コンポーネント化されたHyper SQLdb Client Libraryが，
プログラミングを簡素化する

Private Sub cmdConn_Click()
    cmdConn.Enabled = False
    cmdSend.Enabled = True
    
    cn.ServerName = "localhost"
    cn.ServerPort = 1010
    cn.cnOpen "BIBLIO"
End Sub
Private Sub cmdSend_Click()
    rs.rsOpen "SELECT * FROM Authors WHERE Author like 'a%'", cn
End Sub
Private Sub rs_RecordsetComplete()
    Set DataGrid1.DataSource = rs
End Sub

Option Explicit
Public hostname As String
Public dsn As String

Private Sub cmdBack_Click()
    rs.MovePrevious
    If rs.BOF Then
        rs.MoveNext
        Exit Sub
    End If
    Text1 = rs.Fields(1).Value
End Sub

Private Sub cmdConn_Click()
    cmdConn.Enabled = False
    cmdSet.Enabled = False
    cmdSend.Enabled = True
    cmdBack.Enabled = False
    cmdFirst.Enabled = False
    cmdLast.Enabled = False
    cmdNext.Enabled = False
    cmdRecCnt.Enabled = False
    Command2.Enabled = False
    
    cn.ServerName = hostname
    cn.ServerPort = 1010
    cn.cnOpen dsn
End Sub

Private Sub cmdFirst_Click()
    rs.MoveFirst
    Text1 = rs.Fields(1).Value
End Sub

Private Sub cmdLast_Click()
    rs.MoveLast
    Text1 = rs.Fields(1).Value
End Sub

Private Sub cmdNext_Click()
    rs.MoveNext
    If rs.EOF Then
        rs.MovePrevious
        Exit Sub
    End If
    Text1 = rs.Fields(1).Value
End Sub

Private Sub cmdRecCnt_Click()
    Text1 = rs.RecordCount
End Sub

Private Sub cmdSend_Click()
    cmdSend.Enabled = False
    If Len(Trim(txt_param)) = 0 Then
        MsgBox "検索文字列を指定してください"
        Exit Sub
    End If
    rs.rsOpen "SELECT * FROM Authors WHERE Author like '" & _
     Trim(txt_param.Text) & "%'", cn

    Command2.Enabled = True
    cmdBack.Enabled = True
    cmdFirst.Enabled = True
    cmdLast.Enabled = True
    cmdNext.Enabled = True
    cmdRecCnt.Enabled = True
End Sub

Private Sub cmdSet_Click()
    frm_option.Show
End Sub

Private Sub Command2_Click()
    Text1 = rs.State
End Sub

Private Sub Form_Load()
    hostname = "localhost"
    dsn = "BIBLIO"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If cmdRecCnt.Enabled = True Then
        rs.rsClose
    End If
    If cmdConn.Enabled = False Then
        cn.cnClose
    End If
    Unload frm_option
    End
End Sub

Private Sub rs_RecordsetComplete()
    Set DataGrid1.DataSource = rs
End Sub

Hyper SQLdb Client Libraryリファレンス

Connectionコントロール

connection.cnOpen ConnectionString, UserID, Password, OpenOptions

• ConnectionString …ODBCのデータソース名を含む文字列型（String）の値を指定します
• 第2，第3，第4引数は無効で省略可能です．ADOとの互換のために用意されています

Private Sub cmdConn_Click()
    cn.ServerName = hostname
    cn.cnOpen dsn
End Sub

connection.cnClose

connection.Execute CommandText, RecordsAffected, Options

• CommandText …実行するSQLステートメント，ストアドプロシージャ，またはデータベースエンジン固有のテキストを含む文字列型（String）の値を指定します
• 第2，第3引数は無効で省略可能です．ADOとの互換のために用意されています

Recordsetコントロール

recordset.rsOpen Source, ActiveConnection, CursorType, LockType, Options

• Source …SQLステートメントを指定します
• ActiveConnection …有効なConnectionコントロールを指定します
• 第3，第4，第5引数は無効で省略可能です．ADOとの互換のために用意されています

rs.rsOpen "SELECT * FROM Authors WHERE Author like '" & _
 Trim(txt_param.Text) & "%'", cn

recordset.rsClose

• BOFおよびEOFプロパティは，ブール型（Boolean）の値を返します
• BOFまたはEOFプロパティがTrueの場合，カレントレコードはありません

rs.MoveNext
    If rs.EOF Then
        rs.MovePrevious
        Exit Sub
    End If

長整数型（Long）の値を返します

Private Sub cmdRecCnt_Click()
    Text1 = rs.RecordCount
End Sub

recordset.{MoveFirst | MoveLast | MoveNext | MovePrevious}

Private Sub cmdBack_Click()
    rs.MovePrevious
    If rs.BOF Then
        rs.MoveNext
        Exit Sub
    End If
    Text1 = rs.Fields(1).Value
End Sub
Private Sub cmdNext_Click()
    rs.MoveNext
    If rs.EOF Then
        rs.MovePrevious
        Exit Sub
    End If
    Text1 = rs.Fields(1).Value
End Sub

• Nameプロパティを使ってフィールド名を返します
• Valueプロパティを使ってフィールド内のデータ表示を行ないます
• Type，PrecisionおよびNumericScaleプロパティを使って，フィールドの基本特性を返します
• DefinedSizeプロパティを使って，宣言したフィールドサイズを返します
• ActualSizeプロパティを使って，与えられたフィールド内の実際のデータサイズを返します
• AttributesプロパティおよびPropertiesコレクションを使って，与えられたフィールドでサポートされている機能の種類を識別します

Text1 = rs.Fields(1).Value