Dim rpt As tcotest = New tcotest
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim param As SqlParameter
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim connstr As string
connstr="server=sqlserver;uid=sa;pwd=;database=tco "
conn = New SqlConnection(connstr)
If conn.State = ConnectionState.Open Then conn.Open()
Console.Write("Database Opened Succesfully:")
cmd = New SqlCommand
cmd.CommandText = "tcosp"
cmd.Connection = conn
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlParameter("@ccanbr", SqlDbType.Int))
cmd.Parameters("@ccanbr").Value = txtccanbr.Text
da.SelectCommand = cmd
da.Fill(ds)
rpt.Database.Tables(0).SetDataSource(ds)
crv.ReportSource = rpt
conn.Close()
Now how do I put this fields on the report? How to create reports?
|