Hello,
I'm getting the following error on the code below
" Identifier is expected "
On line:
"myaop29report.SetDataSource(dtset1.tables[0])"
Any ideas on how to fix this problem??
Code:
Imports System.Data.OleDb
Imports Microsoft.VisualBasic.ControlChars
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Xml
Public Class Form1
Dim xyzcal As String
xyzcal = Trim(TextBox1.Text)
Dim myaop29report As New AOP29_XML
Dim mySQL_Statement As String
Dim fs1 As System.IO.FileStream
'fs1 = New System.IO.FileStream(Application.StartupPath + "\Link.xml", IO.FileMode.Open)
'mySQL_Statement = "{Link.Receiver_ID}in [" & xyzcal & "]"
'Dim myDataAdapter As New Xml.XmlTextReader(fs1)
'Dim dtset1 As New DataSet
'dtset1.ReadXml(fs1)
'myaop29report.SetDataSource(dtset1)
'myaop29report.RecordSelectionFormula = mySQL_Statement
'Me.Cursor = Cursors.Default
'myaop29report = Nothing
fs1 = New System.IO.FileStream(Application.StartupPath + "\Link.xml", IO.FileMode.Open)
mySQL_Statement = "{Link.Receiver_ID}in [" & xyzcal & "]"
Dim myDataAdapter As New Xml.XmlTextReader(fs1)
Dim dtset1 As New DataSet
dtset1.ReadXml(myDataAdapter)
myaop29report.SetDataSource(dtset1.tables[0])
Any ideas on how to fix this problem?
Also when I use the following code, I receive error message "Root element" is missing
Code:
Dim xyzcal As String
xyzcal = Trim(TextBox1.Text)
Dim myaop29report As New AOP29_XML
Dim mySQL_Statement As String
Dim fs1 As System.IO.FileStream
fs1 = New System.IO.FileStream(Application.StartupPath + "\Link.xml", IO.FileMode.Open)
mySQL_Statement = "{Link.Receiver_ID}in [" & xyzcal & "]"
Dim myDataAdapter As New Xml.XmlTextReader(fs1)
Dim dtset1 As New DataSet
dtset1.ReadXml(fs1)
myaop29report.SetDataSource(dtset1)
myaop29report.RecordSelectionFormula = mySQL_Statement
Me.Cursor = Cursors.Default
myaop29report = Nothing
Thanks,
Victor
I'm getting the following error on the code below
" Identifier is expected "
On line:
"myaop29report.SetDataSource(dtset1.tables[0])"
Any ideas on how to fix this problem??
Code:
Imports System.Data.OleDb
Imports Microsoft.VisualBasic.ControlChars
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Xml
Public Class Form1
Dim xyzcal As String
xyzcal = Trim(TextBox1.Text)
Dim myaop29report As New AOP29_XML
Dim mySQL_Statement As String
Dim fs1 As System.IO.FileStream
'fs1 = New System.IO.FileStream(Application.StartupPath + "\Link.xml", IO.FileMode.Open)
'mySQL_Statement = "{Link.Receiver_ID}in [" & xyzcal & "]"
'Dim myDataAdapter As New Xml.XmlTextReader(fs1)
'Dim dtset1 As New DataSet
'dtset1.ReadXml(fs1)
'myaop29report.SetDataSource(dtset1)
'myaop29report.RecordSelectionFormula = mySQL_Statement
'Me.Cursor = Cursors.Default
'myaop29report = Nothing
fs1 = New System.IO.FileStream(Application.StartupPath + "\Link.xml", IO.FileMode.Open)
mySQL_Statement = "{Link.Receiver_ID}in [" & xyzcal & "]"
Dim myDataAdapter As New Xml.XmlTextReader(fs1)
Dim dtset1 As New DataSet
dtset1.ReadXml(myDataAdapter)
myaop29report.SetDataSource(dtset1.tables[0])
Any ideas on how to fix this problem?
Also when I use the following code, I receive error message "Root element" is missing
Code:
Dim xyzcal As String
xyzcal = Trim(TextBox1.Text)
Dim myaop29report As New AOP29_XML
Dim mySQL_Statement As String
Dim fs1 As System.IO.FileStream
fs1 = New System.IO.FileStream(Application.StartupPath + "\Link.xml", IO.FileMode.Open)
mySQL_Statement = "{Link.Receiver_ID}in [" & xyzcal & "]"
Dim myDataAdapter As New Xml.XmlTextReader(fs1)
Dim dtset1 As New DataSet
dtset1.ReadXml(fs1)
myaop29report.SetDataSource(dtset1)
myaop29report.RecordSelectionFormula = mySQL_Statement
Me.Cursor = Cursors.Default
myaop29report = Nothing
Thanks,
Victor