ضروري الكريستال ريبورت مع الفيجول.نت

السلام عليكم :D

هدا ماتحتاجه اخي والله الهادي لصواب

 Private cmd As New OleDb.OleDbCommand
	Private da As New OleDbDataAdapter
	Private ds As New DataSet
	Private client As New CrystalReport_Cliient
  ds1.Clear()
			cmd.Connection = con
			cmd.CommandText = "select * from client where n_client=" & me.n_client.text
			da.SelectCommand = cmd
			da.Fill(ds, "client")
			Dim imp As New Imprimer_client
			imp.MdiParent = Me.MdiParent
			client.SetDataSource(ds1)
			imp.CrystalReportViewer1.ReportSource = client
			imp.Show()

:rolleyes:

العفو . تسلمي و على الرحب والسعة

مرحبا اخوي

انا استخدمت قاعدة بيانات في msql

و جربت الحل الا عطيتني اياه بس ما اشتغل

انا سمعت انه يستخدمون SqlCommand فإذا عندك او عندكم فكرة عن الحل او

ما المشكلة في الحل الموجود

:lol:

السلام عليكم

هدا الكود أختي الكريمة إشتغلت بيه في أحد برامجي وهو يشتغل جيدا ولله الحمد والمنة.

يمكنكي أن تضعي نمودجصغير المشكلة التي واجهتكي و بإدن الله سوف أحاول المساعدة إن أمكنني دلك

أخوكم ريدنور

:D