كود الاضافه لل Vb 2008 لا يعمل معي

بدأه الفاضي911 في 3 أبريل 2008 · 10 رد · 1,525 مشاهدة · في Microsoft Visual Basic.NET

مشاركة: واتساب X فيسبوك تيليجرام

#13 أبريل 2008 في 15:45 صاحب الموضوع

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

هذه اول مشاركه لي في هذا المنتدى الجميل واتمنى ان تتقبلوني صديق لكم

لا اريد ان اطيل عليكم

سوف اضع لكم مشكلتي واتمنى منكم مساعدتي في حلها

اولا انا مبتدئ في عالم الفيجول بيسك

ثانيا انا استخدم vb 2008 بالاضافه الى Access 2007

قمت بتصميم قاعده البيانات باسم (firstdata.mdb) وتحتوي على 9 جداول وما يهمني الان هو الجدول الاول تحت مسمى maindata

ويحتوي على الحقول الثاليه

number,firstname,fathername,geandfarher,lastname,birthday,dateinwork,id,nameofjo

p,qualification,mobileno

قمت بتصميم الواجهه كما في الصوره التاليه

وقمت بربطها في القاعده كما في الصوره التاليه

الى حد الان لا توجد مشاكل حيث انه عند تشغيل البرنامج يقوم بعرض البيانات

اضفت فورم جديد باسم add1 بحيث اذا تم الضغط على زر الاضافه يقوم بفتح الفورم الجديد للاضافه فهو مشابه للفورم الاول ولكن يحتوي زرين فقط الاول حفظ والثاني الغاء

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

والكود هو كتالي

في القسم الخاص بالتصاريح العامه وضعت هذا الكود

اقتباس
Imports System.Data
Imports System.Data.OleDb

وهذا الكود في public class

اقتباس
Dim frm1 As New Form1

وفي القسم الخاص بالــ private وضعت هذا هذا الكود

اقتباس
Try
Dim savinto As New OleDb.OleDbCommand
Dim constr As String = _
"Provider=Micrsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\firstdata.mdb"
Dim conn As New OleDbConnection(constr)
savinto.Connection = conn
savinto.CommandType = CommandType.Text
savinto.CommandText = "INSERT INTO maindata(number,firstname,fathername,geandfarher,lastname,birthday,dateinwork,id
,nameofjop,qualification,mobileno)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "') "
conn.Open()
savinto.ExecuteNonQuery()
conn.Close()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
Me.Close()
frm1.Show()
Catch ex As Exception
Exit Sub
End Try

وهذه هي مشكلتي كاااااامله واتمنى اني استطعت شرحها لكم بالتفصيل

طلبي هو مساعدتي بتعديل الكود ومعرفه ماهي مشكلته لكي يعمل بالشكل الصحيح

او اذا كان هناك طريقه افضل للربط واكثر مرونه اتمنى شرحهااا لي

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

اخوكم الصغير الفاضي :D

#23 أبريل 2008 في 18:55

اخي الكريم

اعتقد ان الكود يجب ان يتم بالشكل الاتي

Imports System.Data.OleDb
Public Class Form2
Dim frm1 As New Form1

Private Sub Save_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim savinto As New OleDb.OleDbCommand
Dim constr As String = _
"Provider=Micrsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\firstdata.mdb"
Dim conn As New OleDbConnection(constr)
savinto.Connection = conn
savinto.CommandType = CommandType.Text
savinto.CommandText = "INSERT INTO maindata(number,firstname,fathername,geandfarher,lastname,birthday,dateinwork,id,name
ofjop,qualification,mobileno)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "') "
conn.Open()
savinto.ExecuteNonQuery()
conn.Close()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
Me.Close()
frm1.Show()
Catch ex As Exception
Exit Sub
End Try

End Sub

End Class

Imports System.Data

وايضا تاكد من ان التصاريح العامه مثل

System.Data

قد تمت اضافتها الي

Refrences

الخاصه بالمشروع

ايضا تاكد من الاخطاء اللغويه وهي امر شائع

بالتوفيق

تم تعديل هذه المشاركة بواسطة a_pess في 3 أبريل 2008 في 18:56

#33 أبريل 2008 في 20:50

السلام عليكم

كيفك حالك اخوي a_pess

لك كل تقديري واحترام واشكرك على مساعدتي

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

بالاضافه الى انني تاكدت من اسماء الحقول جميعا وذلك عن طريق النسخ واللصق :lol:

اخي العزيز a_pess اتمنى ان تتحملني قليلا حيث انني مبتدئ

لم افهم ما تقصده بالرفرنس

عموما قمت بتصوير الشاشه لعلها تفيد وتكون اوضح من الكتابه

