النتائج 1 إلى 7 من 7

الموضوع: طلب كود ربط asp مع قاعدة البينات

  1. #1
    عضو
    تاريخ التسجيل
    Feb 2005
    المشاركات
    12
    معدل تقييم المستوى
    0

    Question طلب كود ربط asp مع قاعدة البينات

    السلام عليكم انا بحاجه الى كود ربط صفحة asp مع قاعدة البينات من نوع sql باستخدام لغة vb.net

    و كمان الكود الى يربط تطبيق الvb.net مع قاعدة البينات لو كانت من نوع sql و الف شكر على المساعده

  2. #2
    عضو
    تاريخ التسجيل
    Mar 2005
    المشاركات
    8
    الدولة: United States
    معدل تقييم المستوى
    0

    رد: طلب كود ربط asp مع قاعدة البينات

    dim Conn
    Dim connStr
    Dim Rs
    Set Conn = Server.CreateObject("ADODB.Connection")
    conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("VBQUIZ.MDB")
    Set Rs = Server.CreateObject("ADODB.Recordset")
    Rs.CursorType = 2
    RS.LockType = 3
    'now find the quiz specified by the URL command line
    'e.g. vbmark.asp?quiz=1 means mark quiz 1
    set RS = Conn.Execute("SELECT * FROM [quiz] WHERE [QuizID]=" & request.querystring("Quiz"))
    totalmark = RS("TotalMark")
    %>

  3. #3
    عضو
    تاريخ التسجيل
    Feb 2005
    المشاركات
    12
    معدل تقييم المستوى
    0

    رد: طلب كود ربط asp مع قاعدة البينات

    اخي الغالي الف شكر و لكن لو تشرح لي الكود با عربي ريح يكون احسن ادا ما فيها ازعاج

    و وضح لي المكان الى اعمل فيه جملة

    select
    insert
    التحديث
    الحدف

  4. #4
    Mr.Nuke
    زائر

    رد: طلب كود ربط asp مع قاعدة البينات

    السلام عليكم.........

    كود:
    Protected Sub cmdInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdInsert.Click
            'تعريف بعض المتحولات 
            Dim SQLstr As String
            Dim connstr As String
            'يقوم هذا المتحول بإسناد قيمة خاصة تحتوي على المعلومات الضرورية التي يحتاجعا البرنامج من اجل انشاء اتصال مع محرك قاعدة البيانات
            connstr = "Data Source=localhost;Initial Catalog=Students;user id = sa; password = 0000"
            Dim id As Integer
            id = Me.txtID.Text
            Dim fname As String
            fname = Me.txtFname.Text
            Dim lname As String
            lname = Me.txtLname.Text
    
            'يقوم هذا المتحول على الحفظ بتعليمة sql
            SQLstr = "INSERT INTO Students(stu_ID,StudentFirstName,StudentLastName) VALUES (" + ID + "," + fname + "," + lname + ")"
    
            'تعريف متحول خاصة للقيام بفتح و اغلاق اتصال
            Dim SQLconn As New SqlConnection()
            'تعريف متحول خاص للقيام بتنفيذ تعليمة sql
            Dim SQLcmd As New SqlCommand()
    
            'ربط متحول الإتصال بمتحول الخاص الذي يحتوي على المعلومات الضرورية لإنشاء الإتصال
            SQLconn.ConnectionString = connstr
            'فتح الإتصال مع قاعدة المعطيات
            SQLconn.Open()
            'تعريف متحول الخاص بعملية التنفيذ بأي اتصال بحتاج اليه 
            SQLcmd.Connection = SQLconn
            'تعريف المتحول الخاض بعملية التنفيذ بتعمليمة ال sql المراد تنفيذه
            'او يمكن استخدام التعليمة كالتالي
            'SQLcmd.CommandText = "INSERT INTO Students(stu_ID,StudentFirstName,StudentLastName) VALUES (1,'Ibraheem'.'Mansour')"
            SQLcmd.CommandText = SQLstr
            'تنفيذ تعليمة ال sql
            SQLcmd.ExecuteNonQuery()
    
            'اغلاق الإتصال
            SQLconn.Close()
    
            Response.Write("The data has inserted......")
    
        End Sub
    و اتمنى أن اكون قد حصلت على الفكرة

  5. #5
    Mr.Nuke
    زائر

    رد: طلب كود ربط asp مع قاعدة البينات

    لمزيد من المعلومات يمكنك الذهاب الى الموقع التالي:
    https://www.daniweb.com/code/snippet216920.html#

  6. #6
    عضو
    تاريخ التسجيل
    Feb 2005
    المشاركات
    12
    معدل تقييم المستوى
    0

    رد: طلب كود ربط asp مع قاعدة البينات

    مشكور اخي و ما قصرت و يعطيك الف عافيه على المجهود الى الكبير الف شكر لك يا غالي

  7. #7
    عضوية جديدة
    تاريخ التسجيل
    Jan 2010
    المشاركات
    1
    معدل تقييم المستوى
    0

    رد: طلب كود ربط asp مع قاعدة البينات

    اقتباس المشاركة الأصلية كتبت بواسطة Mr.Nuke مشاهدة المشاركة
    السلام عليكم.........

    كود:
    Protected Sub cmdInsert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdInsert.Click
            'تعريف بعض المتحولات 
            Dim SQLstr As String
            Dim connstr As String
            'يقوم هذا المتحول بإسناد قيمة خاصة تحتوي على المعلومات الضرورية التي يحتاجعا البرنامج من اجل انشاء اتصال مع محرك قاعدة البيانات
            connstr = "Data Source=localhost;Initial Catalog=Students;user id = sa; password = 0000"
            Dim id As Integer
            id = Me.txtID.Text
            Dim fname As String
            fname = Me.txtFname.Text
            Dim lname As String
            lname = Me.txtLname.Text
     
            'يقوم هذا المتحول على الحفظ بتعليمة sql
            SQLstr = "INSERT INTO Students(stu_ID,StudentFirstName,StudentLastName) VALUES (" + ID + "," + fname + "," + lname + ")"
     
            'تعريف متحول خاصة للقيام بفتح و اغلاق اتصال
            Dim SQLconn As New SqlConnection()
            'تعريف متحول خاص للقيام بتنفيذ تعليمة sql
            Dim SQLcmd As New SqlCommand()
     
            'ربط متحول الإتصال بمتحول الخاص الذي يحتوي على المعلومات الضرورية لإنشاء الإتصال
            SQLconn.ConnectionString = connstr
            'فتح الإتصال مع قاعدة المعطيات
            SQLconn.Open()
            'تعريف متحول الخاص بعملية التنفيذ بأي اتصال بحتاج اليه 
            SQLcmd.Connection = SQLconn
            'تعريف المتحول الخاض بعملية التنفيذ بتعمليمة ال sql المراد تنفيذه
            'او يمكن استخدام التعليمة كالتالي
            'SQLcmd.CommandText = "INSERT INTO Students(stu_ID,StudentFirstName,StudentLastName) VALUES (1,'Ibraheem'.'Mansour')"
            SQLcmd.CommandText = SQLstr
            'تنفيذ تعليمة ال sql
            SQLcmd.ExecuteNonQuery()
     
            'اغلاق الإتصال
            SQLconn.Close()
     
            Response.Write("The data has inserted......")
     
        End Sub
    و اتمنى أن اكون قد حصلت على الفكرة




    عفوا يا اخي ولكن اين اكتب هذا الكود على صفحة sql or Asp الرجاء التوضيح

المواضيع المتشابهه

  1. امتحنات MCITP من غير LAB ؟
    بواسطة sherif-peetoo في المنتدى منتدى الشهادات العام
    مشاركات: 2
    آخر مشاركة: 01-08-2010, 11:54
  2. ازي احجز امتحنات ميكروسوفت
    بواسطة heero2000 في المنتدى منتدى الشهادات العام
    مشاركات: 4
    آخر مشاركة: 01-04-2010, 21:48
  3. امتحنات 646-203 CSE. Cisco Sales Expert
    بواسطة mwcz في المنتدى الأرشيف
    مشاركات: 4
    آخر مشاركة: 02-06-2007, 13:26
  4. امتحنات ام امتحان
    بواسطة kasoul في المنتدى الأرشيف
    مشاركات: 2
    آخر مشاركة: 10-09-2006, 20:18
  5. اني ابحت عن امتحنات 70-270
    بواسطة libyan code في المنتدى الأرشيف
    مشاركات: 7
    آخر مشاركة: 07-08-2005, 12:37

المفضلات

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •