تقييم الموضوع :
  • 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() 
أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصفير الداتا جريد فيو عند كل إضافه جديدة. nassery99 13 178 17-10-17, 08:41 AM
آخر رد: nassery99
  مشكلة تظهر في البرنامج بسبب الداتا بيس اكسس khaled12345 2 55 16-10-17, 07:41 AM
آخر رد: khaled12345
  احتاج كود لطباعة الصور المخزنة في الداتا بيز Access sajakh 0 29 14-10-17, 10:33 PM
آخر رد: sajakh
  [VB.NET] فتح نموذج بناءا علي قيمة في الداتا جريد فيو haithammoftah 3 64 14-10-17, 07:55 PM
آخر رد: Amir_alzubidy
  تسمية زرار الداتا قريد فيو ..؟ طـلال 2 63 28-09-17, 12:48 AM
آخر رد: طـلال
Lightbulb [مثال] تحويل التاريخ الميلادي الى هجري داخل الداتا جريد من قاعدة بيانات اكسس محمود بكرى 20 536 30-08-17, 02:37 PM
آخر رد: محمود بكرى
  نسخ البيانات من الداتا جريد الى داتا جريد اخري احمد الامين 1 139 28-08-17, 05:07 AM
آخر رد: سعود
  [VB.NET] كيف أسوي بحث في الداتا جريد فيو فقط بالتكست بوكس بدون زر oni 3 146 27-08-17, 12:17 AM
آخر رد: سعود
  مساعده من الخبراء فى تنسيق الداتا جريد فيو نبيل كونكت 3 152 22-08-17, 11:50 PM
آخر رد: أبو نوره
  بخصوص العرض فى الداتا جريد فيو نبيل كونكت 5 187 21-08-17, 04:07 AM
آخر رد: نبيل كونكت

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


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