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

حاولت ولكن لم افلح.. مع اني اربط بين الجدولين وهذا الكود لربط الجدوين Sad

كود :
dim tran As OleDbTransaction





cmd.CommandText = "insert into   A(Id_user,emp_name)values(?,?) "

       cmd.Connection = con

       cmd.Parameters.Clear()

       cmd.Parameters.Add(New OleDbParameter("@Id_user", OleDbType.VarChar)).Value = Val(txt_Id_user.Text)
      cmd.Parameters.Add(New OleDbParameter("@emp_name", OleDbType.VarChar)).Value = Val(txt_emp_name.Text)
     
       con.Open()
       tran = con.BeginTransaction
       cmd.Transaction = tran
       cmd.ExecuteNonQuery()


       cmd1.CommandText = "insert into b (Id_user,phone,email,note)values(?,?,?)"

       cmd1.Connection = con

       cmd1.Parameters.Clear()


       cmd1.Parameters.Add("@Id_user", OleDbType.VarChar).Value = Val(txt_Id_user.Text)
       cmd1.Parameters.Add("@phone", OleDbType.VarChar).Value = Trim(Val(txt_phone.Text))
       cmd1.Parameters.Add("@email", OleDbType.VarChar).Value = Trim(txt_email.Text)
     
       cmd1.Transaction = tran
       cmd1.ExecuteNonQuery()
       tran.Commit()


     

     
       con.Close()
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#2
اشكرك اخي العزيز المشكلة ليست في الجدولين ولكن المشكلة في الثلاثة الجداول الكود الاول الذي وضعته في السؤال شغال ما فيه اي اشكالية ولكن اشكالتي كيف اضيف الجدول الثالث ان وجد Smile
مع خالص شكري
الرد }}}
تم الشكر بواسطة:
#3
كتب ان وجد Smile
لان سؤالي في الاول واضح لاني احولت اضيف الى جدول ثالث ولم افلح Smile
اما الكود في الاضافة الى جدولين لا يوجد فيه اي اشكالية
الرد }}}
تم الشكر بواسطة:
#4
سلام

كود :
Using con As New OleDbConnection(connectionString)
    con.Open()

Dim tran As OleDbTransaction
    tran = con.BeginTransaction

    Using cmd As New OleDbCommand(Nothing, con)

        cmd.Transaction = tran


        cmd.CommandText = "INSERT INTO [a] ([emp_name]) VALUES (?) "
        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@emp_name", txt_emp_name.Text.Trim)
        Dim insertA As Integer = cmd.ExecuteNonQuery()

        cmd.CommandText = "SELECT @@IDENTITY"
        Dim Id_user As Integer = cmd.ExecuteScalar


        cmd.CommandText = "INSERT INTO [b] ([Id_user], [phone], [email], [note]) VALUES (?, ?, ?, ?)"
        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@Id_user", Id_user)
        cmd.Parameters.AddWithValue("@phone", txt_phone.Text.Trim)
        cmd.Parameters.AddWithValue("@email", txt_email.Text.Trim)
        cmd.Parameters.AddWithValue("@note", txt_note.Text.Trim)
        Dim insertB As Integer = cmd.ExecuteNonQuery()


        cmd.CommandText = "INSERT INTO [c] ([Id_user], [field1]) VALUES (?, ?)"
        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@Id_user", Id_user)
        cmd.Parameters.AddWithValue("@field1", txt_field1.Text.Trim)
        Dim insertC As Integer = cmd.ExecuteNonQuery()


        If (insertA > 0) And (insertB > 0) And (insertC > 0) Then
            tran.Commit()
            MsgBox("تمت الاضافة")
        End If

    End Using

    con.Close()
End Using
الكود مجرب

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#5
(04-08-15, 12:49 PM)الطالب كتب : سلام

كود :
Using con As New OleDbConnection(connectionString)
   con.Open()

