السلام عليكم
نرجوا رفع المزيد من الدروس يا اخ خليفة نظري او عملي ولعله المانع خير
جزاك الله خيرا
على الجديد
السلام عليكم
نرجوا رفع المزيد من الدروس يا اخ خليفة نظري او عملي ولعله المانع خير
جزاك الله خيراً
Email: rOcK.Dash@HoTMaiL.CoM
اللهم يسر له امره واغفر له ذنبه واهديه للحق وانعمه برفقة نبيك امين
السلام عليكم
انا ملاحظ ان استاذ خليفة مش بيدخل او بيرد بقاله فترة يارب يكون بخير
شكرا لك يا استاذ خليفة و بارك الله لك وزادك فى العلم
سؤال يا بشمهندس خليفة بس لو سمحت عايز رد سريع هل ال.net تدعم قواعد بيانات interbase
يا بشمهندس انا اسف بس عندي سؤال في ال vb.net كنت عملت صفحة موقع asp.net وربطها بقاعدة بيانات صغيرة كده واما اعمل run يحمل اول عميل متسجل في قاعدة البيانات عايز اعمل كود للتنقل بين السجلات ومش عارف بقى يومين دايخ ساعدني وجزاك الله خيرا
هو دا الكود بتاع البرنامج
Imports System.Data
Imports System.Data.OleDb
PartialClass _Default
Inherits System.Web.UI.Page
Dim ConStr AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\orga-soft\Desktop\mydata.mdb;Persist Security Info=False"
Dim Conn AsNew OleDbConnection(ConStr)
Dim dataset1 AsNew DataSet
Dim SQLstr AsString = "select*from Table1"
ProtectedSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
Conn.Open()
Dim DataAdapter1 AsNew OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(dataset1, "Table1")
Conn.Close()
TextBox1.Text = DataBinder.Eval(dataset1, "Tables[Table1].DefaultView.[0].name")
TextBox2.Text = DataBinder.Eval(dataset1, "Tables[Table1].DefaultView.[0].city")
TextBox3.Text = DataBinder.Eval(dataset1, "Tables[Table1].DefaultView.[0].mobile")
EndSub
لحد هنا الكود تمام ارجوك ما تضحكش مني انا عارف انها حاجه بسيطة
ProtectedSub previous_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click
Dim i AsObject
i = DataBinder.Eval(dataset1, "Tables[Table1].DefaultView.[0]")
If i IsNot 9 Then
TextBox1.Text = DataBinder.Eval(dataset1, "Tables[Table1].DefaultView.[i].name")
TextBox2.Text = DataBinder.Eval(dataset1, "Tables[Table1].DefaultView.[i].city")
TextBox3.Text = DataBinder.Eval(dataset1, "Tables[Table1].DefaultView.[i].mobile")
EndIf
i = i + 1
EndSub
EndClass
جزاك الله خيرا مستر خليفة
شرح المهندس احمد قمة الروعة ومنتظرين باقي الشرح ان شاء الله
من لم يستطع صعود الجبال يعش ابد الدهر بين الحفر
انا متأسف جدا على عدم ردي خلال الفترة الماضية لاني كنت مشغول وان شاء الله هرفع دروس خلال الاسبوع ده
والله فعلا أنا كتير بمر باخد اللي أنا عايزه وبدعي لصاحبه وخلاص لكن بجد موضوعك( والمنتدي اللي أزهلني من ساعة معرفته) أجبرني أني أرد وأدعيلك وأدعي للقائمين علي المنتدي بجد حاجه تفرح وبجد بما أتاني الله من علم أنا به فقير جنب عطاءكم البزخ جعله الله في ميزان حسناتك ورزقك الدنيا بخيرها ورزقك الزوجه الصالحه وراحه البال وبركة العمر والمال وراحه والديك ورضائهم عنك ورضاء ربك عنك وفي الأخرة رزقك الجنة وخير منها لقيا الله لك ولأمة محمد أجمعين وبخاصة القائمين علي هذا المنتدي وأمثاله وبجد يا أخي أنا يمنعني عن المشاركه الفعليه في هذا الصرح إني في الجيش دعواتكم ليا يا أخواتي
بارك الله فيك يا باش مهندس
بحمد الله تم اضافة درس button properties من دروس استاذ احمد فوزي جديد نزلت في 27/1/2010
جزاك الله كل خير و جعله الله فى ميزان حسناتك حضرتك و الاستاذ احمد فوزى و كل من ساهم فى هذا المنتدى
المفضلات