C# と VB.NET の質問掲示板

VB6 の高速化コード集。
可読性に難のあるコードも多いので、使いどころに注意。
http://www.xbeat.net/vbspeed/


■No4350 (ｍあ さん) に返信
>>記事の内容を読み違えているような……。
> 読み違えています？バッファリングのことだと認識していたのですが・・・
バッファです。バッファなんですが、記事中で書かれていた内容は、
　『32000 を指定すると高速アクセスできる。』
　『関数内で合計 65000 程度のバッファしか確保できない。』
であって、
　「32000 〜 65000 の範囲を指定することで、書き込み処理を高速化出来る」
では無いと思いますよ。

元の記事にもヘルプにも、65000 という値を Len に指定できるとは
書かれていませんし、実際に指定すると、実行時エラーとなりましたから。

> ノンバッファリングの Print があるってことですか？
> VB の書き込みはバッファリング無しが基本なんですか？

文字列連結の話は、たとえば
　Set RS = Con.Execute(SQL)
　Do Until RS.EOF
　　S = S & RS.Collect("ID") & ","
　　RS.MoveNext
　Loop
　Print #f, S;
のような書き方をすると低速であり、
　Set RS = Con.Execute(SQL)
　Do Until RS.EOF
　　Print #f, RS.Collect("ID") ","
　　RS.MoveNext
　Loop
の方が結果的には高速であった…という話です。

もっとも、Recordset のテキスト化なら、GetString メソッドを併用した方が早いですけれどね。


でもって、Mid ステートメントの件は：
------------
Dim S As String

S = "aaa"
Debug.Print StrPtr(S), "["; S; "]"
S = S & "bbb"
Debug.Print StrPtr(S), "["; S; "]"

S = "aaa   "
Debug.Print StrPtr(S), "["; S; "]"
Mid(S, 4) = "bbb"
Debug.Print StrPtr(S), "["; S; "]"
------------

後者(Midステートメント)では、同じアドレスがそのまま使われていることを確認できますが、
前者(& 演算子)では、文字列処理の前後で、変数のアドレスが変更されていることがわかります。

これは単純に連結すると、新たな文字列領域の確保・複写・元の領域の破棄が行われるためです。
そのため文字列が長くなればなるほど、加速度的に処理時間がかかるようになります。

Mid ステートメントは、最初に確保した文字列領域内を書き換える形で動作するので、
メモリの再確保等が行われず、高速に処理される…という話ですね。

DateTime dt = DateTime.Now;
sDate=dt.ToString("yyyy/MM/dd");
で本日実行すると2007/07/03で返って来ます
日付の03の部分を３のみで2007/07/3で返すことは出来ますでしょうか？
調べた結果できそうもなかったのでいちいち0を消すようなコードを書かないといけないんでしょうか

なぜしたいかといいますとSQLからdatetime型のt_datetimeから日付を取り出すと
datename(day,t_datetime)
本日なら3のみが返ってくるのでwhereで絞り込め無かったからです

SQL側から日付に0をつけて返す方法があるならそっちでも教えてください
datename(month,t_datetime)とかくと月だと07と返って来たのでなぜだかそれも合わせて教えていただけると助かります。
お願い致します。

C#　SQL2000serverです


sDate=dt.ToString("yyyy/MM/d");
にしたら3だけを取り出すことが出来ましたが
11日とかにやったら１だけしか取り出せないとかってことになるんでしょうか？
ちゃんとでるんでしょうか？
不安です

■No5404 (kawa さん) に返信
mdb に、SQL Server 2000 のデータを取り込むのですよね。DTS は使えませんか?
http://www.microsoft.com/japan/msdn/sqlserver/columns/


> SELECT テーブル名 INTO〜のSQL文を使うことはできないということでしょうか？
使えると思いますよ。
当方で追試してみましたが、.NET 1.1/2.0 のいずれでも、問題なく生成されまたし。

何か、権限周りの問題だったりはしませんか?


'=======================
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic

Module Test
  Sub Main()
    Const serverName As String = 〜〜
    Const dbName As String = 〜〜
    Const mdbTable As String = 〜〜
    Const sqlTable As String = 〜〜
    Const userID As String = 〜〜
    Const password As String = 〜〜

    Dim sqlPattern As String = "SELECT * INTO [{1}] FROM " & _
      "[ODBC;DRIVER={{SQL SERVER}};SERVER={2};DATABASE={3};UID={4};PWD={5}].[{0}]"

    Dim sql As String = String.Format(sqlPattern, sqlTable, mdbTable, _
      serverName, dbName, userID, password)

#If VBC_VER < 8.0 Then
    Dim cn As OleDbConnection = Nothing
    Try
      'cn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\test.mdb;")
      cn = New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\test.mdb;")
      cn.Open()
      Dim cmd As OleDbCommand = Nothing
      Try
        cmd = New OleDbCommand(sql, cn)
        cmd.ExecuteNonQuery()
      Finally
        If Not cmd Is Nothing Then cmd.Dispose()
      End Try
    Catch ex As Exception
      MsgBox(ex.Message, MsgBoxStyle.Exclamation)
    Finally
      If Not cn Is Nothing Then
        cn.Close()
        cn.Dispose()
      End If
    End Try
#Else
    'Using cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\test.mdb;")
    Using cn As New OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\test.mdb;")
      cn.Open()
      Using cmd As New OleDbCommand(sql, cn)
        Try
          cmd.ExecuteNonQuery()
        Catch ex As Exception
          MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
      End Using
      cn.Close()
    End Using
#End If
  End Sub
End Module</pre></pre>