遠藤と申します。

DNS の設定はおかしくないですか？
例えば、そのマシンから「IP アドレス指定ではなく」サーバ
宛に ping を飛ばしたらすぐに飛びますか？

ex)
  ping hostname

あと、VB は全く知らないのですが、Close してすぐさま Open
するのは、一般的なんでしょうか？

Fri, 23 Feb 2007 10:29:20 +0900 に、
"Susumu.Hirai" <s_hirai@xxxxxxxxxx> さんは書きました:

> いつもお世話になります。
> VB6+MySQL+ADOでソフトを構築していますが、処理が遅すぎて困っています。基本的に３つの関数を作って起動したらSQL_StringでSQLを投げて取得するようなやり方をしていますが、★印のあるところで３秒程度かかります。
> PHP＋MySQLで組む場合と速度が歴然と違いますが、何かいい策はありませんでしょうか？最悪VB6＋MySQL+PHPで組み直そうかと考えていますが・・・。
> 
> Function SQL_Open()
>     'SQL接続をオープン
>     Set DBConn = CreateObject("ADODB.Connection")
>     Set DBRS = CreateObject("ADODB.Recordset")
>     DBConn.Open = "DRIVER={MySQL ODBC 3.51 Driver};" + _
>                                  "SERVER=127.0.0.1;" + _
>                                  "DATABASE=****;" + _
>                                  "UID=****;" + _
>                                  "PASSWORD=****;" + _
>                                  "useUnicode=true & characterEncoding=SJIS;" 
> + _
>                                  "OPTION=16834;STMT=set names sjis"
> End Function
> 
> Function SQL_Close()
>     'SQL接続を閉じる
>     Set DBRS = Nothing
>     Set DBConn = Nothing
> End Function
> 
> Function SQL_String(strSQL As String) As Object
>     'SQLを実行してフィールドを返す
>     On Error Resume Next
>     DBRS.Close
>     DBRS.Open strSQL, DBConn '★ココが時間かかる
>     Set SQL_String = DBRS.fields
>     On Error GoTo 0
> End Function 
> 
> 

--
株式会社あっぷらぼ 代表取締役 遠藤 俊裕
〒553-0003 大阪市福島区福島７丁目１４−１８
　　　　　 恒和殖産福島ビル４０２号室
TEL:06-6456-5500 FAX:06-6456-5540
E-Mail: endo@xxxxxxxxxx, endo@xxxxxxxxxx
HomePage: http://www.applabo.com/