الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة فى فتح قاعدة البيانات

بدأه YASSEREXE في 3 يناير 2009 · 3 رد · 621 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمة الله

لوسمحتوا يا جماعة انا مش عارف اعمل ربط لقاعدة البيانات فى الفورم

مع العلم انى استخدم sql server 2005 and visual basic 2008 express edition

قاعدة البيانات .mdf

#2

مرحباً أخي الكريم .

من القائمة الرئيسية للبرنامج انقر على ( Data ) ومن ثم ( Add New Data Source ) بعد ذلك سيظهر لك مربع حوار( معالج مصدر البيانات ) يسألك ( من أين سيقوم البرنامج بإستقبال المعلومات ؟ ) .

لديك ثلاثة خيارات ( DataBase, Web Service, Object ) عليك اختيار ( DataBase ) ومن ثم النقر على ( Next ) .

ستأتي الصفحة الثانية من ( معالج مصدر البيانات ) هنالك زر ( New Connection ) عليك الضغط عليه, سيظهر لك أيضاً مربع حوار ( Add Connection ) هنالك زر يحمل العبارة ( Change ) هو لتغير نوع البيانات كـ( Microsoft Access DataBase File و Microsoft SQL Server DataBase File ) بعد ذلك يمكنك النقر على ( Browse ) من المعالج ( Add Connection ) يمكنك اختيار قاعدة بيانات موجود على الـ Hard-Disk أو كتابة الإسم ومن ثم النقر على ( Open ) لإنشاء قاعدة بيانات جديدة _

سيسألك المعلج ( إن قاعدة البيانات غير موجودة, هل تريد إنشاء واحدة جديدة ؟ ) إذا اردت انقر على ( Yes ) بعدها انقر على ( Ok ) من مربع الحوار ( Add Connection ) .

الأن يمكنك النقر على الزر ( Next ) من ( معالج مصدر البيانات ), سيسأل المعالج ( إن الإتصال يستخدم معلومات محلية ( اي موجودة على الـ Hard-Disk ), هل تريد نسخ الملف ( قاعدة البيانات الى المشروع ( مشروعك الحالي ) ؟ ), هنا الجواب عندك أنت من يجب أن يحدد هذا الشيء .

إذا نسخت الملف الى المشروع سيسألك ( هل تريد عمل خاصية جديدة لحفظ خصائص اتصال قاعدة البيانات في إعدادات المشروع ؟ ) بعد ذلك ( Next ) .

الأن ستظهر لك الصفحة الأخيرة من ( معالج مصدر البيانات ), يجب عليك تحديد الكائنات التي تريد التعامل معها من خلال الـ DataSet كـ( Tables, Views, Stored Procedures, Functions ) بعد ذلك ( Finish ) .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 3 يناير 2009 في 15:30

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#3

السلام عليكم و رحمة الله

شكرا اخى بشار لكن كل ماقلته انا عارفة

لكن برضوا مش نافع اعمل اتصال

هل لازم تكون الداتا بيز .sdf

#4

.sdf ؟

اللاحقة الخاصة بالـ Access = .mdb

اللاحقة الخاصة بالـ SQL Server = .mdf

اليك حل أخر لقراءة ملف قاعدة بيانات ( SQL Server ) من مكان محدد :

 

Imports [color= #990000;]System[color= #339933;].Data[color= #339933;].SqlClient

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class clsDataServices

    Friend Const _SQLConnectionString [color= #b1b100;]As String [color= #339933;]= [color= #990000;]_

    [color= #0000ff;]"Data Source=.SQLEXPRESS;AttachDbFilename=C:MySQLDatabase.mdf; " [color= #339933;]& [color= #990000;]_

    [color= #0000ff;]"Integrated Security=True; Connect Timeout=30; User Instance=True;"

 

    [color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Function GetTable[color= #009900;](ByVal TableName [color= #b1b100;]As String[color= #009900;]) [color= #b1b100;]As DataTable

        Try

            Dim _SQLConnection [color= #b1b100;]As [color= #000000; font-weight: bold;]New SqlConnection[color= #009900;](_SQLConnectionString[color= #009900;])

            Dim _CommandString [color= #b1b100;]As String [color= #339933;]= [color= #0000ff;]"SELECT * " [color= #339933;]& TableName

            Dim _SQLCommand [color= #b1b100;]As [color= #000000; font-weight: bold;]New SqlCommand[color= #009900;](_CommandString[color= #339933;], _SQLConnection[color= #009900;])

            Dim _SQLDataAdapter [color= #b1b100;]As [color= #000000; font-weight: bold;]New SqlDataAdapter[color= #009900;](_SQLCommand[color= #009900;])

            Dim _DataTable [color= #b1b100;]As [color= #000000; font-weight: bold;]New DataTable[color= #009900;]([color= #009900;])

            _SQLConnection[color= #339933;].Open[color= #009900;]([color= #009900;])

            _SQLDataAdapter[color= #339933;].Fill[color= #009900;](_DataTable[color= #009900;])

            _SQLConnection[color= #339933;].Close[color= #009900;]([color= #009900;])

            [color= #b1b100;]Return _DataTable

        Catch EX [color= #b1b100;]As Exception

            [color= #b1b100;]Return Nothing

        [color= #990000;]End Try

    [color= #990000;]End [color= #000000; font-weight: bold;]Function

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

هذا المثال, يحوي عملية تًرجع جدول معلومات, تستخدم العملية الـ ( Param ( TableName, لتحديد أي من الجداول تريد استخدامه .

كيفية استخدام العملية :

Dim MyTable As DataTable = GetTable( "MyTable" )

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 6 يناير 2009 في 14:24

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

مواضيع مشابهة