tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re: 文字列変換
投稿日: 2009/02/02(Mon) 12:26
投稿者花ちゃん
Split関数 と Join関数を使って下記のような感じにした方が簡単かな

Option Explicit

Private Sub Command1_Click()
   Debug.Print MySqlJoin("BETWEEN 2001/01/01 AND 2002/01/01")
End Sub

Private Function MySqlJoin(ByVal myString As String) As String
   Dim AddDat As Variant
   Dim i      As Long
   AddDat = Split(myString, " ")
   For i = LBound(AddDat) To UBound(AddDat)
      If AddDat(i) = "AND" Or AddDat(i) = "OR" Or _
                              AddDat(i) = "BETWEEN" Or AddDat(i) = "LIKE" Then
      Else
         AddDat(i) = "'" & AddDat(i) & "'"
      End If
   Next i
   MySqlJoin = Join(AddDat, " ")
End Function
後は、追加条件やエラー処理等を付け足して下さい。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。