datasource

Comments

• AlexTZ

  March 2010 edited 12:37AM

  Hello,
  
  1) Call the designer to create the report, then save the report to a file:
  

  Dim Cmd1 As SqlDataAdapter = New SqlDataAdapter("Select * from rest where (g2a =" & 2 & ")or (g2a=" & 0 & ") and (lname=N'" & txtlname.Text.Trim & "')", cnn)
  Cmd1.Fill(ds, "rest_tbl")
  ' create report instance
  Dim report As New Report
  ' register the dataset
  report.RegisterData(ds)
  ' design the report
  report.Design()
  ' free resources used by report
  report.Dispose()
  

  
  2) run the existing report:
  

  Dim Cmd1 As SqlDataAdapter = New SqlDataAdapter("Select * from rest where (g2a =" & 2 & ")or (g2a=" & 0 & ") and (lname=N'" & txtlname.Text.Trim & "')", cnn)
  Cmd1.Fill(ds, "rest_tbl")
  ' create report instance
  Dim report As New Report
  ' load the existing report
  report.Load("report.frx")
  ' register the dataset
  report.RegisterData(ds)
  ' run the report
  report.Show()
  ' free resources used by report
  report.Dispose()
  
• majidsoft1

  March 2010 edited 12:37AM

  hi thanks for your help
  i create a from with the name frmtest and use a report in this form and design it i dont want to design report again
  i want to full my feild with data that include in datasource

  Dim Cmd1 As SqlDataAdapter = New SqlDataAdapter("Select * from rest where(lname=N'" & txtlname.Text.Trim & "')", cnn)
  

  my datasource must full with this code
  thanks
• AlexTZ

  March 2010 edited 12:37AM

  When you design a report, which datasource do you use? Is it the typed dataset, or something else?
• majidsoft1

  March 2010 edited 12:37AM

  hi
  im using report option in toolbox and add it to form then going to design report and in menu data i add a data source after that i design my report then i want filter report with this code when i used crystal report doing this process to report my data

  Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT * from rest where (g1a =" & 1 & ") and (pri=" & 0 & ") and (rest=" & 1 & " or (rest=" & 2 & ")) ", Fn_Get_SqlConnection())
          Dim ds As DataSet = New DataSet
          da.Fill(ds, "rest") : Dim rpt As New cry : rpt.SetDataSource(ds)
          frmreport.CrystalReportViewer1.ReportSource = rpt : frmreport.Show()
  

  thanks for you attention
• AlexTZ

  March 2010 edited 12:37AM

  Ok, use the following code:
  

  Dim Cmd1 As SqlDataAdapter = New SqlDataAdapter("Select * from rest where (g2a =" & 2 & ")or (g2a=" & 0 & ") and (lname=N'" & txtlname.Text.Trim & "')", cnn)
  Cmd1.Fill(ds, "rest_tbl")
  ' "existing_table_name" is the name of the table in your report
  report.RegisterData(ds.Tables("rest_tbl"), "existing_table_name")
  report.Show()