Lotusnut >> Soft >> Visual Basic >> DataBase

Visual Basic 6.0 - DataBase -

Option Explicit

Public Function dfSetFgrd(ByVal ctrl As Variant, _
　　　　　　　　　　　　　　　　　　ByVal dbname As String, _
　　　　　　　　　　　　　　　　　　ByVal tblName As String) As Long

' 作　　者(Writer)
' 目　　的(Aim)
' 入　　力(Input)
' 戻　　値(Return)
' 注　　釈(Notes)
' 使用方法(Usage)
' 履　　歴(History)

：　lotusnut
：　ﾃﾞｰﾀﾍﾞｰｽをMSFLexGridに連結する
：　MSFlexGridｺﾝﾄﾛｰﾙ,ﾃﾞｰﾀﾍﾞｰｽ名,ﾃｰﾌﾞﾙ名
：　ﾚｺｰﾄﾞ数
：　ｺﾝﾄﾛｰﾙとﾃﾞｰﾀﾍﾞｰｽ名、ﾃｰﾌﾞﾙ名を指定するだけ
：　Count = dfLvwDB(Ctrl,path)
：　Ver 0.0.0 2003/2/2 Original

　　　　On Error GoTo ErrTrap

　　　　'ﾛｰｶﾙ変数の宣言
　　　　Dim ws As DAO.Workspace 　　　　'ﾜｰｸｽﾍﾟｰｽを明示的に指定
　　　　Dim db As DAO.Database 　　　　　'ﾍﾞｰﾀﾍﾞｰｽを指定
　　　　Dim rs As DAO.Recordset 　　　　　'ﾚｺｰﾄﾞｾｯﾄ
　　　　Dim fld As Field
　　　　Dim rscount As Long
　　　　Dim fldcount As Integer
　　　　Dim strcon As String

　　　　'引数の検証＆変換
　　　　If Not (TypeOf ctrl Is MSFlexGrid) Then
　　　　　　　　Debug.Print "MSFlexGrid ｺﾝﾄﾛｰﾙｴﾗｰ " & Err.Description
　　　　　　　　Exit Function
　　　　End If

　　　　'***** ﾌﾟﾛｼｰｼﾞｬ処理の実行 *****

　　　　'ﾃﾞｰﾀﾍﾞｰｽ名からｺﾈｸﾀ情報を得る
　　　　dbname = dfRetDBName(dbname, strcon)

　　　　'ﾃﾞｰﾀﾍﾞｰｽのｾｯﾄ
　　　　Set db = OpenDatabase(dbname, False, False, strcon)

　　　　'ﾃﾞｰﾀﾍﾞｰｽの設定
　　　　Set rs = db.OpenRecordset(tblName, dbOpenTable)

　　　　'ﾚｺｰﾄﾞ総数の取得
　　　　rscount = rs.RecordCount + 1
　　　　ctrl.Rows = rscount

　　　　'ｺﾗﾑ数の取得
　　　　fldcount = db.TableDefs(tblName).Fields.Count
　　　　ctrl.Cols = fldcount + 1

　　　　fldcount = 1
　　　　'***** ﾌｨｰﾙﾄﾞの取得 *****
　　　　For Each fld In db.TableDefs(tblName).Fields
　　　　　　　　ctrl.TextMatrix(0, fldcount) = fld.Name
　　　　　　　　ctrl.ColAlignment(fldcount) = flexAlignCenterCenter

　　　　　　　　'***** ﾚｺｰﾄﾞの取得 *****
　　　　　　　　'ﾚｺｰﾄﾞの先頭行に
　　　　　　　　rscount = 1
　　　　　　　　rs.MoveFirst
　　　　　　　　Do Until rs.EOF
　　　　　　　　　　　　If Not IsNull(rs.Fields(fld.Name)) Then 'NULLを無視する
　　　　　　　　　　　　　　　　ctrl.TextMatrix(rscount, fldcount) = rs.Fields(fld.Name)
　　　　　　　　　　　　End If
　　　　　　　　　　　　rs.MoveNext
　　　　　　　　　　　　rscount = rscount + 1
　　　　　　　　Loop
　　　　　　　　fldcount = fldcount + 1
　　　　Next fld

　　　　'ﾃﾞｰﾀﾍﾞｰｽの開放
　　　　rs.Clone
　　　　db.Close

　　　　'ﾚｺｰﾄﾞｶｳﾝﾄを戻す
　　　　dfSetFgrd = rscount

　　　　Exit Function

　　　　'ｴﾗｰﾄﾗｯﾌﾟ
ErrTrap:
　　　　Debug.Print "dfSetFgrdｴﾗｰ : " & Err.Description
　　　　On Error GoTo 0

End Function

感想；

ＭＳＦｌｅｘＧｒｉｄにデータベースファイルを連結させるロジックを考えてみた。引数は、データベースファイル名とテーブル名を指定するだけ。これが有用なコードかどうかは、これからいろんなアプリケーションを作成してみて共有できうるかどうかに掛かっている。

ＶＢ-Life長い道のりはまだまだ続く・・・・・

メニューＴＯＰへ