المشاركات : 57
المواضيع 12
الإنتساب : Aug 2019
السمعة :
2
الشكر: 11
تم شكره 57 مرات في 32 مشاركات
26-08-19, 03:15 PM
(آخر تعديل لهذه المشاركة : 26-08-19, 03:18 PM {2} بواسطة SaedAmer.)
السلام عليكم و رحمة الله و بركاته
لما باجي افظ المدخالات في الاكسس مبيحفظش و مبيديش اي خطأ
كود :
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Try
cmd9.CommandText = "INSERT INTO mmm([Cient Name], [FaceBook], [Client Number], [Address], [Details], [Feedback], [Code])VALUES(@Cient Name, @FaceBook, @Client Number, @Address, @Details, @Feedback, @Code)"
cmd9.Parameters.AddWithValue("@Cient Name", TextBox1.Text)
cmd9.Parameters.AddWithValue("@FaceBook", TextBox2.Text)
cmd9.Parameters.AddWithValue("@Client Number", TextBox3.Text)
cmd9.Parameters.AddWithValue("@Address", TextBox4.Text)
cmd9.Parameters.AddWithValue("@Details", TextBox5.Text)
cmd9.Parameters.AddWithValue("@Feedback", TextBox6.Text)
cmd9.Parameters.AddWithValue("@Code", Date.Now)
'cmd9.ExecuteNonQuery()
conn9.Close()
Me.Hide()
CRM_Form.DataGridView1.Show()
Catch ex As Exception
MsgBox("فشل في قراءة البيانات")
End Try
End Sub
[/code]
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
السلام عليكم اخي الكريم
تفضل الكود بعد التعديل عليه
كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cmd9 As New OleDbCommand
Try
Dim sql As String = "INSERT INTO mmm([Cient Name], [FaceBook], [Client Number], [Address], [Details], [Feedback], [Code])VALUES(@Cient Name, @FaceBook, @Client Number, @Address, @Details, @Feedback, @Code)"
cmd9 = New OleDbCommand(sql, conn9)
cmd9.Parameters.AddWithValue("@Cient Name", TextBox1.Text)
cmd9.Parameters.AddWithValue("@FaceBook", TextBox2.Text)
cmd9.Parameters.AddWithValue("@Client Number", TextBox3.Text)
cmd9.Parameters.AddWithValue("@Address", TextBox4.Text)
cmd9.Parameters.AddWithValue("@Details", TextBox5.Text)
cmd9.Parameters.AddWithValue("@Feedback", TextBox6.Text)
cmd9.Parameters.AddWithValue("@Code", Date.Now)
conn9.open()
cmd9.ExecuteNonQuery()
conn9.Close()
Catch ex As Exception
MsgBox("فشل في قراءة البيانات")
End Try
MsgBox("تم الحفظ بنجاح")
Me.Hide()
CRM_Form.DataGridView1.Show()
End Sub
[/code]
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 57
المواضيع 12
الإنتساب : Aug 2019
السمعة :
2
الشكر: 11
تم شكره 57 مرات في 32 مشاركات
ده الخطأ الي بيظهر
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
26-08-19, 06:50 PM
(آخر تعديل لهذه المشاركة : 26-08-19, 06:51 PM {2} بواسطة ابراهيم ايبو.)
اخي هذه هي حملة الاتصال التي انت عرفتها سابقا في برنامجك
والخطأ يقول لاوجود لهده غير منشأة
عد اليها وتأكد منها فربما تكون على غير هذه الشكل او احد هذه الاشكال (Con او Conn او cn او غير ذلك)
ضع جملة الاتصال للتأكد منها
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 57
المواضيع 12
الإنتساب : Aug 2019
السمعة :
2
الشكر: 11
تم شكره 57 مرات في 32 مشاركات
كود الاتصال بقاعدة البيانات المحددة
كود :
Public Constr9 As String
Public conn9 As New OleDbConnection(Constr9)
'Public cmd9 As OleDbCommand = conn9.CreateCommand
Public adapt9 As New OleDbDataAdapter
Public ddda As DataTable
Public save_user As OleDbCommandBuilder
Public ds9 As New DataSet
Public BS9 As New BindingSource
Public Sub read_data(ByVal xxxx As String)
Try
Constr9 = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & xxxx
conn9.ConnectionString = Constr9
conn9.Open()
ds9.Clear()
Dim str9 As String = "SELECT * FROM mmm"
'تعريف كائن وفق الأستعلام والأتصال'
adapt9 = New OleDbDataAdapter(str9, conn9)
'ملئ الدتا ست بالبيانات'
adapt9.Fill(ds9, "mmm")
'سحب البينات من الدتا ست'
BS9.DataSource = ds9
BS9.DataMember = "mmm"
CRM_Form.DataGridView1.DataSource = ds9.Tables(0)
Catch ex As Exception
MsgBox("فشل في قراءة البيانات")
End Try
End Sub
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
26-08-19, 08:20 PM
(آخر تعديل لهذه المشاركة : 26-08-19, 08:22 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم
اخي اذا كان اسم قاعدة البيانات لديك هو xxxx فيجب ان تكون xxxx.mdb ضع هذا الكود لوحده في الاعلى بعد Public Class Class1
كود :
Public conn9 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxx.mdb;persist security info=false;")
وان كان غير ذلك استبدل xxxx باسم قاعدة البيانات التي لديك
بالمناسبة لديك اخطاء يرجى مراجعتها مثلا
تفتح الاتصال ثم لاتغلقه او تغلق الاتصال وانت لم تفتحه كما في كود الحفظ وربما هناك امور اخرى في اكواد اخرى
ستحتاج الى تعدبلات اخرى في الاكواد
اذا كان مشروعك صغير ارفقه ليصار الى التعديل
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 57
المواضيع 12
الإنتساب : Aug 2019
السمعة :
2
الشكر: 11
تم شكره 57 مرات في 32 مشاركات
(26-08-19, 08:20 PM)ابراهيم ايبو كتب : السلام عليكم
اخي اذا كان اسم قاعدة البيانات لديك هو xxxx فيجب ان تكون xxxx.mdb ضع هذا الكود لوحده في الاعلى بعد Public Class Class1
كود :
Public conn9 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxx.mdb;persist security info=false;")
وان كان غير ذلك استبدل xxxx باسم قاعدة البيانات التي لديك
بالمناسبة لديك اخطاء يرجى مراجعتها مثلا
تفتح الاتصال ثم لاتغلقه او تغلق الاتصال وانت لم تفتحه كما في كود الحفظ وربما هناك امور اخرى في اكواد اخرى
ستحتاج الى تعدبلات اخرى في الاكواد
اذا كان مشروعك صغير ارفقه ليصار الى التعديل
الكود حق الاتصال هو عبارة عن ان كل مستخدم ليه قاعدة بيانات خاصة بيه ف لما اسجل دخول مثلا ب test يفتح قاعدة البيانات الي اسمها test و غيره من اليوزر
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
26-08-19, 08:57 PM
(آخر تعديل لهذه المشاركة : 26-08-19, 08:58 PM {2} بواسطة ابراهيم ايبو.)
اخي مشروعك انت ادرى كبف قمت ببرمجته
المشكلة ببساطة كود الحفظ يحاول فتح قاعدة البيانات عن طريق جملة الاتصال conn9 وهذا غير متاح كونك وضعته في
Sub read_data(ByVal xxxx As String)
لذلك يجب اما مناداة الصب ليقوم بالفتح او ان تقوم باخراج جملة الاتصال الى خارج الصب ارجو ان تكون قد اتضحت الامور لديك
بدل كود conn9.open() قم باستدعاء الصب وضع بين القوسين اسم قاعدة البيانات التي تدخل بها هكذا
كود :
read_data(اسم قاعدة البيانات)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
المشاركات : 57
المواضيع 12
الإنتساب : Aug 2019
السمعة :
2
الشكر: 11
تم شكره 57 مرات في 32 مشاركات
(26-08-19, 08:57 PM)ابراهيم ايبو كتب : اخي مشروعك انت ادرى كبف قمت ببرمجته
المشكلة ببساطة كود الحفظ يحاول فتح قاعدة البيانات عن طريق جملة الاتصال conn9 وهذا غير متاح كونك وضعته في
Sub read_data(ByVal xxxx As String)
لذلك يجب اما مناداة الصب ليقوم بالفتح او ان تقوم باخراج جملة الاتصال الى خارج الصب ارجو ان تكون قد اتضحت الامور لديك
بدل كود conn9.open() قم باستدعاء الصب وضع بين القوسين اسم قاعدة البيانات التي تدخل بها هكذا
كود :
read_data(اسم قاعدة البيانات)
لا يمكن مناداة الصب لان كل قاعدة بيانات بأسم غير الاخري
ولا يمكن ان اقوم باخراج جملة الاتصال الى خارج الصب لانها مربوطة ب الصب
المشاركات : 2,061
المواضيع 49
الإنتساب : Oct 2017
السمعة :
538
الشكر: 10647
تم شكره 5322 مرات في 2095 مشاركات
اخي جملة الحفظ تبحث عن جملة الاتصال لتقوم بعملية الحفظ
كيف برمجت جمل الاتصال هذا شأنك المهم هي مطلوبة لااستطيع التكهن بمشروعك
جرب كود الحفظ مع قاعدة البيانات على مشروع جديد وستعرف انه سليم اولا
دمت بخير
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
|