تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة استعلام الي قاعدة البيانات اكسس
#1
السادة الافاضل
كيف يمكن انشاء استعلام في الاكسس يضاف الي القاعدة مثله مثل الجدول ؟؟؟
شكرا
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

السؤال غير واضح؟!!!!!!!!!!!
الرد }}}}
تم الشكر بواسطة:
#3
AngelAngel مافهمت
الرد }}}}
تم الشكر بواسطة:
#4
اذا كنت تعني من برنامج مايكروسوفت أكسس نفسه فالامر لا يحتاج الا ان تذهب الى إنشاء ثم استعلامات معالج الاستعلامات
وبشكل بسيط بالماوس تستطيع عمل ذلك وتستطيع روية كود الاستعلام لو اختر بعد تكوين الاستعلام خريط SQL
او ضع مثال وبين طلبك بالتحديد عليه.
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: ahmed saba
#5
السادة الافضل
نستطيع اضافة جدول الي قاعدة البيانات وذلك بالكود

كيف نضيف ايضا وباستخدام الكود نضيف استعلام الي القاعدة

بحيث اذا فتحنا القاعدة الاكسس نجد يها الاستعلام
الرد }}}}
تم الشكر بواسطة:
#6
يعني الأخ يقصد انشاء استعلام بواسطة الاكسس
وعند الذهاب الى الفيجوال دوت نت عند قاعدة البيانات المرتبطه بالتطبيق
نلاحظ وجود مجلدات عدة
من أهمها مجلد tables
وكذالك مجلد views الخاص بالأستعلامات الجاهزه من خلال قاعدة البيانات أكسس

صراحة انا لا اعلم كيفية الطريقه المناسبة ولكن حبيت ان اوضح ما طلبه الأخ
كيفية التعامل مع الأستعلامات الجاهزه من الأكسس

انا بأعتقادي انه لو تروح على الأستعلام الذي موجود في قاعدة البيانات أكسس بالنقر عليه باليمين ثم تعديل بواسطة sql
سيظهر لك جملة sql على الاستعلام الذي تم انشائه مسبقآ
ويتم اسناده الى فيجوال دوت نت مثل أي استعلام يتم التعامل معه
وذلك بوضع الأدوات المناسبة بما يقابلها في جملة الأستعلام وذلك من خلال استبدال مابعد جملة where مثلآ
PHP كود :
str = (select username from studentes where id_student '"& textbox.text &'") 


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:
#7
السيد الفاضل
هذا الكود ينفذ استعلام ولا ينشيء استعلام في القاعدة
اي عند الخروج من الفيجوال وفتح القاعدة نجد ان الاستعلام غير موجود

اي

المطلوب التعامل مع الملف اكسس من خلال الكود من حيث انشاء جدول استعلام تقرير داخل القاعدة
شكرا
الرد }}}}
تم الشكر بواسطة:
#8
كود :
Dim ConnSTR As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\db.mdb;Persist Security Info=False;"
        Dim connection As New OleDbConnection(ConnSTR)
        Dim command As New OleDbCommand ()
        command.Connection = connection
        connection.Open()
        command.CommandText = "CREATE PROC FF AS SELECT * FROM Employee "
        command.ExecuteNonQuery ()
أما إنشاء الجدول :
CREATE TABLE
الرد }}}}
تم الشكر بواسطة:
#9
جاري التنفيذ مع وافر التحية لك
الرد }}}}
تم الشكر بواسطة:
#10
ربما لو كان طلبك واضحا لكانت الاجابات اقل وأسرع
من خلال الفيجوال بيسك تسطيع انشاء قاعدة بيانات بأكملها
يعني قاعدة بيانات وجداولها و حقول الجداول عدا الاستعلام الذي لا يعد سوى استخلاص بيانات حقول من جدول أو اكثر
فمثلا لانشاء قاعدة بيانات بخا جدول واحد يحوي ثلاثة حقول نتبع التالي
بالتوفيق للجميع
[/php]
PHP كود :
Imports System.Data.OleDb
Friend 
Class Form1
    Inherits System
.Windows.Forms.Form
    
