منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
حفظ جدول كامل الى قاعدة بيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حفظ جدول كامل الى قاعدة بيانات (/showthread.php?tid=32316)

حفظ جدول كامل الى قاعدة بيانات - muad - 01-12-19

عندي جدول مكون من عدد من الصفوف والاعمده كيف يمكن حفظه في قاعدة بيانات دفعه واحدة
جزاكم الله خيرا

RE: حفظ جدول كامل الى قاعدة بيانات - علي بنيان - 01-12-19

ليش هو الجدول وين موجود ؟

RE: حفظ جدول كامل الى قاعدة بيانات - muad - 02-12-19

جدول يتم تكوينه بكود معين ويظهر على شاشة المستخدم
أريد حفظه لكي يقوم المستخدم بإجراء بعض العمليات عليه بعد الحفظ

RE: حفظ جدول كامل الى قاعدة بيانات - علي بنيان - 02-12-19

حقيقة ما عندي فكرة عن هيج شيء , و ما اتصور ممكن يصير
منطقيا تكدر تنشئ جدول بداخل قاعدة البيانات , لكن حتى تعرض هذا الجدول ويعدل عليه المستخدم  انت تحتاج الى ادوات وفورم جديد و عدد التكست مثلا يكون على عدد الاعمدة الموجودة في الجدول الجديد الي هو متغير وكذلك تحتاج لتنسيق والكثير من الامور البرمجية الاخرى , ننتظر رد بقية الاخوة ممكن احد يكدر يقدم الحل

RE: حفظ جدول كامل الى قاعدة بيانات - asemshahen5 - 02-12-19

كود انشاء جدول :

PHP كود :
       Dim StrSQL As String = "CREATE TABLE [dbo].[Test](Id int Null,ParentId int Null,Name nvarchar Null,Company nvarchar Null,Occupation nvarchar Null) ON [PRIMARY]"
        Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt) 

كود عرض اسماء الجداول في كومبو بوكس :

PHP كود :
       Dim da As New SqlClient.SqlDataAdapter("Select Name AS 'Table_Name' From dbo.sysObjects Where xtype='u' order by Name", cn)
        Dim dt As New DataTable
        da.Fill(dt)
        CmbTableName.Items.Clear()
        For Each row As DataRow In dt.Rows
            CmbTableName.Items.Add(row(0).ToString)
        Next 

كود عرض الجدول المختار من الكمبو بوكس في اداة الداتاغريد فيو :

PHP كود :
       Dim StrSQL As String = "Select * From " & CmbTableName.Text
        Dim cn As New SqlClient.SqlConnection("Server =(local);database=TestDB;integrated security=true")
        Dim da As New SqlClient.SqlDataAdapter(StrSQL, cn)
        Dim dt As New DataTable
        da.Fill(dt)
        DgvTable.DataSource = dt 


RE: حفظ جدول كامل الى قاعدة بيانات - asemshahen5 - 02-12-19

هذه بعض الاستعلامات ربما تفيدك بما تريد :

PHP كود :
'تعديل اسم جدول'
ALTER TABLE table_name RENAME TO new_table_name;
'حذف جدول'
DROP DATABASE testDB;
'إضافة عامود'
ALTER TABLE Customers ADD Email varchar(255);
'حذف عامود'
ALTER TABLE Customers DROP COLUMN ContactName;
'تعديل نوع عامود'
ALTER TABLE table_name MODIFY column_name datatype; 


RE: حفظ جدول كامل الى قاعدة بيانات - muad - 02-12-19

والله يا أخي الكريم ما فهمت
ما أقدر أعملها بقاعدة اكسيس
أنا عندي جدول مكون من صفوف وأعمدة
كيف أحفظ محتواه في قاعدة البيانات لكي يتم فتحه فيما بعد للتعديل عليه

RE: حفظ جدول كامل الى قاعدة بيانات - abomo3ath - 02-12-19

(02-12-19, 10:08 PM)muad كتب : والله يا أخي الكريم ما فهمت
ما أقدر أعملها بقاعدة اكسيس
أنا عندي جدول مكون من صفوف وأعمدة
كيف أحفظ محتواه في قاعدة البيانات لكي يتم فتحه فيما بعد للتعديل عليه




كأني فهمت سؤالك 



البيانات المعروضة أمام العميل أو أمامك في جدول  ( DataGridView) وترغب في حفظها من الجدول لقاعدة البيانات.... هذا اللي فهمته



وهذا كود يخدمك إن كان فهمي لك صحيح ويكون بزر الحفظ



كود :
Dim r As Integer = 0
' كمية المتغيرات حسب حاجتك
   Dim V10, V11, V12, v13 As String
               For r = 0 To DataGridView1.Rows.Count - 1


                   V10 = DataGridView1.Item(1, r).Value
                   V11 = DataGridView1.Item(2, r).Value
                   V12 = DataGridView1.Item(3, r).Value

                   ' هذا مثال لو كان عندك بيانات خارج الجدول وترغب بحفظها ضمن البيانات المحفوضة من الجدول
V13 = text1.Text


   Dim SavInto As New SqlClient.SqlCommand
                   SavInto.Connection = cn
                   SavInto.CommandType = CommandType.Text
                   SavInto.CommandText = "INSERT INTO TABLENAME(t1 ,t2 , t3, t4 ) values ('" & V10 & "','" & V11 & "','" & V12 & "','" & v13 & "')"
                   cn.Open()
                   SavInto.ExecuteNonQuery()
                   cn.Close()

               Next r

               MessageBox.Show("تمت عملية الحفظ", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)


RE: حفظ جدول كامل الى قاعدة بيانات - muad - 03-12-19

هذا تماما ما أريده
الله يسعدك ويرضى عليك
الف شكر

RE: حفظ جدول كامل الى قاعدة بيانات - abomo3ath - 04-12-19

(03-12-19, 12:19 AM)muad كتب : هذا تماما ما أريده
الله يسعدك ويرضى عليك
الف شكر



العفو... ?