تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
sql واجراء العمليات
#1
السلام عليكم 
في البدء اشكر الاخ khodor1985 علمني كيفية ربط قاعدة البيانات Access مع vb.net واجراء جميع العمليات ادخال و حذف وبحث 
الان احب اتعلم كيفية اجراء العمليات السابقة في sql server 2010 علما اني تعلمت كيف اربط البيانات وانشاء قاعدة
مثال بسيط لتعديل عليه
وشكرا لكم


الملفات المرفقة
.rar   khodor1985 - SavePicture.rar (الحجم : 1.14 م ب / التحميلات : 10)
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم أخي العزيز ورحمة الله وبركاته،
شكرا لأنك علمتني لأنني عندما أنفق العلم أكون في طور التعلم، فلكي تزيد من علمك يجب أن تعلم.
أما بالنسبة للربط مع SQL Sever فلن يتغير عليكم شيئ سوى استدعاء مكتبة SQLClient والكائنات المتعلقة بها وجملة الإتصال.
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , hassan
#3
السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم التعديل على مشروعكم بناء لطلبكم

أولا قم بوضع المشروع في المسار D: (هذه ملاحظة مهمة جدا) فالمشروع لن يعمل إن لم تضعه في المسار D:>
بعد أن تضع المشروع في المسار D:  نفذ عملية Attach لملفات قاعدة البيانات الموجود في مجلد داخل المشروع بعنوان MyDBSQL :
خطوات تنفيذ عملية الـ Attach بالصور :
   

   

   

   

   

   

الأكواد :
قم باستدعاء المكتبات التالية :
PHP كود :
Imports System.Data.SqlClient
Imports System
.IO 

تحميل البيانات :
PHP كود :
Try

            
con.Open()
            
sqlstr "Select * From Person"
            
cmd = New SqlCommand(sqlstrcon)
            
da = New SqlDataAdapter(cmd)
            
ds = New DataSet
            ds
.Clear()
            
da.Fill(ds"Person")

            
bs = New BindingSource
            bs
.DataSource ds.Tables("Person")

            
txtID.DataBindings.Clear()
            
txtFname.DataBindings.Clear()
            
txtLname.DataBindings.Clear()
            
txtAdrs.DataBindings.Clear()
            
Pic1.DataBindings.Clear()

            
txtID.DataBindings.Add("Text"bs"ID")
            
txtFname.DataBindings.Add("Text"bs"Fname")
            
txtLname.DataBindings.Add("Text"bs"Lname")
            
txtAdrs.DataBindings.Add("Text"bs"Adrs")
            
Pic1.DataBindings.Add("Image"bs"MyImage"22)


            
con.Close()
            
ShowPosition()
            
EnableAddbtn()
        Catch 
ex As Exception
            
If con.State ConnectionState.Open Then con.Close()
            
MsgBox(ex.Message)
        
End Try 

زر الإضافة :
PHP كود :
If (Pic1.ImageIs Nothing Then
            MsgBox
("Enter picture before saving")
            Return
        
End If

        Try
            
con.Open()
            
Dim arrImg As Byte()
            
Dim ms As New MemoryStream
            Me
.Pic1.Image.Save(msPic1.Image.RawFormat)
            
arrImg ms.GetBuffer

            sqlstr 
"Insert Into Person(Fname,Lname,Adrs,MyImage) Values(@Fname,@Lname,@Adrs,@MyImage)"
            
cmd = New SqlCommand(sqlstrcon)
            
With cmd.Parameters
                
.Add("@Fname"SqlDbType.NVarChar50).Value txtFname.Text
                
.Add("@Lname"SqlDbType.NVarChar50).Value txtLname.Text
                
.Add("@Adrs"SqlDbType.NVarChar50).Value txtAdrs.Text
                
.Add("@MyImage"SqlDbType.Image).Value arrImg

            End With
            cmd
.ExecuteNonQuery()

            For 
Each ar As Byte In arrImg
                ms
.WriteByte(ar)
            
Next
            Pic1
.Image Image.FromStream(msTrue)
            
MsgBox("Added Successfully")
            
con.Close()

        Catch 
ex As Exception
            
If con.State ConnectionState.Open Then con.Close()
            
MsgBox(ex.Message)
        
End Try 

زر التعديل :
PHP كود :
If (Pic1.ImageIs Nothing Then
            MsgBox
("Enter picture before saving")
            Return
        
End If

        Try
            
con.Open()
            
Dim arrImg As Byte()
            
Dim ms As New MemoryStream
            Me
.Pic1.Image.Save(msPic1.Image.RawFormat)
            
arrImg ms.GetBuffer

            sqlstr 
"Update Person Set Fname=@Fname,Lname=@Lname,Adrs=@Adrs,MyImage=@MyImage Where ID=@ID"
            
cmd = New SqlCommand(sqlstrcon)
            
With cmd.Parameters
                
.Add("@Fname"SqlDbType.NVarChar50).Value txtFname.Text
                
.Add("@Lname"SqlDbType.NVarChar50).Value txtLname.Text
                
.Add("@Adrs"SqlDbType.NVarChar50).Value txtAdrs.Text
                
.Add("@MyImage"SqlDbType.Image).Value arrImg
                
.Add("@ID"SqlDbType.Int).Value txtID.Text
            End With
            cmd
.ExecuteNonQuery()

            For 
Each ar As Byte In arrImg
                ms
.WriteByte(ar)
            
Next
            Pic1
.Image Image.FromStream(msTrue)
            
MsgBox("Updated Successfully")
            
con.Close()
        Catch 
ex As Exception
            
If con.State ConnectionState.Open Then con.Close()
            
MsgBox(ex.Message)
        
End Try 
وباقي الأكواد يمكن الإطلاع عليها داخل المشروع.
المشروع بعد التعديل :

.rar   khodor1985 -(SQL)- SavePicture.rar (الحجم : 1.55 م ب / التحميلات : 12)

أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة: Namer , Namer , hassan , Adrees , Amir_alzubidy
#4
اشكرك اخي .وكلمة شكرقليله في حقك
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985 , hassan


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اجراء العمليات الحسابية على اداة ListView + مرفق مثال led 6 1,228 14-11-14, 02:44 AM
آخر رد: led
  [كود] اكواد العمليات الحسابية على قواعد البيانات ( جزاكم الله خير مقدما ) أبو يزن 10 2,346 09-11-14, 12:07 PM
آخر رد: احمد129
  [سؤال] اريد طريقة العمليات الحسابية في وضع الاتصال بالمعالج medchouaib7 4 930 31-03-14, 07:37 AM
آخر رد: مالكـ
  [سؤال] حساب العمليات الحسابية المكتوبة في التيكست بوكس tarek 9 4,624 28-10-13, 03:16 AM
آخر رد: ناجي إبراهيم
  ما هي العمليات التي تحصل وراء الستار إسماعيل الشهالي 1 295 01-07-13, 12:57 PM
آخر رد: سامي نت
  كيف يتم إجراء العمليات الحسابية على قواعدك البيانات في بيئة دت نت؟! سالم العولقي 2 591 21-05-13, 06:38 PM
آخر رد: سالم العولقي
  @@@ معالجة العمليات الحسابية من خلال مربع نص وإظهار النتيجة @@@ @@أبورائد@@ 1 467 02-05-13, 07:02 PM
آخر رد: ربيع
  سؤال: عن البحث في ذاكرة العمليات للالعاب و تحريرها مدري 6 481 10-02-13, 04:38 PM
آخر رد: مدري

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


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