ADOの接続
  (C) 2001 A c t o r .N e t Soft Ware



 以下に公開するソースなどの著作は 篠田直樹 に復帰します。
原則として無許可で使用する事が出来ますが、ここに書かれている内容を
直リンクや引用などであたかも第三者が作成した様に見せたり如何なる事情でも金銭が発生する行為を禁止します。



' A c t o r . N e t
' ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
'□□ http://actornet.hp.infoseek.co.jp/
'
'Copylight(C)2004 Naoki Shinoda



Sub Main()

'同じForm を複数呼び出さない
If App.PrevInstance <> False Then
End
Else

If p_int_FormFlg = 0 Then

On Error GoTo Err_Main

'mdbファイルが存在するかどうかを検索する
'Set var_FileSystem = CreateObject("Scripting.FileSystemObject")
If Dir(App.Path & "\" & "\MstMente.mdb") = "" Then
Call MsgBox(str_ErrMdb, vbOKOnly, "エラー")
Exit Sub
End If

'mdbを開く
Set p_cn = New ADODB.Connection
p_cn.ConnectionString = p_Sub_str_SetPathOleDb & App.Path & "\" & "\MstMente.mdb"
p_cn.Open
'レコードセットの宣言
Set p_adoRs = New ADODB.Recordset

Form1.Show
End If
End If
Exit Sub

Err_Main:
Call MsgBox(str_ErrMdb2, vbOKOnly, "エラー")

End Sub


Private Sub Form_Unload(Cancel As Integer)
Dim i_int_Count As Integer

'レコードセットに使用したメモリを解放
Set p_adoRs = Nothing
Set p_adoRs = Nothing
p_cn.Close

'コネクションに使用したメモリを解放
Set p_cn = Nothing
Set p_cn = Nothing

Set Form1 = Nothing
End Sub




Copyright (C) 2001 A c t o r .N e t Soft Ware All Right Reserved