14-03-14, 06:03 PM
افكر احذف الالتميت واثبت الاكسبرس واشوف كيف الشغل فيه
14-03-14, 06:06 PM
لا تحذفه لأنه نفس الشي الفرق في عمل القروبات وبعض الادوات المكمله
14-03-14, 06:07 PM
الاكسبرس ميزته مجاني وهو شخصي بالمره مافيه مشاركة مشاريع
14-03-14, 07:15 PM
حذفت الالتميت وثبت الاكسبرس وشغلت المثال واشتغل...
14-03-14, 07:37 PM
انا سويت مشروع جديد ونسخت مكونات مثالك الى المشروع الجديد بس الكود طويل وحاولت استخلص منه ما يخص التكست بوكس1 ولكن وجدت صعوبه هل من الممكن ان تستخلص لي الكود الخاص بال تكست بوكس1
يعني تستبعد من المثال التكست بوكس 2 والداتا قريد والزرار
تحياتي لك
يعني تستبعد من المثال التكست بوكس 2 والداتا قريد والزرار
تحياتي لك
14-03-14, 07:49 PM
إقتباس :يعني تستبعد من المثال التكست بوكس 2 والداتا قريد والزرارطيب ابشر
ان ماسبقني احد اجهز المثال وانسخ الكود باذن الله
14-03-14, 08:10 PM
(14-03-14, 07:49 PM)سعود كتب : [ -> ]إقتباس :يعني تستبعد من المثال التكست بوكس 2 والداتا قريد والزرارطيب ابشر
ان ماسبقني احد اجهز المثال وانسخ الكود باذن الله
جعل عمرك طويل اتعبتك معي اليوم
14-03-14, 08:18 PM
شوف اخوي عدلت على المثال بحيث نستخدم الزر Enter للتحقق والادخال ايضا حذفت مربع النص الاخر والداتاقريد
اتبع الخطوات التالية:
انشي فورم جديد واكتب باعلاه(اعلى اطار محرر الكود) الاستدعاء التالي:
ثم في منطقة التصريحات العامة (ليس ضمن اي روتين)
ثم اكتب دالة فحص هل الاسم موجود
ثم اكتب دالة اضافة اسم جديد
ثم اضف مربع نص وليكن اسمه Textbox1
وضمن حدث TextBox1_KeyDown اكتب:
اخشى ان الدوال سببت لك اشكال لكن استخدامها فيها متعة لاحدود لها وعن تجربة.
اتبع الخطوات التالية:
انشي فورم جديد واكتب باعلاه(اعلى اطار محرر الكود) الاستدعاء التالي:
كود :
Imports System.Data.OleDbثم في منطقة التصريحات العامة (ليس ضمن اي روتين)
كود :
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Dim con As New OleDbConnection(str)ثم اكتب دالة فحص هل الاسم موجود
كود :
Function isfound(ByVal t As String) As Boolean
Dim sql As New OleDbCommand("select count(tn) from tb where tn=@tn", con)
sql.Parameters.AddWithValue("@tn", t)
If con.State = ConnectionState.Closed Then
con.Open()
End If
If sql.ExecuteScalar > 0 Then
Return True
Else
Return False
End If
If con.State = ConnectionState.Open Then
con.Close()
End If
End Functionثم اكتب دالة اضافة اسم جديد
كود :
Function insert(ByVal t As String) As Boolean
If isfound(t) Then
Return True
Else
Dim se As New OleDbCommand("insert into tb(tn) values(@tn)", con)
se.Parameters.AddWithValue("@tn", t)
If con.State = ConnectionState.Closed Then
con.Open()
End If
Try
se.ExecuteNonQuery()
Return False
Catch ex As Exception
Return True
End Try
End If
If con.State = ConnectionState.Open Then
con.Close()
End If
End Functionوضمن حدث TextBox1_KeyDown اكتب:
كود :
If e.KeyData = Keys.Enter Then
If TextBox1.Text.Trim.Replace(" ", "") = "" Then
MsgBox("يجب كتابة اسم في مربع النص الخاص بالاسم ", MsgBoxStyle.Critical, "")
TextBox1.Focus()
Exit Sub
End If
If insert(TextBox1.Text) = False Then
TextBox1.Focus()
TextBox1.BackColor = Color.White
MsgBox("تمت الاضافة بنجاح", MsgBoxStyle.Information, "")
TextBox1.Clear()
Else
TextBox1.BackColor = Color.Red
TextBox1.Clear()
MsgBox("الاسم محجوز , فضلا جرب اسما آخر ", MsgBoxStyle.Critical, "")
TextBox1.Focus()
Exit Sub
End If
End Ifاخشى ان الدوال سببت لك اشكال لكن استخدامها فيها متعة لاحدود لها وعن تجربة.
14-03-14, 08:19 PM
14-03-14, 08:34 PM
انا اتعلم من خلال عمل مشاريع
حاولت التعلم من خلال النت لكن عيب التعلم من خلال النت انه يركز على كيف تنشئ داله او متغير ولكن مايعلمك طرق استخدامها
على العموم انا اشكرك على جهودك معي وابيك انت وربعك تصبرون على اسئلتي
حاولت التعلم من خلال النت لكن عيب التعلم من خلال النت انه يركز على كيف تنشئ داله او متغير ولكن مايعلمك طرق استخدامها
على العموم انا اشكرك على جهودك معي وابيك انت وربعك تصبرون على اسئلتي