Dim tran As OleDbTransaction
   tran = con.BeginTransaction

   Using cmd As New OleDbCommand(Nothing, con)

       cmd.Transaction = tran


       cmd.CommandText = "INSERT INTO [a] ([emp_name]) VALUES (?) "
       cmd.Parameters.Clear()
       cmd.Parameters.AddWithValue("@emp_name", txt_emp_name.Text.Trim)
       Dim insertA As Integer = cmd.ExecuteNonQuery()

       cmd.CommandText = "SELECT @@IDENTITY"
       Dim Id_user As Integer = cmd.ExecuteScalar


       cmd.CommandText = "INSERT INTO [b] ([Id_user], [phone], [email], [note]) VALUES (?, ?, ?, ?)"
       cmd.Parameters.Clear()
       cmd.Parameters.AddWithValue("@Id_user", Id_user)
       cmd.Parameters.AddWithValue("@phone", txt_phone.Text.Trim)
       cmd.Parameters.AddWithValue("@email", txt_email.Text.Trim)
       cmd.Parameters.AddWithValue("@note", txt_note.Text.Trim)
       Dim insertB As Integer = cmd.ExecuteNonQuery()


       cmd.CommandText = "INSERT INTO [c] ([Id_user], [field1]) VALUES (?, ?)"
       cmd.Parameters.Clear()
       cmd.Parameters.AddWithValue("@Id_user", Id_user)
       cmd.Parameters.AddWithValue("@field1", txt_field1.Text.Trim)
       Dim insertC As Integer = cmd.ExecuteNonQuery()


       If (insertA > 0) And (insertB > 0) And (insertC > 0) Then
           tran.Commit()
           MsgBox("تمت الاضافة")
       End If

   End Using

   con.Close()
End Using
الكود مجرب

موفقين
عفوا اخوي انا جربت الكود لكن يظهر لي خطأ في  OleDbConnection(connectionString) ف غيرت الى SqlConnection فظهر لي خطأ في (connectionString) فحاولت إلغائها ولكن ظهر لي خطأ في con.open مع العلم اني كونت قاعدة بيانات في SQL SERVER 2008
ارجو منك أن تشرح لي ما هو الخطأ وهدا الخطأ الذي يظهرلي Additional information: لم تتم تهيئة الخاصية ConnectionString.
الرد }}}
تم الشكر بواسطة:
#6
سلام

لازم يكون عندك متغير اسمه connectionString يحوي على جملت الاتصال مثل في الاكسس
كود :
Dim connectionString As String = "Provider=.......الى اخره"
او مثل في اس كيو ال
كود :
Dim connectionString As String = "DataSource=.....الى اخره"
او
Dim connectionString As String = "Server=....الى اخره"

والكود يعمل ايضا على sql بتعديل oledb ب sql في كل الكود

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#7
(14-08-15, 04:00 PM)الطالب كتب : سلام

لازم يكون عندك متغير اسمه connectionString يحوي على جملت الاتصال مثل في الاكسس
كود :
Dim connectionString As String = "Provider=.......الى اخره"
او مثل في اس كيو ال
كود :
Dim connectionString As String = "DataSource=.....الى اخره"
او
Dim connectionString As String = "Server=....الى اخره"

والكود يعمل ايضا على  sql بتعديل oledb ب sql في كل الكود

موفقين

مشكوووووور خوي Smile Smile
بارك الله فيك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  اريد ربط 3 جداول (relation ship) فى sql server سلام و محبه 0 1,250 23-01-21, 08:10 PM
آخر رد: سلام و محبه
  هل يمكن تعديل كلمة معينة داخل سجل alfaiz678 5 2,497 30-11-20, 09:42 PM
آخر رد: alfaiz678
  سوال بخصوص الداتا جريد Abdelrahman ala 7 3,089 07-03-19, 03:26 AM
آخر رد: Abdelrahman ala
  هل يمكن نقل بيانات DataGridView إلى Dataset . عبد الله 7 4,918 03-09-18, 11:23 PM
آخر رد: انيس القبائلي
  كيف اعمل استعلام لحقول معينه متشابهه من عدة جداول aftfm 0 1,592 24-05-18, 09:16 PM
آخر رد: aftfm
  [SQL] انشاء جدول جديد من عدة جداول ابو ملاك الخبير 0 2,273 07-03-18, 02:46 AM
آخر رد: ابو ملاك الخبير
  كيف يمكن نسخ جدول من قاعدة بيانات الي اخري atefkhalf2004 9 6,739 30-01-18, 02:59 PM
آخر رد: atefkhalf2004
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 4,804 15-08-17, 02:11 PM
آخر رد: abozeyd
  [سؤال] المساعدة - بجملة استعلام بين عدة جداول safalo 3 2,231 14-08-17, 02:06 AM
آخر رد: safalo

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


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