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

بخصوص -كيفية إضافة مجموعة من السجلات إلى جدول بقاعدة بيانات

بدأه vbm في 4 مايو 2008 · 1 رد · 671 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الأخوة الأعزاء

بعد التحية

أريد معرفة كيفية إضافة مجموعة من السجلات فى جدول

بقاعدة بيانات sql server

عن طريق الأمر insert into

وبالكائن command

--------------------------------

مثلا يضيف السجل الأول ثم الثانى وهكذا

-------------------------------

كالكود التاتلى ولكن لأضافة مجموعة من السجلات وليست الحقول لسجل واحد

--------------------------------

 On Error Resume Next
		  Dim SQL As String = "INSERT INTO GENERALBALANCE( GBLN1,GBLN2, GBLN3, GBLN4, GBLN5, GBLN6, GBLN7, GBLN8, GBLN9, GBLN10, GBLN11, GBLN12) VALUES	 ( @GBLN1,@GBLN2, @GBLN3, @GBLN4, @GBLN5, @GBLN6, @GBLN7, @GBLN8, @GBLN9, @GBLN10, @GBLN11, @GBLN12)"
		  Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand
		  With CMD
			  .CommandType = CommandType.Text
			  .Connection = SqlConnection1
			  .Parameters.Add("@GBLN1", SqlDbType.NVarChar).Value = Me.TEXT1.Text.Trim
	 .CommandText = SQL
		  End With
		  If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
		  SqlConnection1.Open()
		  CMD.ExecuteNonQuery()
		  SqlConnection1.Close()

أرجو الرد ولكم جزيل الشكر

تم تعديل هذه المشاركة بواسطة vbm في 4 مايو 2008 في 22:45

أصفق أو لا أصفق فخلفي كتلة شحم تصفق وبعض المساحيق كانت تصفق وجاري يصفق وأسأل .. هل أعجبته الرواية؟ يبحلق ثم يلكز جنبي ويمضي يصفق أصفق أو لا أصفق أمامي كل الرؤوس تصفق وخلفي كل الصفوف تصفق أتى مارد شدني من يدي وتساءل لم لا تصفق تصايح كل الحضور اطردوه تحسست عقلي اطردوه أفقت لنفسي طريداً طريد فصفقت حتى انقطاع الوريد حتى انقطاع الوريد أصفق من أجل ذاك الذي لايصفق

#2

شكرا لقد عرفت الحل

--------------------------------------

 
	 Dim sql As String = "INSERT INTO  loc(loca) VALUES  (@loca)"
		 Dim constr As String = "server=" & srv & "\SQLEXPRESS;" _
		 & "database=Aadmin;integrated security=true"


		 mcon.ConnectionString = constr
		 Dim mcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand
		 mcmd.CommandType = CommandType.Text
		 mcmd.Connection = mcon
		 Dim x As String
		 Try
			 mcon.Open()

			 For Each x In Me.loc_list.Items	 ' list box


				 mcmd.Parameters.Add("@loca", SqlDbType.NVarChar).Value = x.Trim
				 mcmd.CommandText = sql





				 mcmd.ExecuteNonQuery()
				 <font color="#ff0000">mcmd.Parameters.Clear()	 ' الحل</font>

			 Next


			 mcon.Close()
		 Catch exsql As SqlClient.SqlException
			 MsgBox(exsql.Message)
		 Catch ex As Exception

		 End Try

	 End Sub

أصفق أو لا أصفق فخلفي كتلة شحم تصفق وبعض المساحيق كانت تصفق وجاري يصفق وأسأل .. هل أعجبته الرواية؟ يبحلق ثم يلكز جنبي ويمضي يصفق أصفق أو لا أصفق أمامي كل الرؤوس تصفق وخلفي كل الصفوف تصفق أتى مارد شدني من يدي وتساءل لم لا تصفق تصايح كل الحضور اطردوه تحسست عقلي اطردوه أفقت لنفسي طريداً طريد فصفقت حتى انقطاع الوريد حتى انقطاع الوريد أصفق من أجل ذاك الذي لايصفق

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…