Visual Basic

<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 />

Public Class MyControl
    Public Sub New
        SetStyle(ControlStyles.AllPaintingInWmPaint, True)
        SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
        SetStyle(ControlStyles.UserPaint, True)
    End Sub

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    Dim backBuffer As New Bitmap(Me.ClientRectangle.Width, Me.ClientRectangle.Height)
    Dim bg As Graphics = Graphics.FromImage(backBuffer)
    ' Do all your control painting here
    bg.draw...this and that
    bg.Dispose()
 
    ' Now draw your buffered image to your control surface
    Dim g As Graphics = e.Graphics
    g.DrawImage(backBuffer, 0, 0, backBuffer.Width, backBuffer.Height)
End Sub

    Dim sqlConn As SqlClient.SqlConnection<br />
    Dim command As SqlClient.SqlCommand<br />
    Dim adapter As SqlClient.SqlDataAdapter<br />
    Dim table As DataTable<br />
<br />
    Try<br />
      sqlConn = New SqlClient.SqlConnection("YOUR CONNECTION STRING")<br />
      command = New SqlClient.SqlCommand("OpersLogon", sqlConn)<br />
      With command<br />
        .Parameters.AddWithValue("@OperatorName", Server.HtmlEncode(logon1.UserName))<br />
        .Parameters.AddWithValue("@OperatorPassword", Server.HtmlEncode(logon1.Password))<br />
        .CommandType = CommandType.StoredProcedure<br />
      End With<br />
      adapter = New SqlClient.SqlDataAdapter(command)<br />
      table = New DataTable<br />
      adapter.Fill(table)<br />
      If CInt(table.Rows(0)(0)) <> 1 Then Throw New ApplicationException("Invalid User Credentials.")<br />
    Catch ex As Exception<br />
      ' Report or document the exception<br />
    Finally<br />
      If sqlConn.State <> ConnectionState.Closed Then sqlConn.Close()<br />
    End Try

Pete Newman wrote:

@ReturnValue INT OUTPUT

table = New DataTable<br />
adapter.Fill(table)<br />
If CInt(table.Rows(0)(0)) <> 1 Then

amapumu wrote:

How I can check if properties are Nothing dinamically (without knowing property type)?