Carriage returns when creating a view in VB.Net

[SN95GT50]

I am using VB.Net to write to oracle, so far its going pretty well, but, I ran into something that is more an issue of how it looks than functionality. I am issuing a create replace view command using the following snipit of code.

sOraCmd = "CREATE OR REPLACE VIEW "

sOraCmd = sOraCmd & q & "ACS_MAP" & q & "." & q & "VIEW_CAPACITOR" & q & " AS " & vbCrLf

sOraCmd = sOraCmd & vbTab & "SELECT ELECTRIC.Ufid," & vbCrLf

sOraCmd = sOraCmd & vbTab & "ELECTRIC.FrNodeId NodeId, " & vbCrLf

sOraCmd = sOraCmd & vbTab & "CAP_Child.CtrlFlag," & vbCrLf

sOraCmd = sOraCmd & vbTab & "CAP_Child.ConnType," & vbCrLf

sOraCmd = sOraCmd & vbTab & "CAP_Child.SrvStatus," & vbCrLf

sOraCmd = sOraCmd & vbTab & "CAP_Child.Name" & vbCrLf

sOraCmd = sOraCmd & "FROM ELECTRIC_BA_CAPACITOR CAP_Child, ELECTRIC" & vbCrLf

sOraCmd = sOraCmd & "WHERE CAP_Child.ELECTRIC_FEATUREID = ELECTRIC.FEATUREID" & vbCrLf

sOraCmd = sOraCmd & "AND ELECTRIC.Fsc = 102"
MsgBox(sOraCmd)
c_odbc.OleCommand(sOraCmd, m_oConnection)

When I view the results in Enterprist manager the view is shown all on one line, tough to read. The output shown in the message box looks like below.

CREATE OR REPLACE VIEW "ACS_MAP"."VIEW_CAPACITOR" AS
SELECT ELECTRIC.Ufid,
ELECTRIC.FrNodeId NodeId,
CAP_Child.CtrlFlag,
CAP_Child.ConnType,
CAP_Child.SrvStatus,
CAP_Child.Name
FROM ELECTRIC_BA_CAPACITOR CAP_Child, ELECTRIC
WHERE CAP_Child.ELECTRIC_FEATUREID = ELECTRIC.FEATUREID
AND ELECTRIC.Fsc = 102

if I cut and place it into an sqlplus worksheet, run it, and view it in enterprise manager it looks like...

SELECT ELECTRIC.Ufid,
ELECTRIC.FrNodeId NodeId,
CAP_Child.CtrlFlag,
CAP_Child.ConnType,
CAP_Child.SrvStatus,
CAP_Child.Name
FROM ELECTRIC_BA_CAPACITOR CAP_Child, ELECTRIC
WHERE CAP_Child.ELECTRIC_FEATUREID = ELECTRIC.FEATUREID
AND ELECTRIC.Fsc = 102

This last one is what I want to see, how do I get the carriage returns to work properly.

Be gentle, I am a bit new at this

Thanks,
SN95GT50

 

[jglobe]

Did you try vbNewLine (It might be the same)... I would also recommend using the System.Text.Stringbuilder class to create your command (more efficient)...

Ex.
Dim nView as new system.text.stringbuilder
nView.append("CREATE OR RECPLACE VIEW" & vbnewline)
...
...
nView.append("AND ELECTRIC.Fsc = 102" & vbnewline)

c_odbc.OleCommand(nView.tostring, m_oConnection)

jglobe