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

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

         :: massage jeddah home service (آخر رد :رودى طه)       :: اخصائية مساج جدة 0547623402 (آخر رد :رودى طه)       :: افضل انواع ستاند ملابس,ارخص اسعار ستاند ملابس (آخر رد :بوابة الصين العربية)       :: شراء معدات مطاعم مستعملة بالطائف (آخر رد :aboshady)       :: شراء مكيفات مستعملة بالطائف (آخر رد :aboshady)       :: شراء اجهزة كهربائية مستعملة بالطائف (آخر رد :aboshady)       :: شراء سكراب بالطائف (آخر رد :aboshady)       :: شراء الاثاث المستعمل بالطائف (آخر رد :aboshady)       :: شراء الاثاث المستعمل بمكة (آخر رد :aboshady)       :: شراء مكيفات مستعملة بمكة (آخر رد :aboshady)      

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

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

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

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


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


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

RSS RSS 2.0 XML MAP HTML