دخول

**mazentq** · 01-03-20, 08:23 PM

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

كود :

Dim cmd As New OleDbCommand(str, con)

            'فتح الاتصال بمزود البيانات وهى قاعده البيانات

            Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\MSME.mdb;user id=admin;jet oledb:database password=343282"

            Dim newconnection As New OleDbConnection(connectionstring)

            cmd.Connection = newconnection

            cmd.CommandType = CommandType.Text

            'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول

            cmd.CommandText = "insert into DBET ([pName],[Email],[Phone],[ProjectName],[ProjectType],[About],[Photo]) values ('" & _

             nameadd.Text & "','" & emailadd.Text & "','" & phoneadd.Text & _

             "','" & pnameadd.Text & "','" & ptypeadd.Text & "','" & aboutadd.Text & "','" & photoadd.ImageLocation & "') "

            'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال 

            newconnection.Open()

            cmd.ExecuteNonQuery()

            newconnection.Close()

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

كود :

If (DataGridView1.SelectedRows.Count = 0) Then

            MessageBox.Show("يجب تحديد البيانات المراد تعديلها اولا", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Return

        End If

        'كود جلب البيانات

        Dim indx As Integer = DataGridView1.SelectedRows(0).Index

        nameed.Text = DataGridView1(1, indx).Value.ToString()

        phoned.Text = DataGridView1(2, indx).Value.ToString()

        emailed.Text = DataGridView1(3, indx).Value.ToString()

        pnameed.Text = DataGridView1(4, indx).Value.ToString()

        ptypeed.Text = DataGridView1(5, indx).Value.ToString()

        abouted.Text = DataGridView1(6, indx).Value.ToString()

        photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

وده كود حفظ التعديل

كود :

If (String.IsNullOrEmpty(nameed.Text)) Then

            MessageBox.Show("يجب ادخال اسم الصنف قبل الحفظ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Return

        End If

        Dim id As Integer = CInt(DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString())

        Dim str As String = String.Format("update DBET set  pName='{0}', Email='{1}', Phone='{2}', ProjectName='{3}', ProjectType='{4}', About='{5}', Photo='{6}' where ID ={7}", nameed.Text, phoned.Text, emailed.Text, pnameed.Text, ptypeed.Text, abouted.Text, photoed.ImageLocation, id)

        Dim cmd As New OleDbCommand(str, con)

        con.Open()

        cmd.ExecuteNonQuery()

        con.Close()

        MessageBox.Show("تم حفظ التعديل بنجاح")

        LoadDataToDGV()

ودي صورة لواجهة البرنامج للادخال والتعديل

ودي التعديل

وشكرا

**ابو ليلى** · 01-03-20, 09:49 PM

يوجد الكثير من الامثلة في المنتدى فقط ابحث؟؟
امثلة

**mazentq** · 02-03-20, 12:24 AM

(01-03-20, 09:49 PM)ابو ليلى كتب : يوجد الكثير من الامثلة في المنتدى فقط ابحث؟؟
امثلة

شكرا جدا لاهتمامك
بس الامثلة دي مفهيش الطلب الي محتاجو

**alsalamoni** · 02-03-20, 01:16 AM

(01-03-20, 08:23 PM)mazentq كتب : السلام عليكم ورحمة الله وبركاته
عندي مشكلة لما اجي اضيف صورة في قاعدة البيانات كل البيانات بتضاف الا الصورة مش بتتخزن في قاعدة البيانات
وده كود ال insert

كود :

Dim cmd As New OleDbCommand(str, con) 'فتح الاتصال بمزود البيانات وهى قاعده البيانات Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\MSME.mdb;user id=admin;jet oledb:database password=343282" Dim newconnection As New OleDbConnection(connectionstring) cmd.Connection = newconnection cmd.CommandType = CommandType.Text 'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول cmd.CommandText = "insert into DBET ([pName],[Email],[Phone],[ProjectName],[ProjectType],[About],[Photo]) values ('" & _ nameadd.Text & "','" & emailadd.Text & "','" & phoneadd.Text & _ "','" & pnameadd.Text & "','" & ptypeadd.Text & "','" & aboutadd.Text & "','" & photoadd.ImageLocation & "') " 'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال newconnection.Open() cmd.ExecuteNonQuery() newconnection.Close()

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

كود :

If (DataGridView1.SelectedRows.Count = 0) Then MessageBox.Show("يجب تحديد البيانات المراد تعديلها اولا", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If 'كود جلب البيانات Dim indx As Integer = DataGridView1.SelectedRows(0).Index nameed.Text = DataGridView1(1, indx).Value.ToString() phoned.Text = DataGridView1(2, indx).Value.ToString() emailed.Text = DataGridView1(3, indx).Value.ToString() pnameed.Text = DataGridView1(4, indx).Value.ToString() ptypeed.Text = DataGridView1(5, indx).Value.ToString() abouted.Text = DataGridView1(6, indx).Value.ToString() photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

وده كود حفظ التعديل

كود :

If (String.IsNullOrEmpty(nameed.Text)) Then MessageBox.Show("يجب ادخال اسم الصنف قبل الحفظ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If Dim id As Integer = CInt(DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString()) Dim str As String = String.Format("update DBET set pName='{0}', Email='{1}', Phone='{2}', ProjectName='{3}', ProjectType='{4}', About='{5}', Photo='{6}' where ID ={7}", nameed.Text, phoned.Text, emailed.Text, pnameed.Text, ptypeed.Text, abouted.Text, photoed.ImageLocation, id) Dim cmd As New OleDbCommand(str, con) con.Open() cmd.ExecuteNonQuery() con.Close() MessageBox.Show("تم حفظ التعديل بنجاح") LoadDataToDGV()
ودي صورة لواجهة البرنامج للادخال والتعديل

ودي التعديل

وشكرا

غير السطر الخاص بالبحث عن الصورة من

كود :

photoadd.image=image.fromfile(openfiledialog1.filename)

الى

كود :

photoadd.imagelocation=openfiledialog1.filename

**mazentq** · 02-03-20, 09:35 PM

(02-03-20, 01:16 AM)alsalamoni كتب :
(01-03-20, 08:23 PM)mazentq كتب : السلام عليكم ورحمة الله وبركاته
عندي مشكلة لما اجي اضيف صورة في قاعدة البيانات كل البيانات بتضاف الا الصورة مش بتتخزن في قاعدة البيانات
وده كود ال insert

كود :

Dim cmd As New OleDbCommand(str, con) 'فتح الاتصال بمزود البيانات وهى قاعده البيانات Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\MSME.mdb;user id=admin;jet oledb:database password=343282" Dim newconnection As New OleDbConnection(connectionstring) cmd.Connection = newconnection cmd.CommandType = CommandType.Text 'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول cmd.CommandText = "insert into DBET ([pName],[Email],[Phone],[ProjectName],[ProjectType],[About],[Photo]) values ('" & _ nameadd.Text & "','" & emailadd.Text & "','" & phoneadd.Text & _ "','" & pnameadd.Text & "','" & ptypeadd.Text & "','" & aboutadd.Text & "','" & photoadd.ImageLocation & "') " 'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال newconnection.Open() cmd.ExecuteNonQuery() newconnection.Close()

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

كود :

If (DataGridView1.SelectedRows.Count = 0) Then MessageBox.Show("يجب تحديد البيانات المراد تعديلها اولا", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If 'كود جلب البيانات Dim indx As Integer = DataGridView1.SelectedRows(0).Index nameed.Text = DataGridView1(1, indx).Value.ToString() phoned.Text = DataGridView1(2, indx).Value.ToString() emailed.Text = DataGridView1(3, indx).Value.ToString() pnameed.Text = DataGridView1(4, indx).Value.ToString() ptypeed.Text = DataGridView1(5, indx).Value.ToString() abouted.Text = DataGridView1(6, indx).Value.ToString() photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

وده كود حفظ التعديل

كود :

If (String.IsNullOrEmpty(nameed.Text)) Then MessageBox.Show("يجب ادخال اسم الصنف قبل الحفظ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If Dim id As Integer = CInt(DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString()) Dim str As String = String.Format("update DBET set pName='{0}', Email='{1}', Phone='{2}', ProjectName='{3}', ProjectType='{4}', About='{5}', Photo='{6}' where ID ={7}", nameed.Text, phoned.Text, emailed.Text, pnameed.Text, ptypeed.Text, abouted.Text, photoed.ImageLocation, id) Dim cmd As New OleDbCommand(str, con) con.Open() cmd.ExecuteNonQuery() con.Close() MessageBox.Show("تم حفظ التعديل بنجاح") LoadDataToDGV()
ودي صورة لواجهة البرنامج للادخال والتعديل

ودي التعديل

وشكرا

غير السطر الخاص بالبحث عن الصورة من

كود :

photoadd.image=image.fromfile(openfiledialog1.filename)

الى

كود :

photoadd.imagelocation=openfiledialog1.filename

الف شكر الطريقة اشتغلت تمام في ادارج الصورة لقاعدة البيانات بس لو عاوز اعمل جلب للبيانات والصورة في البرنامج علشان لو هعدل فيهم مش راضي

**alsalamoni** · 02-03-20, 09:58 PM

(02-03-20, 09:35 PM)mazentq كتب :
(02-03-20, 01:16 AM)alsalamoni كتب :
(01-03-20, 08:23 PM)mazentq كتب : السلام عليكم ورحمة الله وبركاته
عندي مشكلة لما اجي اضيف صورة في قاعدة البيانات كل البيانات بتضاف الا الصورة مش بتتخزن في قاعدة البيانات
وده كود ال insert

كود :

Dim cmd As New OleDbCommand(str, con) 'فتح الاتصال بمزود البيانات وهى قاعده البيانات Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\MSME.mdb;user id=admin;jet oledb:database password=343282" Dim newconnection As New OleDbConnection(connectionstring) cmd.Connection = newconnection cmd.CommandType = CommandType.Text 'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول cmd.CommandText = "insert into DBET ([pName],[Email],[Phone],[ProjectName],[ProjectType],[About],[Photo]) values ('" & _ nameadd.Text & "','" & emailadd.Text & "','" & phoneadd.Text & _ "','" & pnameadd.Text & "','" & ptypeadd.Text & "','" & aboutadd.Text & "','" & photoadd.ImageLocation & "') " 'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال newconnection.Open() cmd.ExecuteNonQuery() newconnection.Close()

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

كود :

If (DataGridView1.SelectedRows.Count = 0) Then MessageBox.Show("يجب تحديد البيانات المراد تعديلها اولا", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If 'كود جلب البيانات Dim indx As Integer = DataGridView1.SelectedRows(0).Index nameed.Text = DataGridView1(1, indx).Value.ToString() phoned.Text = DataGridView1(2, indx).Value.ToString() emailed.Text = DataGridView1(3, indx).Value.ToString() pnameed.Text = DataGridView1(4, indx).Value.ToString() ptypeed.Text = DataGridView1(5, indx).Value.ToString() abouted.Text = DataGridView1(6, indx).Value.ToString() photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

وده كود حفظ التعديل

كود :

If (String.IsNullOrEmpty(nameed.Text)) Then MessageBox.Show("يجب ادخال اسم الصنف قبل الحفظ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If Dim id As Integer = CInt(DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString()) Dim str As String = String.Format("update DBET set pName='{0}', Email='{1}', Phone='{2}', ProjectName='{3}', ProjectType='{4}', About='{5}', Photo='{6}' where ID ={7}", nameed.Text, phoned.Text, emailed.Text, pnameed.Text, ptypeed.Text, abouted.Text, photoed.ImageLocation, id) Dim cmd As New OleDbCommand(str, con) con.Open() cmd.ExecuteNonQuery() con.Close() MessageBox.Show("تم حفظ التعديل بنجاح") LoadDataToDGV()
ودي صورة لواجهة البرنامج للادخال والتعديل

ودي التعديل

وشكرا

غير السطر الخاص بالبحث عن الصورة من

كود :

photoadd.image=image.fromfile(openfiledialog1.filename)

الى

كود :

photoadd.imagelocation=openfiledialog1.filename

الف شكر الطريقة اشتغلت تمام في ادارج الصورة لقاعدة البيانات بس لو عاوز اعمل جلب للبيانات والصورة في البرنامج علشان لو هعدل فيهم مش راضي

عندك خطا في رقم العمود 6 في السطر

كود :

photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

اتوقع المفروض يكون رقم 7 على اساس العمود موجود ولكن مخفي فيكون

كود :

photoed.ImageLocation = DataGridView1(7, indx).Value.ToString()

**mazentq** · 02-03-20, 10:10 PM

(02-03-20, 09:58 PM)alsalamoni كتب :
(02-03-20, 09:35 PM)mazentq كتب :
(02-03-20, 01:16 AM)alsalamoni كتب :
(01-03-20, 08:23 PM)mazentq كتب : السلام عليكم ورحمة الله وبركاته
عندي مشكلة لما اجي اضيف صورة في قاعدة البيانات كل البيانات بتضاف الا الصورة مش بتتخزن في قاعدة البيانات
وده كود ال insert

كود :

Dim cmd As New OleDbCommand(str, con) 'فتح الاتصال بمزود البيانات وهى قاعده البيانات Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\MSME.mdb;user id=admin;jet oledb:database password=343282" Dim newconnection As New OleDbConnection(connectionstring) cmd.Connection = newconnection cmd.CommandType = CommandType.Text 'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول cmd.CommandText = "insert into DBET ([pName],[Email],[Phone],[ProjectName],[ProjectType],[About],[Photo]) values ('" & _ nameadd.Text & "','" & emailadd.Text & "','" & phoneadd.Text & _ "','" & pnameadd.Text & "','" & ptypeadd.Text & "','" & aboutadd.Text & "','" & photoadd.ImageLocation & "') " 'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال newconnection.Open() cmd.ExecuteNonQuery() newconnection.Close()

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

كود :

If (DataGridView1.SelectedRows.Count = 0) Then MessageBox.Show("يجب تحديد البيانات المراد تعديلها اولا", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If 'كود جلب البيانات Dim indx As Integer = DataGridView1.SelectedRows(0).Index nameed.Text = DataGridView1(1, indx).Value.ToString() phoned.Text = DataGridView1(2, indx).Value.ToString() emailed.Text = DataGridView1(3, indx).Value.ToString() pnameed.Text = DataGridView1(4, indx).Value.ToString() ptypeed.Text = DataGridView1(5, indx).Value.ToString() abouted.Text = DataGridView1(6, indx).Value.ToString() photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

وده كود حفظ التعديل

كود :

If (String.IsNullOrEmpty(nameed.Text)) Then MessageBox.Show("يجب ادخال اسم الصنف قبل الحفظ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If Dim id As Integer = CInt(DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString()) Dim str As String = String.Format("update DBET set pName='{0}', Email='{1}', Phone='{2}', ProjectName='{3}', ProjectType='{4}', About='{5}', Photo='{6}' where ID ={7}", nameed.Text, phoned.Text, emailed.Text, pnameed.Text, ptypeed.Text, abouted.Text, photoed.ImageLocation, id) Dim cmd As New OleDbCommand(str, con) con.Open() cmd.ExecuteNonQuery() con.Close() MessageBox.Show("تم حفظ التعديل بنجاح") LoadDataToDGV()
ودي صورة لواجهة البرنامج للادخال والتعديل

ودي التعديل

وشكرا

غير السطر الخاص بالبحث عن الصورة من

كود :

photoadd.image=image.fromfile(openfiledialog1.filename)

الى

كود :

photoadd.imagelocation=openfiledialog1.filename

الف شكر الطريقة اشتغلت تمام في ادارج الصورة لقاعدة البيانات بس لو عاوز اعمل جلب للبيانات والصورة في البرنامج علشان لو هعدل فيهم مش راضي

عندك خطا في رقم العمود 6 في السطر

كود :

photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

اتوقع المفروض يكون رقم 7 على اساس العمود موجود ولكن مخفي فيكون

كود :

photoed.ImageLocation = DataGridView1(7, indx).Value.ToString()

عملتها 7 بس لما اجي اعمل عرض للبيانات قبل ما اعملها تعديل بتجي الرسالة دي

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

**alsalamoni** · 02-03-20, 10:14 PM

(02-03-20, 10:10 PM)mazentq كتب :
(02-03-20, 09:58 PM)alsalamoni كتب :
(02-03-20, 09:35 PM)mazentq كتب :
(02-03-20, 01:16 AM)alsalamoni كتب :
(01-03-20, 08:23 PM)mazentq كتب : السلام عليكم ورحمة الله وبركاته
عندي مشكلة لما اجي اضيف صورة في قاعدة البيانات كل البيانات بتضاف الا الصورة مش بتتخزن في قاعدة البيانات
وده كود ال insert

كود :

Dim cmd As New OleDbCommand(str, con) 'فتح الاتصال بمزود البيانات وهى قاعده البيانات Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\MSME.mdb;user id=admin;jet oledb:database password=343282" Dim newconnection As New OleDbConnection(connectionstring) cmd.Connection = newconnection cmd.CommandType = CommandType.Text 'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول cmd.CommandText = "insert into DBET ([pName],[Email],[Phone],[ProjectName],[ProjectType],[About],[Photo]) values ('" & _ nameadd.Text & "','" & emailadd.Text & "','" & phoneadd.Text & _ "','" & pnameadd.Text & "','" & ptypeadd.Text & "','" & aboutadd.Text & "','" & photoadd.ImageLocation & "') " 'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال newconnection.Open() cmd.ExecuteNonQuery() newconnection.Close()

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

كود :

If (DataGridView1.SelectedRows.Count = 0) Then MessageBox.Show("يجب تحديد البيانات المراد تعديلها اولا", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If 'كود جلب البيانات Dim indx As Integer = DataGridView1.SelectedRows(0).Index nameed.Text = DataGridView1(1, indx).Value.ToString() phoned.Text = DataGridView1(2, indx).Value.ToString() emailed.Text = DataGridView1(3, indx).Value.ToString() pnameed.Text = DataGridView1(4, indx).Value.ToString() ptypeed.Text = DataGridView1(5, indx).Value.ToString() abouted.Text = DataGridView1(6, indx).Value.ToString() photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

وده كود حفظ التعديل

كود :

If (String.IsNullOrEmpty(nameed.Text)) Then MessageBox.Show("يجب ادخال اسم الصنف قبل الحفظ", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error) Return End If Dim id As Integer = CInt(DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString()) Dim str As String = String.Format("update DBET set pName='{0}', Email='{1}', Phone='{2}', ProjectName='{3}', ProjectType='{4}', About='{5}', Photo='{6}' where ID ={7}", nameed.Text, phoned.Text, emailed.Text, pnameed.Text, ptypeed.Text, abouted.Text, photoed.ImageLocation, id) Dim cmd As New OleDbCommand(str, con) con.Open() cmd.ExecuteNonQuery() con.Close() MessageBox.Show("تم حفظ التعديل بنجاح") LoadDataToDGV()
ودي صورة لواجهة البرنامج للادخال والتعديل

ودي التعديل

وشكرا

غير السطر الخاص بالبحث عن الصورة من

كود :

photoadd.image=image.fromfile(openfiledialog1.filename)

الى

كود :

photoadd.imagelocation=openfiledialog1.filename

الف شكر الطريقة اشتغلت تمام في ادارج الصورة لقاعدة البيانات بس لو عاوز اعمل جلب للبيانات والصورة في البرنامج علشان لو هعدل فيهم مش راضي

عندك خطا في رقم العمود 6 في السطر

كود :

photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

اتوقع المفروض يكون رقم 7 على اساس العمود موجود ولكن مخفي فيكون

كود :

photoed.ImageLocation = DataGridView1(7, indx).Value.ToString()

عملتها 7 بس لما اجي اعمل عرض للبيانات قبل ما اعملها تعديل بتجي الرسالة دي

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

انت عامل العمود نوع صورة DataGridViewImageColumn في حين ان البيانات هي نصية

غير نوع العمود ال DataGridViewTextBoxColumn

**mazentq** · 02-03-20, 10:32 PM

(02-03-20, 10:14 PM)alsalamoni كتب :
(02-03-20, 10:10 PM)mazentq كتب :
(02-03-20, 09:58 PM)alsalamoni كتب :
(02-03-20, 09:35 PM)mazentq كتب :
(02-03-20, 01:16 AM)alsalamoni كتب : غير السطر الخاص بالبحث عن الصورة من

كود :

photoadd.image=image.fromfile(openfiledialog1.filename)

الى

كود :

photoadd.imagelocation=openfiledialog1.filename

الف شكر الطريقة اشتغلت تمام في ادارج الصورة لقاعدة البيانات بس لو عاوز اعمل جلب للبيانات والصورة في البرنامج علشان لو هعدل فيهم مش راضي

عندك خطا في رقم العمود 6 في السطر

كود :

photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

اتوقع المفروض يكون رقم 7 على اساس العمود موجود ولكن مخفي فيكون

كود :

photoed.ImageLocation = DataGridView1(7, indx).Value.ToString()

عملتها 7 بس لما اجي اعمل عرض للبيانات قبل ما اعملها تعديل بتجي الرسالة دي

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

انت عامل العمود نوع صورة DataGridViewImageColumn في حين ان البيانات هي نصية

غير نوع العمود ال DataGridViewTextBoxColumn

مش قصدك علي ده

كود :

       photoed.ImageLocation = DataGridView1(7, indx).Value.ToString()

علشان اخلية بصيغة الصورة ازاي

**alsalamoni**

(02-03-20, 10:32 PM)mazentq كتب :
(02-03-20, 10:14 PM)alsalamoni كتب :
(02-03-20, 10:10 PM)mazentq كتب :
(02-03-20, 09:58 PM)alsalamoni كتب :
(02-03-20, 09:35 PM)mazentq كتب : الف شكر الطريقة اشتغلت تمام في ادارج الصورة لقاعدة البيانات بس لو عاوز اعمل جلب للبيانات والصورة في البرنامج علشان لو هعدل فيهم مش راضي

عندك خطا في رقم العمود 6 في السطر

كود :

photoed.ImageLocation = DataGridView1(6, indx).Value.ToString()

اتوقع المفروض يكون رقم 7 على اساس العمود موجود ولكن مخفي فيكون

كود :

photoed.ImageLocation = DataGridView1(7, indx).Value.ToString()

عملتها 7 بس لما اجي اعمل عرض للبيانات قبل ما اعملها تعديل بتجي الرسالة دي

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

انت عامل العمود نوع صورة DataGridViewImageColumn في حين ان البيانات هي نصية

غير نوع العمود ال DataGridViewTextBoxColumn

مش قصدك علي ده

كود :

photoed.ImageLocation = DataGridView1(7, indx).Value.ToString()
علشان اخلية بصيغة الصورة ازاي

اقصد السطر الموجود في جلب البيانات للتعديل والمذكور في موضوعك

مشروع مع الاكود التي موضوعك من البداية مصمم على اساس يحفظ مسار الصورة وليس الصورة نفسها
وهي الطريقة الصحيحة مع قاعدة بيانات الاكسس

طريقتك افضل لمن يستخدم قاعدة بيانات الاكسس من اجل عدم وصول ملف الاكسس لحده الاقصى
لان الصورة بتستهلك من حجم البيانات بشكل كبير

انت ماشي صح
الا اذا بتغير مشروعك الى قاعدة بيانات SqlServer مثلا

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	مشكلة فى Radiobutton عند وضع صورة فيه	أبو جودة	3	77	15-04-24, 04:31 AM آخر رد: Taha Okla
	اريد اضافة حفظ PDF فى مسار على الهارد- مثال الاستاذ عبدالله الدوسري	new_programer	0	43	13-04-24, 12:59 PM آخر رد: new_programer
	[سؤال] لدي مشكلة عند قراءة ملف نصي من خلال أداة RichBox , حيث تظهر لي علامات استفهام	Mostchar	2	149	07-04-24, 02:51 PM آخر رد: تركي الحلواني
	هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك	خالد كامل1	4	142	24-03-24, 02:00 AM آخر رد: خالد كامل1
	مشكلة في التايمر	assuhimi	3	125	23-03-24, 04:51 PM آخر رد: Taha Okla
	تعديل كود ارسال صورة الى الواتس	new_programer	2	167	21-03-24, 10:07 PM آخر رد: new_programer
	[سؤال] مشكلة اتصال مفتوح	dell	2	171	12-03-24, 09:46 PM آخر رد: dell
	مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017	strongriseman	5	155	12-03-24, 10:37 AM آخر رد: strongriseman
	مشكلة فى جمع عمود فى داتا جريد فيو	احمد خطاب	3	160	06-03-24, 07:49 PM آخر رد: احمد خطاب
	[VB.NET] مشكلة في شكل الفورم	abuyazan	5	303	27-02-24, 09:38 PM آخر رد: aljzazy