Visual Basic

artofsuntzu wrote:

The standard, methods for grabbing text, like wm_gettext, em_getline, etc. isn't working for me on the parent/#32770/edit

Try
conn.Open() 'previously created connection
dsDataSet.Clear()
daAdapter.Fill(dsDataSet) '<- code for .NET 1.1
'daAdapter.Fill(dsDataSet.DataTable) '<- code for .NET 2.0
Catch ex as exception
Messagebox.Show(ex.Message)
Finally
conn.Close()
End Try

Private rptDataReport As rptReport 

Private Sub LoadReport()
rptDataReport = New rptReport '<- new instance
rptDataReport.SetDataSource(dsDataSet)
End Sub

CrystalReportViewer.ReportSource = rptDataReport

<br />
Private Sub frmJobSheet1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim customerReport As New rptJobSheet1()<br />
        Dim DS_JobSheet As DataSet 'DS_JobSheet is the .xsd data schema, data has been generated <br />
        Dim IDNumber As Integer<br />
        Dim cnn As New SqlConnection()<br />
        Dim da As New SqlDataAdapter()<br />
        Dim cmd As New SqlCommand()<br />
<br />
        cnn.ConnectionString = "server=steve02\ssd02; database=serviceMaster; pwd=a123; user id=sa"<br />
<br />
        cmd.CommandType = CommandType.Text<br />
        cmd.CommandText = "SELECT * FROM Incident"<br />
        DS_JobSheet = New DataSet<br />
<br />
        Try<br />
            cnn.Open()<br />
            cmd.Connection = cnn<br />
<br />
            da.SelectCommand = cmd<br />
            da.Fill(DS_JobSheet)<br />
<br />
        Catch ex As Exception<br />
            MessageBox.Show(ex.Message)<br />
        End Try<br />
<br />
        IDNumber = 68 'Display record for ID number 68 this number exists in the database table<br />
<br />
        customerReport.SetDataSource(DS_JobSheet)<br />
<br />
<br />
        Me.CrystalReportViewer1.Refresh()<br />
        Me.CrystalReportViewer1.SelectionFormula = "{Incident.IncidentID} = " & IDNumber & " "<br />
        Me.CrystalReportViewer1.ReportSource = customerReport 'Application.StartupPath & "\JobSheetReport\rptJobSheet1.rpt"<br />
<br />
<br />
        Me.UltraGrid1.DataSource = DS_JobSheet.Tables(0).DefaultView 'Data is displayed in the datagrid so this is ok<br />
        Me.UltraGrid1.Refresh()<br />
<br />
        Me.CrystalReportViewer1.Show()<br />
<br />
    End Sub<br />

<br />
Dim CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer<br />
        Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument<br />
        CrystalReportViewer1.ActiveViewIndex = 0<br />
        CrystalReportViewer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle<br />
        CrystalReportViewer1.DisplayGroupTree = False<br />
        CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill<br />
        CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)<br />
        CrystalReportViewer1.Name = "CrystalReportViewer1"<br />
<br />
        Dim QueryString As String = "select * from TableName" 'Your Query here<br />
        Dim Connection As New OleDbConnection(funcs.con) 'Your Database Connection Here<br />
        Connection.Open()<br />
<br />
        Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter(querystring, connection)'Passing the query in the connection<br />
        Dim DataSet As DataSet = New DataSet() 'DataSet<br />
        Adapter.Fill(DataSet)<br />
        Dim DataTable As DataTable = New DataTable 'DataTable<br />
        DataTable = DataSet.Tables(0) 'filling the datatable here<br />
        Report.Load(Application.StartupPath & "/ReportName.rpt") 'Report Name Here<br />
        Report.SetDataSource(DataTable)<br />
        CrystalReportViewer1.ReportSource = Report<br />