إنضمامك إلي منتديات استراحات زايد يحقق لك معرفة كل ماهو جديد في عالم الانترنت ...

انضم الينا
استراحات زايد الصفحة الرئيسية

         :: تفسير حلم الزعل (آخر رد :نوران نور)       :: تفسير الاحلام الذهب (آخر رد :نوران نور)       :: رؤية صعود الدرج في المنام للعزباء (آخر رد :نوران نور)       :: كيف تفسر حلم الرجل المتزوج بالاستعداد للزواج؟ (آخر رد :نوران نور)       :: رؤية الثعبان الكوبرا في المنام (آخر رد :نوران نور)       :: قهوجي جده صبابين قهوه قهوجيين 0539307706 (آخر رد :ksa ads)       :: تفسير أحلام المطر عند ابن شيرين في المنام (آخر رد :نوران نور)       :: تداول الأسهم (آخر رد :محمد العوضي)       :: أهمية التداول والأسهم: (آخر رد :محمد العوضي)       :: ولي العهد في المنام (آخر رد :نوران نور)      

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 05-17-2009, 06:20 PM
عضو ماسي
بيانات محروم.كوم
 رقم العضوية : 503
 تاريخ التسجيل : Dec 2007
الجنس : female
علم الدوله :
 المشاركات : 2,100,612
عدد الـنقاط :3341
 تقييم المستوى : 2139

السلام عليكم و رحمة الله و بركاته
ســــــاعدوني في هذي الاكواد

لدي مجموعة اسئله في فيجوال بيسك
خاصة في الاكواد التابعه لقاعدة البيانات

1- ماهو الخطأ في كود التحديث (التعديل) هذا !!

Private Sub Button5_Click(ByVal sender As System...

If TextBox2.Text = "" Then
MsgBox("أدخل رقم العميل الذي تريد تعديل بياناته", MsgBoxStyle.Critical)
Else
Dim con1 As New OleDb.OleDbConnection
con1.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=nedam.mdb")

Dim updatecommand As New OleDb.OleDbCommand
updatecommand.CommandText = " update gnf set name_client = '" & TextBox1.Text & "',num_client = " & TextBox2.Text & ",nationality = '" & TextBox3.Text & "')"

updatecommand.Connection = con1

con1.Open()

updatecommand.ExecuteNonQuery()

con1.Close()
MsgBox("تم تعديل سجل بنجاح")

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If

End Sub
*****************************************

2- لدي كود البحث لقاعدة بيانات لكن يتم عرض البيانات في DataGrid1
و أنا اريد عرضه في مربعات النص الموجوده في الفورما

وهذا هو الكود الذي لدي

Private Sub Button3_Click(ByVal ......

If TextBox2.Text = "" Then
MsgBox("أدخل رقم العميل ليتم البحث عن بياناته", MsgBoxStyle.Information)
Else
Dim con As New OleDb.OleDbConnection

Dim dsperson As New DataSet

Dim sql2 As String = "select * from gnf where num_client = " & TextBox2.Text & " "

con.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=nedam.mdb ")
Dim da As New OleDb.OleDbDataAdapter(sql2, con)


da.Fill(dsperson, "table2")
DataGrid1.DataSource = dsperson.Tables("table2")
End If
End Sub
*****************************
3- السؤال الاخير
انا اريد عندما يكتب المستخدم جميع بياناته على فورم1 مثلا
وينقر على زر(اوكي)تظهر له فورم2 مكتوب فيها بعض البيانات التي كتبها
فما هو الكود الذي اضعه على الاداه في فورم2 بحيث
يستقبل البيانات التي كتبها المستخدم من فورم1

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

^
^
__DEFINE_LIKE_SHARE__
رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة


المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
استفسار الله يعطيكم العافيه محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 04-27-2010 12:10 AM
استفسار ومساعدة منك الله يعطيكم العافيه محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 04-26-2010 03:10 AM
طلب يااعضاء الله يعطيكم العافيه محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 04-22-2010 11:30 PM
سوال الله يعطيكم العافيه محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 04-20-2010 12:50 AM
[طلب] بنر عااااجل الله يعطيكم العافيه محروم.كوم منتدى أخبار المواقع والمنتديات العربية والأجنبية 0 05-18-2009 07:10 PM


الساعة الآن 06:35 PM


Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Content Relevant URLs by vBSEO 3.5.2 TranZ By Almuhajir

RSS RSS 2.0 XML MAP HTML