مجموعه اكواد لاغنى عنها داخل الفيجوال بيسيك

[Golden Man]

http://upload.traidnt.net/upfiles/7Cd67654.gif

http://upload.traidnt.net/upfiles/zg667745.gif
السلام عليكم ورحمه الله وبركاته

احب اعتذر فى البدايه لكل اعضاء الاكاديميه
عن غياب مشاركاتى لفتره طويله
ونبدأ مع بعض موضوع هام لمستخدمين الفيجوال بيسيك

( مجموعه اكواد اساسيه وهامه فى اى مشروع )
http://upload.traidnt.net/upfiles/3Vd71639.gif

http://upload.traidnt.net/upfiles/rO273955.gif


اولا : الاكواد فى استخدام الاداه Data control



http://upload.traidnt.net/upfiles/q6t74053.gif

1- كود مفتاح http://upload.traidnt.net/upfiles/VC573209.gif

Data1.Recordset.AddNew

2- كود مفتاح http://upload.traidnt.net/upfiles/4a373282.gif

Data1.Recordset.Update
MsgBox "saved"


3- كود مفتاح http://upload.traidnt.net/upfiles/Oj373326.gif

Data1.Recordset.Delete
MsgBox "Deleted"

4- كود مفتاح http://upload.traidnt.net/upfiles/29y73630.gif

Data1.Recordset.MoveFirst

5- كود مفتاح http://upload.traidnt.net/upfiles/78p73666.gif

Dim x As String
X= inputbox ("Enter Name")
Data1.Recordset.FindFirst " Name =' " + x + " ' "
If Data1.Recordset.NoMatch Then
MsgBox "Not Found"
Exit Sub
End If


6- كود مفتاح http://upload.traidnt.net/upfiles/Mlc73706.gif

Unload Me


http://upload.traidnt.net/upfiles/yaN71462.gif


ثانيا : الاكواد باستخدام الاداه Ado Data Control

http://upload.traidnt.net/upfiles/q6t74053.gif

1- كود مفتاح http://upload.traidnt.net/upfiles/VC573209.gif

Adodc1.Recordset.AddNew

2- كود مفتاح http://upload.traidnt.net/upfiles/4a373282.gif

Adodc1.Recordset.Update
Msgbox "Saved"
K
3- كود مفتاح http://upload.traidnt.net/upfiles/Oj373326.gif

Adodc1.Recordset.Delete
MsgBox "Deleted"
f
4- كود مفتاح http://upload.traidnt.net/upfiles/29y73630.gif

Adodc1.Recordset.MoveFirst

5- كود مفتاح http://upload.traidnt.net/upfiles/78p73666.gif

Dim x As String
x = InputBox("Enter Name")
Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find " name=' " + x + " ' "

If Adodc1.Recordset.EOF Then
MsgBox "Not Found"
Exit Sub
End If

6- كود مفتاح http://upload.traidnt.net/upfiles/Mlc73706.gif

Unload Me

http://upload.traidnt.net/upfiles/i3574229.gif

WAIT MORE
http://upload.traidnt.net/upfiles/h4s74146.gif

http://upload.traidnt.net/upfiles/Ix174361.gif
http://upload.traidnt.net/upfiles/XmA74409.gif
http://upload.traidnt.net/upfiles/hQC74465.gif

http://upload.traidnt.net/upfiles/MqQ75227.gif

[Coderg]

أولا ألف مليون ترحيب لعودة المبدع استاذنا استاذ Golden Man
وثانيا كعادة مواضيعك لاتستحق الا التقيم واحلى خمس نجوم لنجم النجوم وجارى التطبيق

[نور]

ربنا يكرمك

و عود حميد

من طول الغيبات جاب الغنايم

يستحق التقييم

[Golden Man]

أولا ألف مليون ترحيب لعودة المبدع استاذنا استاذ Golden Man
وثانيا كعادة مواضيعك لاتستحق الا التقيم واحلى خمس نجوم لنجم النجوم وجارى التطبيق


ربنا يكرمك

و عود حميد

من طول الغيبات جاب الغنايم

يستحق التقييم


اولا انت اللى استاذنا يا ابو حميد
وشكرا ليك يا معلم والف شكر ليكى يا نور ويارب افضل عند حسن ظنكوا

http://upload.traidnt.net/upfiles/NMP08114.gif

[Diesel]

اهلا وسهلا استاذنا بعودتك
وتسلم علي الموضوع الرائع

[Golden Man]

اهلا وسهلا استاذنا بعودتك
وتسلم علي الموضوع الرائع

تسلم يا غالى ده انت اللى استاذنا