VB.NET Conversion Error

[Neel]

HiAll,

I converted the below 2 sets of code into VB.net,with
conversion tools. I am getting a syntax error.

Can some one help me to convert the below code into
VB.net ?
I am building on the fly xml for xmlhttp to fill up the
drop downs. i have tested this in C# it is working fine.
------------------Set 1-----------------------------
strSQL = "Select Title from [Titles] Where ISBN = '" + Id
+ "'";
da = new OleDbDataAdapte r(strSQL,conn);
ds = new DataSet();
da.Fill(ds,"Tit leName");
dt = ds.Tables[0];
StringBuilder sbTitle = new StringBuilder(" ");
if(dt.Rows.Coun t > 0)
{
foreach(DataRow dr in dt.Rows)
{
sbTitle.Append( "<TITLE VALUE=");
sbTitle.Append( "\"" + dr["Title"].ToString() + "\"");
sbTitle.Append( "/>");
}
StringBuilder sb = new StringBuilder(" ");
sb.Append("<?xm l version=\"1.0\" ?>");
sb.Append("<ROO T>");
sb.Append(sbTit le.ToString());
sb.Append("</ROOT>");
Response.Write( sb.ToString());
=============== =============== =============== ===========
-----------Set 2 ---------------------------------------
strSQL = "Select ISBN,Au_id from [Title Author] Where
Au_Id = " + Id;
da = new OleDbDataAdapte r(strSQL,conn);
ds = new DataSet();
da.Fill(ds,"ISB NList");
dt = ds.Tables[0];
StringBuilder sbISBN = new StringBuilder(" ");
if(dt.Rows.Coun t > 0)
{
foreach(DataRow dr in dt.Rows)
{
sbISBN.Append(" <ISBN VALUE=");
sbISBN.Append(" \"" + dr["ISBN"].ToString() + "\"");
sbISBN.Append(" ID=");
sbISBN.Append(" \"" + dr["AU_ID"].ToString() + "\"");
sbISBN.Append("/>");
}
StringBuilder sb = new StringBuilder(" ");
sb.Append("<?xm l version=\"1.0\" ?>");
sb.Append("<ROO T>");
sb.Append(sbISB N.ToString());
sb.Append("</ROOT>");
Response.Write( sb.ToString());
}
=============== =============== =============== =========

[David Williams]

I find a couple of problems with the code (when translating). In both
examples, if you put the first two lines together, you will find that the
syntax errors go away. In the first example, the "if" statement on line 8
is never terminated, so will generate an error there also.

HTH

David

"Neel" <an*******@disc ussions.microso ft.com> wrote in message
news:0d******** *************** *****@phx.gbl.. .

HiAll,

I converted the below 2 sets of code into VB.net,with
conversion tools. I am getting a syntax error.

Can some one help me to convert the below code into
VB.net ?
I am building on the fly xml for xmlhttp to fill up the
drop downs. i have tested this in C# it is working fine.
------------------Set 1-----------------------------
strSQL = "Select Title from [Titles] Where ISBN = '" + Id
+ "'";
da = new OleDbDataAdapte r(strSQL,conn);
ds = new DataSet();
da.Fill(ds,"Tit leName");
dt = ds.Tables[0];
StringBuilder sbTitle = new StringBuilder(" ");
if(dt.Rows.Coun t > 0)
{
foreach(DataRow dr in dt.Rows)
{
sbTitle.Append( "<TITLE VALUE=");
sbTitle.Append( "\"" + dr["Title"].ToString() + "\"");
sbTitle.Append( "/>");
}
StringBuilder sb = new StringBuilder(" ");
sb.Append("<?xm l version=\"1.0\" ?>");
sb.Append("<ROO T>");
sb.Append(sbTit le.ToString());
sb.Append("</ROOT>");
Response.Write( sb.ToString());
=============== =============== =============== ===========
-----------Set 2 ---------------------------------------
strSQL = "Select ISBN,Au_id from [Title Author] Where
Au_Id = " + Id;
da = new OleDbDataAdapte r(strSQL,conn);
ds = new DataSet();
da.Fill(ds,"ISB NList");
dt = ds.Tables[0];
StringBuilder sbISBN = new StringBuilder(" ");
if(dt.Rows.Coun t > 0)
{
foreach(DataRow dr in dt.Rows)
{
sbISBN.Append(" <ISBN VALUE=");
sbISBN.Append(" \"" + dr["ISBN"].ToString() + "\"");
sbISBN.Append(" ID=");
sbISBN.Append(" \"" + dr["AU_ID"].ToString() + "\"");
sbISBN.Append("/>");
}
StringBuilder sb = new StringBuilder(" ");
sb.Append("<?xm l version=\"1.0\" ?>");
sb.Append("<ROO T>");
sb.Append(sbISB N.ToString());
sb.Append("</ROOT>");
Response.Write( sb.ToString());
}
=============== =============== =============== =========

[Neel]

Thanx for the reply, I will try it

-----Original Message-----
I find a couple of problems with the code (when translating). In bothexamples, if you put the first two lines together, you will find that thesyntax errors go away. In the first example, the "if" statement on line 8is never terminated, so will generate an error there also.

HTH

David

"Neel" <an*******@disc ussions.microso ft.com> wrote in messagenews:0d******* *************** ******@phx.gbl. ..

HiAll,

I converted the below 2 sets of code into VB.net,with
conversion tools. I am getting a syntax error.

Can some one help me to convert the below code into
VB.net ?
I am building on the fly xml for xmlhttp to fill up the
drop downs. i have tested this in C# it is working fine.
------------------Set 1-----------------------------
strSQL = "Select Title from [Titles] Where ISBN = '" + Id + "'";
da = new OleDbDataAdapte r(strSQL,conn);
ds = new DataSet();
da.Fill(ds,"Tit leName");
dt = ds.Tables[0];
StringBuilder sbTitle = new StringBuilder(" ");
if(dt.Rows.Coun t > 0)
{
foreach(DataRow dr in dt.Rows)
{
sbTitle.Append( "<TITLE VALUE=");
sbTitle.Append( "\"" + dr["Title"].ToString() + "\"");
sbTitle.Append( "/>");
}
StringBuilder sb = new StringBuilder(" ");
sb.Append("<?xm l version=\"1.0\" ?>");
sb.Append("<ROO T>");
sb.Append(sbTit le.ToString());
sb.Append("</ROOT>");
Response.Write( sb.ToString());
=============== =============== =============== ===========
-----------Set 2 ---------------------------------------
strSQL = "Select ISBN,Au_id from [Title Author] Where
Au_Id = " + Id;
da = new OleDbDataAdapte r(strSQL,conn);
ds = new DataSet();
da.Fill(ds,"ISB NList");
dt = ds.Tables[0];
StringBuilder sbISBN = new StringBuilder(" ");
if(dt.Rows.Coun t > 0)
{
foreach(DataRow dr in dt.Rows)
{
sbISBN.Append(" <ISBN VALUE=");
sbISBN.Append(" \"" + dr["ISBN"].ToString() + "\"");
sbISBN.Append(" ID=");
sbISBN.Append(" \"" + dr["AU_ID"].ToString() + "\"");
sbISBN.Append("/>");
}
StringBuilder sb = new StringBuilder(" ");
sb.Append("<?xm l version=\"1.0\" ?>");
sb.Append("<ROO T>");
sb.Append(sbISB N.ToString());
sb.Append("</ROOT>");
Response.Write( sb.ToString());
}
=============== =============== =============== =========

.