19-04-14, 10:22 PM
السلام عليكم ورحمة اللة وبركاتة
اعمل على vb.net 2008 + sql2008
وتقارير كريستال ريبورت
بعد انهاء برنامجي وقمت بعملية التحزيم
لم كل شيء تمام الى التقارير تطلب يوزر وباسوورد الصورة التالية توضح
وانا لا استخدم باسوورد ولا اي شيء ادخل بحساب الوندوز
حزمت المشروع دون القاعدة
وضعت القاعدة داخل فولدر DB على محرك الاقراص D
كود الاتصال
Public Con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DB\car_rent.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
كود الموديول
Imports System.Data.SqlClient
Module Module1
Public essawq As New Class1
Public Function GetConnect()
sqlconn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DB\car_rent.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Return sqlconn
End Function
Public s As String
'كود الاتصال
Public Con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DB\car_rent.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Public fusername As String
Public password_user As String
Public sqlconn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DB\car_rent.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Public usrrr As String
'Data Source=.\;initial catalog=car_rent;Integrated Security=True
Public name As String
Public Proportsname As String
Public rpt As New Object
End Module
كود زر البحث لجلب البيانات
If TextBox1.Text = "" Then
MsgBox("ادخل الاسم ليتم جلب البيانات للطباعة", MsgBoxStyle.Information, "تنبيه")
TextBox1.Focus()
Exit Sub
End If
Dim cryRpt As New ReportDocument
'cryRpt.Load(Application.StartupPath & "\CrystalReport1.rpt")
cryRpt.Load(Application.StartupPath & "\" & "CrystalReport1.rpt")
'cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParametervalues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterDiscreteValue.Value = TextBox1.Text
crParameterFieldDefinitions = _
cryRpt.DataDefinition.ParameterFields()
crParameterFieldDefinition = _
crParameterFieldDefinitions.Item("name")
crParametervalues = crParameterFieldDefinition.CurrentValues
crParametervalues.Clear()
crParametervalues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParametervalues)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()
وزر الطباعة من الاداة CrystalReportViewer1
بالنهاية يطلب يوزر وباس
تحياتي لكم
اعمل على vb.net 2008 + sql2008
وتقارير كريستال ريبورت
بعد انهاء برنامجي وقمت بعملية التحزيم
لم كل شيء تمام الى التقارير تطلب يوزر وباسوورد الصورة التالية توضح
وانا لا استخدم باسوورد ولا اي شيء ادخل بحساب الوندوز
حزمت المشروع دون القاعدة
وضعت القاعدة داخل فولدر DB على محرك الاقراص D
كود الاتصال
Public Con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DB\car_rent.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
كود الموديول
Imports System.Data.SqlClient
Module Module1
Public essawq As New Class1
Public Function GetConnect()
sqlconn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DB\car_rent.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Return sqlconn
End Function
Public s As String
'كود الاتصال
Public Con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DB\car_rent.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Public fusername As String
Public password_user As String
Public sqlconn As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DB\car_rent.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Public usrrr As String
'Data Source=.\;initial catalog=car_rent;Integrated Security=True
Public name As String
Public Proportsname As String
Public rpt As New Object
End Module
كود زر البحث لجلب البيانات
If TextBox1.Text = "" Then
MsgBox("ادخل الاسم ليتم جلب البيانات للطباعة", MsgBoxStyle.Information, "تنبيه")
TextBox1.Focus()
Exit Sub
End If
Dim cryRpt As New ReportDocument
'cryRpt.Load(Application.StartupPath & "\CrystalReport1.rpt")
cryRpt.Load(Application.StartupPath & "\" & "CrystalReport1.rpt")
'cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParametervalues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterDiscreteValue.Value = TextBox1.Text
crParameterFieldDefinitions = _
cryRpt.DataDefinition.ParameterFields()
crParameterFieldDefinition = _
crParameterFieldDefinitions.Item("name")
crParametervalues = crParameterFieldDefinition.CurrentValues
crParametervalues.Clear()
crParametervalues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParametervalues)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()
وزر الطباعة من الاداة CrystalReportViewer1
بالنهاية يطلب يوزر وباس
تحياتي لكم