تحيتي لشخصك الكريم

تم تعديل هذه المشاركة بواسطة الفاضي911 في 3 أبريل 2008 في 20:53

#43 أبريل 2008 في 22:06

أوقف Try ثم تابع الأوامر أثناء التنفيذ سطر سطر ستظهر لك المشكلة في أي سطر يقع الخطأ فأتوقع أنه لو لا وجود Try لظهر لك خطأ

جرب

#53 أبريل 2008 في 22:38

السلام عليكم

اشكر لك تفاعلك مع مشكلتي اخوي مصلح وهذا ان دل فانما يدل على معدنك الاصيل في مساعدة اخوانك

قمت بالغاء جمله try كما قلت لي فظهرت لي المشكله في جملة

Catch ex As Exception

قمت بالغائها بهدف التجربه

ثم بعدها قمت بتجربه البرنامج فظهرت لي الرساله التاليه

بنتظار الحل

تحيتي

#63 أبريل 2008 في 23:38

اخي الكريم

بالنظر الي نافذه Solution Explorer وهي تقع علي اليمين في البرنامج كما هو واضح بالصوره اعلاه

ستجد 6 ايقونات في الاعلي

Double click الايقونه الثانيه من اليسار ستفتح لك جميع الملفات تحت مشروعك

اختار Refrences

واضغط يمين الماوس

واضف التصاريح العامه فيها من تحت Framework

تحديدا اضف system.Data

بالتوفيق

#74 أبريل 2008 في 01:05

يعطيك ربي الف عافيه يا استاذي العزيز a_pess

هل تقصد كما في الصوره ؟؟

اذا كان هذا ما تقصد فاني قد اضفتها ولكن ما زالت المشكله موجوده :(

استاذي العزيز اذا كانت طريقتي للربط جيده اتمنى ان تتحملني قليلا وتساعدني في حلها :rolleyes:

اما اذا كان هنالك طريقه افضل من الطريقه المستخدمه؟ ارجوو ارشادي لها.

ولك جزيل الشكر

#84 أبريل 2008 في 04:01

اخي الكريم

لو تستطيع ان تجرب البرنامج علي بيئه اخري غير الفيستا لنعلم اولا اذا كان البرنامج شغال علي الاكس بي مثلا ام لا

لانني عملت مثال شبيه واشتغل عندي وبيحفظ اليبانات جيدا

ما تنساش ان الفيستا بيحتاج

Administrator Privillages

حاول تغيير كود الربط كالاتي

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Application.StartupPath & "\firstdata.mdb ";User Id=admin;Password="

ربما يحتاج البرنامج الي ذلك لكي ييحفظ الملفات

ايضا تاكد ان

Microsoft.Jet.OLEDB.4.0 is registered into your local machine

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

وبالتوفيق

تم تعديل هذه المشاركة بواسطة a_pess في 4 أبريل 2008 في 04:04

#94 أبريل 2008 في 15:32

السلام عليكم

استاذي العزيز

قمت بتجربه ما كتبت لي بس للاسف مافيه فايده :(

#105 أبريل 2008 في 12:18

اخي الكريم

الكود بالشكل التالي اعتقد سوف يحل المشكله

Try
Me.Validate()
Dim SavInto As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\mydata.mdb"
Dim Conn As New OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
savinto.CommandText = "INSERT INTO maindata(number,firstname,fathername,geandfarher,lastname,birthday,dateinwork,id,name
ofjop,qualification,mobileno)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "') "

Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
MsgBox("Update successful")
Me.Close()
frm1.Show()
Catch ex As Exception
MsgBox("Update failed")

Exit Sub
End Try

End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

بالتوفيق

اخوك عمر

#115 أبريل 2008 في 23:31

منين ابوسك يا قمررررررر

يعطيك الف عافيه استاذي عاااااامر اخيراااااا تم حل المشكله على يديكم

جزاك الله الف خير

وجعل ما تفعله في موازين حسناتك

تقبل تحيتي اخوك الصغير

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

Tabstrip لا يعمل معي .. ما السبب ؟0 رد · 16 سبتمبر 2008
الملف الذي امتدادة( rar )لا يعمل معي5 رد · 23 نوفمبر 2003
كود نقل البيانات المحددة في checkedlistbox إلى listbox لا يعمل معي جيدا5 رد · 26 فبراير 2014
كود Transfertext لا يعمل معى4 رد · 22 يوليو 2008
Console لا يعمل معى2 رد · 23 أغسطس 2007
كود ربط حقل في جدول مع الكومبو بكس لا يعمل معي ... وين المشكلة؟؟؟8 رد · 2 يونيو 2006

كود الاضافه لل Vb 2008 لا يعمل معي

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

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