محمد هابيل
عدد المساهمات : 435 تاريخ التسجيل : 23/12/2009 العمر : 37 الموقع : www.loloat-derna.yoo7.com العمل/الترفيه : طالب/كرة قدم وانترنت المزاج : الحمد لله
| موضوع: لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي الخميس مارس 04, 2010 10:10 pm | |
| السلام عليكم ورحمة الله وبركاته في هذا الموضوع حبيت ننقل فكرة عمل الادو.نت بطريقه مبسطه جدا حيث نقوم بعمل ربط واجهة عمل مصممه بال vb.net بقاعدة بيانات أكسس وهو عبارة عن قاموس عربي انجليزي أترككم مع الصور للتوضيح أكثرأما الان مع كود البرنامج هذا كود الاتصال وتعريف البيانات - الكود:
-
Imports System.Data Imports System.Data.OleDb Public Class Form1 Dim con As New OleDbConnection Dim sql As String = "select E , A from dic" Dim DS As DataSet Dim Da As New OleDbDataAdapter(sql, con) ---------------------------------------------------- - الكود:
-
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click If Me.R_2.Checked = True Then ds = Search1("dic", "E", Me.TextBox1.Text.Trim) End If If Me.R_1.Checked = True Then ds = Search1("dic", "A", Me.TextBox1.Text.Trim) End If If ds.Tables(0).Rows.Count <= 0 Then MessageBox.Show"لم يتم العثور على بيانات", "رسالة تحذير", MessageBoxButtons.OK, MessageBoxIcon.Information Me.TextBox1.Text = "" Me.TextBox1.Focus() DataGridView1.Refresh() DataGridView1.DataSource = Nothing Exit Sub Else Me.DataGridView1.DataSource = DS.Tables(0) End If End Sub ---------------------------------------------------- - الكود:
-
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click DS.Clear() TextBox1.Text = "" End Sub ---------------------------------------------------- - الكود:
-
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim m As String m = " القـاموس العصـــري لعــــام 2009" & vbCrLf m &= "تصميم الطالب محمد هابيل" & vbCrLf m &= "المعهد العالي للمهن الشاملة" & vbCrLf m &= "Mobile NO . 01234567" & vbCrLf m &= "Email - [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]" & vbCrLf MsgBox(m) End Sub هنا مع ملاحظة كتابة اسم القاموس الذي تريد واسم المصمم ورقم هاتفه والبيانات الذي تريد.....---------------------------------------------------- - الكود:
-
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As String x = MsgBox("هل تريد الخروج ؟", MsgBoxStyle.YesNo MsgBoxStyle.Question, "رساله تأكيد") If x = vbYes Then Me.Dispose() End If End Sub
مع العلم أن في كود الخروج تظهر رسالة تأكيد لخروجك من البرنامجأتمني أن اكون وفقت في عمل هذا المشروع تحياتي | |
|
الحسن مصراتي المشرفين
عدد المساهمات : 678 تاريخ التسجيل : 24/12/2009 العمر : 37 الموقع : www.jant-derna.yoo7.com العمل/الترفيه : طالب المزاج : نص ونص
| موضوع: رد: لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي السبت مارس 06, 2010 7:45 pm | |
| مشكووور والله...مجهود حلو ورائع | |
|
ملاك درنة عضو ذهبى
عدد المساهمات : 200 تاريخ التسجيل : 27/02/2010 العمر : 34 العمل/الترفيه : طالبه انترنت والطبخ المزاج : رايقه
| موضوع: رد: لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي السبت مارس 06, 2010 11:45 pm | |
| | |
|
Ahmed Munir عضو جديد
عدد المساهمات : 1 تاريخ التسجيل : 16/05/2011 العمر : 32 العمل/الترفيه : طالب علم المزاج : طبيعي
| موضوع: رد هام السبت مايو 28, 2011 7:05 am | |
| مشكوور أخي العزيز على عملك الرائح بصراحة لم أشارك في هذا المنتدى إلا لأجل الرد والاستفسار في موضوعك أخبرني ماذا تعني ب search1 في الكود؟؟ عندما كتبت الكود الخطأ الوحيد الذي ظهر لي هو | |
|
محمد هابيل
عدد المساهمات : 435 تاريخ التسجيل : 23/12/2009 العمر : 37 الموقع : www.loloat-derna.yoo7.com العمل/الترفيه : طالب/كرة قدم وانترنت المزاج : الحمد لله
| |