السلام عليكم و رحمة الله و بركاته
لما باجي افظ المدخالات في الاكسس مبيحفظش و مبيديش اي خطأ
كود :
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]
السلام عليكم اخي الكريم
تفضل الكود بعد التعديل عليه
كود :
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]
اخي هذه هي حملة الاتصال التي انت عرفتها سابقا في برنامجك
والخطأ يقول لاوجود لهده غير منشأة
عد اليها وتأكد منها فربما تكون على غير هذه الشكل او احد هذه الاشكال (Con او Conn او cn او غير ذلك)
ضع جملة الاتصال للتأكد منها
كود الاتصال بقاعدة البيانات المحددة
كود :
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
السلام عليكم
اخي اذا كان اسم قاعدة البيانات لديك هو 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 باسم قاعدة البيانات التي لديك
بالمناسبة لديك اخطاء يرجى مراجعتها مثلا
تفتح الاتصال ثم لاتغلقه او تغلق الاتصال وانت لم تفتحه كما في كود الحفظ وربما هناك امور اخرى في اكواد اخرى
ستحتاج الى تعدبلات اخرى في الاكواد
اذا كان مشروعك صغير ارفقه ليصار الى التعديل
(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 و غيره من اليوزر
اخي مشروعك انت ادرى كبف قمت ببرمجته
المشكلة ببساطة كود الحفظ يحاول فتح قاعدة البيانات عن طريق جملة الاتصال conn9 وهذا غير متاح كونك وضعته في
Sub read_data(ByVal xxxx As String)
لذلك يجب اما مناداة الصب ليقوم بالفتح او ان تقوم باخراج جملة الاتصال الى خارج الصب ارجو ان تكون قد اتضحت الامور لديك
بدل كود conn9.open() قم باستدعاء الصب وضع بين القوسين اسم قاعدة البيانات التي تدخل بها هكذا
كود :
read_data(اسم قاعدة البيانات)
(26-08-19, 08:57 PM)ابراهيم ايبو كتب : [ -> ]اخي مشروعك انت ادرى كبف قمت ببرمجته
المشكلة ببساطة كود الحفظ يحاول فتح قاعدة البيانات عن طريق جملة الاتصال conn9 وهذا غير متاح كونك وضعته في
Sub read_data(ByVal xxxx As String)
لذلك يجب اما مناداة الصب ليقوم بالفتح او ان تقوم باخراج جملة الاتصال الى خارج الصب ارجو ان تكون قد اتضحت الامور لديك
بدل كود conn9.open() قم باستدعاء الصب وضع بين القوسين اسم قاعدة البيانات التي تدخل بها هكذا
كود :
read_data(اسم قاعدة البيانات)
لا يمكن مناداة الصب لان كل قاعدة بيانات بأسم غير الاخري
ولا يمكن ان اقوم باخراج جملة الاتصال الى خارج الصب لانها مربوطة ب الصب
اخي جملة الحفظ تبحث عن جملة الاتصال لتقوم بعملية الحفظ
كيف برمجت جمل الاتصال هذا شأنك المهم هي مطلوبة لااستطيع التكهن بمشروعك
جرب كود الحفظ مع قاعدة البيانات على مشروع جديد وستعرف انه سليم اولا
دمت بخير
