投稿日 | : 2006/11/20(Mon) 20:10 |
投稿者 | : べた |
Eメール | : |
URL | : |
タイトル | : oo4oを使用してデータベースからデータを取得 |
oo4oを使用してデータベースからデータを取得し、テキストボックスに
表示しようとしています。
データが存在する場合は、正しく表示されるのですが、例えば、文字列の
後に、半角スペースが存在した場合、半角スペースのみ場合、半角スペース
が削除されてテキストボックスに格納されます。
半角スペースを有効としたいのですが、どのようにすればよいのですか。
△は、半角スペースを意味します。
データベースでの状態
ABC△
△
△△
oo4oを使用して取得後、
ABC
NULL
NULL
期待しているのは、
ABC△
△
△△
としたいのです。
----------------------------------------------
Set objSession = CreateObject("OracleInProcServer.XOraSession")
Set objDb = objSession.OpenDatabase(strDBName, strUser & "/" & strPass, 0&)
strSQL = "SELECT 〜"
Set objDs = objDb.DbCreateDynaset(strSQL, 12&)
Set objCol = objDs.Fields
If objDb.lastservererr <> 0 Then
エラー処理
Else
If objDs.EOF Then
処理
End If
End If
If IsNull(objDs(0).Value) Then
Text1.Text = ""
Else
Text1.Text = objDs(0).Value
End If
If IsNull(objDs(1).Value) Then
Text2.Text = ""
Else
Text2.Text = objDs(1).Value
End If
If IsNull(objDs(2).Value) Then
Text3.Text = ""
Else
Text3.Text = objDs(2).Value
End If
:
:
------------------------------------------------------
環境は、
Windows2000
SOlaris8
Oeacle9i