VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/12/12(Thu) 19:33
投稿者： かとちゃん
ＵＲＬ：
タイトル： Re^2: ＡＤＯのコネクション処理について

みなさん大変お世話になっております。
ネットワーク上にある300kほどのｍｄｂで有りながら
以下のフォームをロードする際、フォームが画面に出てくるまでに３分程度待ちます。
ご指摘の通り、社内ネットワークで２つＨＵＢ越しではありますが
ＤＡＯですとすんなり開けるのですが、ＡＤＯの場合ダメです。
ご指導のほどよろしくお願いいたします。

Private Sub Form_Load()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
    Dim rs3 As ADODB.Recordset
    Dim rs4 As ADODB.Recordset

    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                        & "Data Source=" & "c:\aaa.mdb"
    cn.Open
    ' レコードセットを取得
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "検査実績", cn, adOpenStatic, adLockOptimistic

    Set rs2 = New ADODB.Recordset
    rs2.CursorLocation = adUseClient
    rs2.Open "不良実績", cn, adOpenStatic, adLockOptimistic

    Set rs3 = New ADODB.Recordset
    rs3.CursorLocation = adUseClient
    rs3.Open "検査員マスタ", cn, adOpenStatic

    Set rs4 = New ADODB.Recordset
    rs4.CursorLocation = adUseClient
    rs4.Open "端数記憶", cn, adOpenStatic

End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -