الرئيسيةاليوميةمكتبة الصورس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول
دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر
المواضيع الأخيرة
» التحليق بالطائرة فوق درنة
السبت ديسمبر 17, 2011 12:02 pm من طرف محمد هابيل

» فيديو ...فياضانات في مدينة درنة بعد هطول الامطار
السبت نوفمبر 05, 2011 1:53 am من طرف محمد هابيل

» صور لفيضان مدينة درنة بسبب الامطار الغزيره 4/11/2011
الجمعة نوفمبر 04, 2011 11:57 pm من طرف محمد هابيل

» فيديو جديد للمعتصم القذافي قبل موته ...!!
الأربعاء أكتوبر 26, 2011 6:49 am من طرف محمد هابيل

» معمر يقول حرام عليكم قبل ما يقتلوه ....!!
الثلاثاء أكتوبر 25, 2011 11:24 am من طرف محمد هابيل

صفحتنا عالفيس بوك


شاطر | 
 

 لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي

اذهب الى الأسفل 
كاتب الموضوعرسالة
محمد هابيل


avatar

ذكر
عدد المساهمات : 435
تاريخ التسجيل : 23/12/2009
العمر : 31
الموقع : 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

مع العلم أن في كود الخروج تظهر رسالة تأكيد لخروجك من البرنامج


أتمني أن اكون وفقت في عمل هذا المشروع تحياتي






[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://loloat-derna.yoo7.com
الحسن مصراتي
المشرفين
المشرفين
avatar

ذكر
عدد المساهمات : 678
تاريخ التسجيل : 24/12/2009
العمر : 31
الموقع : www.jant-derna.yoo7.com
العمل/الترفيه العمل/الترفيه : طالب
المزاج المزاج : نص ونص

مُساهمةموضوع: رد: لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي   السبت مارس 06, 2010 7:45 pm

مشكووور والله...مجهود حلو ورائع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://www.jant-derna.yoo7.com
ملاك درنة
عضو ذهبى
عضو ذهبى
avatar

انثى
عدد المساهمات : 200
تاريخ التسجيل : 27/02/2010
العمر : 28
العمل/الترفيه العمل/الترفيه : طالبه انترنت والطبخ
المزاج المزاج : رايقه

مُساهمةموضوع: رد: لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي   السبت مارس 06, 2010 11:45 pm

مشكور علي مجهودك الرائع
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
Ahmed Munir
عضو جديد
عضو جديد
avatar

ذكر
عدد المساهمات : 1
تاريخ التسجيل : 16/05/2011
العمر : 26
العمل/الترفيه العمل/الترفيه : طالب علم
المزاج المزاج : طبيعي

مُساهمةموضوع: رد هام   السبت مايو 28, 2011 7:05 am

مشكوور أخي العزيز على عملك الرائح

بصراحة لم أشارك في هذا المنتدى إلا لأجل الرد والاستفسار في موضوعك

Basketball

أخبرني ماذا تعني ب search1 في الكود؟؟ شن تقصد

عندما كتبت الكود الخطأ الوحيد الذي ظهر لي هو



الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
محمد هابيل


avatar

ذكر
عدد المساهمات : 435
تاريخ التسجيل : 23/12/2009
العمر : 31
الموقع : www.loloat-derna.yoo7.com
العمل/الترفيه العمل/الترفيه : طالب/كرة قدم وانترنت
المزاج المزاج : الحمد لله

مُساهمةموضوع: رد: لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي   الأربعاء يونيو 01, 2011 4:17 pm

Ahmed Munir كتب:
مشكوور أخي العزيز على عملك الرائح

بصراحة لم أشارك في هذا المنتدى إلا لأجل الرد والاستفسار في موضوعك

Basketball

أخبرني ماذا تعني ب search1 في الكود؟؟ :<;\\'kol:

عندما كتبت الكود الخطأ الوحيد الذي ظهر لي هو






شكرا بارك الله فيك عالمرور
search1
هنا في هذا البرنامج هي تعليمة تدل علي البحث داخل مجموعة بينات موجوده لدي بمعني ان عندما يتم ادخال الكلمة في مربع النص textbox
فإذا كانت عربيه وتريد ترجمتها تتم هذه التعليمة بالبحث في داخل نطاق الكلمات الموجوده في قاعدة البيانات الموجودة لديك والعكس ...
طبعا مع امكانية زيادة قاموس كلمات من قاعدة البيانات الموجوده لديك ...
تحياتي






[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://loloat-derna.yoo7.com
 
لطلبة الادو.نت طريقه ربط vb.net مع الاكسس لعمل قاموس عربي انجليزي
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
 :: 
قسم الكمبيوتر والموبايل
 :: البرمجه وتحليل نظم
-
انتقل الى: