[علي كعبي]

(19-06-16, 03:06 AM)hitman48 كتب : راح ارفقلك مثال الصحيح ان شاء الله يساعدك

كود :

Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine


Public Class Form1
   Dim conn As New SqlConnection("Data source=.\SQLEXPRESS; Database=yours;Integrated Security=true")
   Dim cmd As SqlCommand
   Dim reader As SqlDataReader
   Dim r As Integer
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim SqlQuery As String = "select * from table WHERE id = " & DataGridView1.SelectedRows(0).Cells(0).Value & ""

       Dim SqlCommand As New SqlCommand
       Dim SqlAdepter As New SqlDataAdapter
       Dim TABLE As New DataTable

       With SqlCommand
           .CommandText = SqlQuery
           .Connection = conn
       End With
       With SqlAdepter
           .SelectCommand = SqlCommand
           .Fill(TABLE)
       End With
       Dim crystal As New CrystalReport1
       crystal.SetDataSource(TABLE)
       CrystalReportViewer1.ReportSource = crystal
       CrystalReportViewer1.Refresh()

   End Sub


   Private Sub showdata()
       Dim conn As SqlConnection = New SqlConnection("Data source=.\SQLEXPRESS; Database=yours;Integrated Security=true")
       Dim sqlstr = "select * from table"
       Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, conn)
       Dim ds As New DataSet
       da.Fill(ds)
       DataGridView1.DataSource = ds.Tables(0)



   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       showdata()



   End Sub



End Class

بدون استخدام الدتاقريد فيو وكذلك قاعدة البيانات اكسس