'بداية من الريفرنس اضف المكتبة
    '
Microsoft DAO 3.6 Object Library
    
' Microsoft Access 12.0 Object Library
    Sub CreateMyDatabase(ByRef DB_Name As String)
        Dim wrkDefault As dao.Workspace
        Dim dbsNew As dao.Database
        Dim DAODBEngine_definst As New dao.DBEngine
        wrkDefault = DAODBEngine_definst.Workspaces(0)
        dbsNew = wrkDefault.CreateDatabase(DB_Name, dao.LanguageConstants.dbLangGeneral, dao.DatabaseTypeEnum.dbEncrypt)
        '
ننشيئ قاعدة البيانات
        dbsNew
.Close()
        
'ثم نغلقها
        CreateMyTableS(DB_Name)
        '
نستدعى الدالة التى تنشيئ لنا الجداول فى قاعدة البيانات
        dbsNew 
Nothing
        wrkDefault 
Nothing
        
'لتفريغ الذاكرة
    End Sub
    Sub CreateMyTableS(ByRef DBName As Object)
        Dim dbsMyData As dao.Database
        Dim tdfNew1 As dao.TableDef
        Dim DAODBEngine_definst As New dao.DBEngine
        dbsMyData = DAODBEngine_definst.OpenDatabase(DBName)
        '
لفتح قاعدة البيانات
        With dbsMyData
            tdfNew1 
dbsMyData.CreateTableDef("Table1")
            
'لإنشاء جدول دون إضافة أى حقول إليه
            With tdfNew1
                '
انشاء الحقول كما ترى اسم الحقل ونوعه
                
.Fields.Append(.CreateField("Number"dao.DataTypeEnum.dbInteger))
                .
Fields.Append(.CreateField("items"dao.DataTypeEnum.dbText))
                .
Fields.Append(.CreateField("Lion_Ksa"dao.DataTypeEnum.dbMemo))
            
End With
            dbsMyData
.TableDefs.Append(tdfNew1)
            
dbsMyData.Close()
        
End With
        
'الان نأتي للاستعلام والاستعلام لن يخرج عن حقول الجداول ابدأ
        Dim ConnSTR As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\VB4Arab.mdb;Persist Security Info=False;"
        Dim connection As New OleDbConnection(ConnSTR)
        Dim command As New OleDbCommand()
        command.Connection = connection
        connection.Open()
        '
هنا نختار الحقل والشرط للاستعلام
        
'لاحظ انني حددت الحقل وكذلك الشرط والشرط هنا هو عدم تكرار نفس البيانات اكثر من مرة
        '
الحقل ' Lion_Ksa
        '
والشرط ' Distinct
        command.CommandText = "CREATE PROC FF AS SELECT Distinct Lion_Ksa FROM Table1 "
        command.ExecuteNonQuery()
        connection.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '
تستطيع تغيير اسم و مسار  قاعدة البيانات حسب ما تريد
        CreateMyDatabase
(Application.StartupPath + ("\VB4Arab"))
        
MsgBox(" تم إنشاء قاعدة البيانات في المسار التالي " vbCrLf Application.StartupPathMsgBoxStyle.Information"")
    
End Sub
End 
Class 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: hamada salah90


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 104 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 141 15-08-17, 02:11 PM
آخر رد: abozeyd
  [سؤال] المساعدة - بجملة استعلام بين عدة جداول safalo 3 113 14-08-17, 02:06 AM
آخر رد: safalo
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 240 07-08-17, 11:26 PM
آخر رد: أبو نوره
  [مثال] مبتدئة ربط اكسس بفجيوال بيسك ام سفانة 3 190 21-07-17, 04:50 AM
آخر رد: ام سفانة
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 142 19-07-17, 03:24 PM
آخر رد: waelalmsry75
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 243 19-07-17, 01:58 PM
آخر رد: Jounior_P
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 164 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  تحويل ملف اكسس mdb الي sql server 2008 r2 atefkhalf2004 2 272 15-07-17, 03:57 PM
آخر رد: atefkhalf2004
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 152 14-07-17, 09:43 AM
آخر رد: وادي العوضي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم