تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] هل أستطيع الطباعه من الداتا قريد فيو
#1
السلام عليكم ورحمة الله وبركاته 
عندي داتا قريد فيو 
هل أستطيع طباعة مابداخلها عن طريق نفس البرنامج 

أيضاً لو أن المشتخدم بحث عن قسمه معينه وأظهرها وأخفى البقيه هل أسطيتع طباعة القيمه التي بحث عنها ..؟
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم أخي العزيز ورحمة الله وبركاته
قم بإدراج الاداة PrintDocument وزري أمر من مربع الأدوات
ضع الكود في زر الامر الاول والغاية منه هو استدعاء البيانات من قاعدة البيانات إلى data grid :
PHP كود :
dim con as new oledconnection("put the connection string")
Dim sqlstr as string "Select * from Person"
Dim da as new OledbDataAdapter(sqlstr,con)
Dim dt as new datatable
da
.fill(dt)
Me.datagrid.datasource =dt 

ضع الكود التالي في زر الطباعة وهو الزر الثاني
PHP كود :
PrintDocument1.Print 

ثم حدد الاداة PrintDocument في النموذج وضع الكود التالي في الحدث PrintPage
PHP كود :
Dim bmp as new bitmap(me.datagrid.width,me.datagrid.height)
Datagrid.DrawToBitmap(bmp.NewRectangle(0,0,me.datagrid.width,me.datagrid.hieght))
E.graphics.drawimage(bmp,0,0

أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة: محمود رغمان
#3
شكرا خضر 

ممكن تساعدني في كود بحث بحيث أنه يبحث في أي عمود وأي صف  داخل قاعدة البيانات 
يعرض النتائج ويخفي البقيه
الرد }}}}
تم الشكر بواسطة:
#4
أنا بالخدمة ولكن أين المشروع لكي نتمكن من مساعدتكم

أو أرسل صورة عن المشروع وأنا بخدمتكم
الرد }}}}
تم الشكر بواسطة:
#5
أنا أستخدم سكيول سيرفر 

وعند وضع الحدث برنت دكمنت لم يظهر لي إلا Disposed و HelpRequest فقط 


عندما وضعت في زر الطباعه هذا الكود يعطيني خطأ   PrintDocument1.Print()

(02-11-15, 06:47 PM)khodor1985 كتب : أنا بالخدمة ولكن أين المشروع لكي نتمكن من مساعدتكم

أو أرسل صورة عن المشروع وأنا بخدمتكم

عندي 12 عمود والأسطر حدث ولا حرج  فعشـان أرفق مثال لابد أن أصمم مشروع أخر كوني مبتدأ في البرمجه هذا من المحتمل أن ينتهي في ثلاثه أيام على اللأقل

يا أخوان نرى في البرمجه هيبه مخيفه نحن المبتدئون ولكنها تسقط عندما تقدمون لنا المسـاعده
الرد }}}}
تم الشكر بواسطة:
#6
أخي العزيز أرسل صورة عن المثال أقصد صورة عن الجدول فقط ونحن لكم من الشاكرين
الرد }}}}
تم الشكر بواسطة:
#7
أعمدة الجدول 
ID = INT
Name= Nvarchar
Num_ID=  cahr
Frm-go=  nvarchar
frmcam=  nvarchar
dete_num=  nvarchar

هذه أعمدة الجدول ولكن ستكون البيانات كثيره عليها لكي تراعي الكود عند البحث كي لا يأخذ وقت طويل 
أريد أن تكون الدتات قريد فيو فاضيه وتظهر فقط القيمه التي يبحث عنها شــاكر ومقدر
الرد }}}}
تم الشكر بواسطة:
#8
أعمدة الجدول
ID = INT
Name= Nvarchar
Num_ID= cahr
Frm-go= nvarchar
frmcam= nvarchar
dete_num= nvarchar

لنفترض أن إسم الجدول Person ويحتوي على الأعمدة المدرجة أعلاه
ضع الكود التالي :
PHP كود :
]Dim sqlstr as String "Select * From Person Where ID=@ID or Name=@Name Or Num_ID=@Num_ID or Frm_go=@Frm_go or frmcam=@frmcam or dete_num=@dete_num"
Dim cmd as new SqlCommand(sql,con)
cmd.Parameters.AddwithValue("@ID",txtValue.Text")
cmd.Parameters.AddwithValue("
@Name",txtValue.Text")
cmd.Parameters.AddwithValue("@Num_ID",txtValue.Text")
cmd.Parameters.AddwithValue("
@Frm_go",txtValue.Text")
cmd.Parameters.AddwithValue("@FrmCam",txtValue.Text")
cmd.Parameters.AddwithValue("
@detenum",txtValue.Text")
con.open
dim da 
as new SqlDataAdapter(cmd)
dim dt as new DataTable
da
.Fil(dt)
Me.Datagrid1.DataSource dt
con
.Close 

ملاحظة txtValue هو مربع النص الذي من خلاله سوف نبحث عن البيانات الموجودة في قاعدة البيانات وإظهار نتيجة البحث في DataGrid
الرد }}}}
تم الشكر بواسطة:
#9
أضع الكود هذا في البحث
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم أخي العزيز عادل ورحمة الله وبركاته
يمكن إضافة هذا الكود لزر أمر
وإذا لم تتضح الفكرة فسوف أرسل مثال حول هذا الأمر
أتمنى لك التوفيق

إليك هذا المثال :
   

   

قم بالإعلان أولا عن المتغيرات التالية :
PHP كود :
Dim con As New SqlConnection("Data Source=.;Initial Catalog=Test;Integrated Security=True")
    
Dim sqlstr As String "Select * From Person Where Fname like @Fname or Lname like @Lname" 
ضع الكود في زر الأمر :
PHP كود :
Dim cmd As New SqlCommand(sqlstrcon)
        
con.Open()
        
cmd.Parameters.AddWithValue("@Fname""" txtValue.Text "%")
        
cmd.Parameters.AddWithValue("@Lname""" txtValue.Text "%")
        
Dim da As New SqlDataAdapter(cmd)
        
Dim dt As New DataTable
        da
.Fill(dt)
        
Me.DataGridView1.DataSource dt
        con
.Close() 
أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 64 01-12-16, 07:04 AM
آخر رد: araxis
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 168 29-11-16, 07:26 AM
آخر رد: amgad525
  الداتا ببتلغبط لما الكمبيوتر بيتفطع عنة الكهربا مرة واحدة araxis 5 121 22-11-16, 06:42 PM
آخر رد: zinom
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 94 22-11-16, 02:38 PM
آخر رد: thevirus
  كيف اتعامل مع الداتا اقرد فيو واستخدامها في التقارير معتز الجازوي 1 58 17-11-16, 11:53 AM
آخر رد: Genius Live
  جعل مفتاح انتر يعمل عمل مفتاح تاب مع الداتا جريد فيو cvcvcv 7 1,898 15-11-16, 09:00 PM
آخر رد: samnaj00
  كيف اتعامل مع الداتا اقرد فيو واستخدامها في التقارير معتز الجازوي 1 89 15-11-16, 12:41 PM
آخر رد: محمود بكرى
  استدعاء داتا من الداتا بيز عن طريق المعالج araxis 14 281 15-11-16, 07:17 AM
آخر رد: araxis
  [VB.NET] بخصوص الطباعه لشي محدد adel27 6 129 10-11-16, 05:51 PM
آخر رد: adel27
  كيف يمكن الذهاب لصف جديد فى الداتا جريد فيو walkady 0 67 06-11-16, 11:31 PM
آخر رد: walkady

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم