Susumu.Hiraiさん

solでございます

コネクションプール設定していますか？




P.S.

名前くらいは名乗りましょう
DBのスペック（容量等）、OS、マシンスペック明示しましょう



Susumu.Hirai wrote:
> いつもお世話になります。
> 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
>