الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

نقل البيانات من Sql الى Xml و العكس Xml الى Sql

مغلق
بدأه MohamedAliSalim في 6 يناير 2008 · 0 رد · 571 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1

السلام عليكم

في هذا الموضوع سوف تتعلم كيفية التحويل من SQL to XML بالكود

و

XML to SQL بالكود

هذه الكلمات التالية التي بين علامات = ليس لها فائدة سوى من يبحث في اي محرك بحث يجد هذا الموضوع واللي عنده كلمات تانية يكتبها

==================================================

SQL to XML

SQL server to XML

XML to SQL

XML to SQL server

Export SQL to XML

Export XML to SQL

transfer data from SQL to XML

transfer data from XML to SQL

================================================

هذه هي شكل الفورمة للي عاوز يطبق من غير ما ينزل الملف المرفق

post-73411-1199567228_thumb.jpg

انا سوف اضع الكود وكل اللي عليكوا انكوا تغيروا بعض الكلمات اللي جوه على حسب اللى عندكم

انا هاقولكم على الكلمات اللي هاتغيروها

اولا الكود من SQL to XML

Dim SQLDataset As New DataSet("Shippers")
		Dim DBConnection As New SqlConnection("Data Source=(local);Initial Catalog=test;Integrated Security=SSPI")

		DBConnection.Open()
		Dim DBAdapter As New SqlDataAdapter("Select * FROM names", DBConnection)

		DBAdapter.Fill(SQLDataset)

		SQLDataset.WriteXml("c:\DotNetShippers.xml", XmlWriteMode.WriteSchema)

		DBConnection.Close()
		MsgBox("Done!")

الكلمات اللي هاتتغير هي

test في تاني سطر وهي اسم قاعدة البيانات اللي هاخد منها البيانات

names في رابع سطر وهو اسم الجدول اللي هاخد منه البيانات

بس كدة

عند التحويل من XML to SQL

Dim DBConnection As New SqlConnection("Data Source=(local);Initial Catalog=test;Integrated Security=SSPI")
		Dim ds As New DataSet
		ds.ReadXml("c:\DotNetShippers.xml")
		DataGridView1.DataSource = ds.Tables(0)
		Dim dt As DataTable = ds.Tables(0)
		DBConnection.Open()
		Dim cmd As New SqlCommand
		For Each row As DataRow In dt.Rows
			cmd.CommandText = "insert into names (code,name,tel) values ('" + row(0) + "','" + row(1) + "','" + row(2) + "')"
			cmd.Connection = DBConnection
			cmd.ExecuteNonQuery()
		Next
		DBConnection.Close()
		MsgBox("done!")

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

المهم

الكلمات اللي هاتغيروها هي

test في اول سطر وهي اسم قاعدة البيانات اللي هاحط فيها البيانات

DotNetShippers.xml اللي في السطر التالت وهو اسم الملف الــ XML اللي هناخد منه البيانات

code,name,tel اللي في السطر التاسع وهي اسماء الحقول اللي هانحط فيها البيانات

طبعا هاتزودوا الــrow(1) لغاية عدد الحقول اللي عاوزين تحطوا فيها بيانات

يعني انا هنا عامل ثلاث حقول بس فاستخدمت

row(0)

row(1)

row(2)

شوفوا بقى انتوا هاتحطوا كام حقل

ExportSQLData.rar

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

هذا الموضوع مغلق.

مواضيع مشابهة