كيفية حفظ البيانات الى قاعدة البيانات باستخدام Rows.add

و عليكم السلام و رحمة الله تعالى و بركاته...

هناك خطأ في نوع القيمة الممررة إلى أحد الحقول. الحقل ينتظر قيمة من نوع Integer و القيمة الممررة إليه أغلب الظن String.

هذا الكود, المفروض أنه ينفذ وقت تحميل الفورم أي في الحدث Load :

		Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\Stores.mdb"
		Dim conn As New OleDbConnection(ConStr)
		Dim MyDataSet As New DataSet
		Dim sql As String = "select * from CartonMove"
		Dim AdapterSave As New OleDbDataAdapter(sql, conn)
		AdapterSave.Fill(MyDataSet, "CartonMove")

مع تعريف MyDataSet و AdapterSave على مستوى الفورم و ليس داخل الدالة.

هذا السطر لا فائدة من وجوده :

Dim cmd As New OleDbCommandBuilder(AdapterSave)

السلام عليكم

اخي العزيز محمد رضى

سوف ارفق لك ملف المشروع كامل والفورم المراد العمل علية هو ClassMove

لاني بصراحة عجزت فيه

كما اود منك طلباً لا أمراً ان تريني كيفية ربط Combobox بجدول في قاعدة البيانات بدل من كتابة قائمة في الخاصية Collection

وشكراً

Stores.rar

السلام عليكم شباب

وجد حلاً في استخدام insert into وزبط معاي

ولكني كنت اود تطوير مهراتي في ايجاد خل بطريقة اخرى وهي الموجودة في السؤال

كما انني لم استطع ربط ComboBox بحقل مت قاعدة البيانات بحيث تكون قيم ComboBox محملة من الحقل

اقتباس

كما انني لم استطع ربط ComboBox بحقل مت قاعدة البيانات بحيث تكون قيم ComboBox محملة من الحقل

بما أني لم أستطع فتح برنامجك المرفق , وضعت هذا المثال لربط الـ combobox ..

cmd = New OleDbCommand
	  cmd.CommandType = CommandType.Text
	  cmd.CommandText = "SELECT * from student"
	  cmd.Connection = con

	  Dim da As New OleDbDataAdapter(cmd)
	  Dim DS As New DataSet
	  Try
		 da.Fill(DS, "student")
	  Catch ex As OleDbException
		 MsgBox(ex.ToString, MsgBoxStyle.OkOnly, "Exception")
		 Exit Sub
	  End Try
	  With cbo
			.DataSource = DS.Tables("student")
			.DisplayMember = "Name"
			.ValueMember = "ID"
	  End With

أتمنى يكون المطلوب ..

وبالتوفيق ,

شكراً لكي اختي العزيزة

طبعاً استفدت من حل الاخت إشراقة فــجــر

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

 ' دالة لتحميل البيانات من قاعدة البيانات الى ComboBox</P> 
	Public Sub ComboBoxLoad()
		Try
			conn = New OleDbConnection(ConStr)
			MyDataSet = New DataSet
			Dim sql As String = "SELECT * FROM Classes_Types"
			Dim Cmd As New OleDbCommand(sql, conn)</P> 
			Dim AdapterSave As New OleDbDataAdapter(Cmd)</P> 
			AdapterSave.Fill(MyDataSet, "Classes_Types")
			ComboBox1.DataSource = MyDataSet.Tables("Classes_Types")
			ComboBox1.DisplayMember = "Name_Class"</P> 
		Catch ex As OleDbException
			MsgBox(ex.ToString, MsgBoxStyle.OkOnly, "Exception")
		End Try
	End Sub

 ' دالة لتحميل البيانات من قاعدة البيانات الى ComboBox

	Public Sub ComboBoxLoad()
		Try
			conn = New OleDbConnection(ConStr)
			MyDataSet = New DataSet
			Dim sql As String = "SELECT * FROM Classes_Types"
			Dim Cmd As New OleDbCommand(sql, conn)

			Dim AdapterSave As New OleDbDataAdapter(Cmd)

			AdapterSave.Fill(MyDataSet, "Classes_Types")
			ComboBox1.DataSource = MyDataSet.Tables("Classes_Types")
			ComboBox1.DisplayMember = "Name_Class"

		Catch ex As OleDbException
			MsgBox(ex.ToString, MsgBoxStyle.OkOnly, "Exception")
		End Try
	End Sub