Mazen.Excel

مرحبا اخوتي بالامكان استخدام طريقة الاتصال ADO بين ملفات الاكسل وبتلك الطريقة نحتاج لملف اكسل واحد فقط يحتوي على البيانات ، ويمكن استخدام عدد كبير من الملفات الاخرى لادخال البيانات والاستعلام من ملف الاكسل الذي يحتوي على البيانات لي مشاركة يمكن الاطلاع عليها انا لي تجربة عملية على هذا الموضوع، ويمكن وضع ملف اكسل البيانات على سيرفر ، وفتح ملف الادخال من اي جهاز اخر. حتى لو للقراءة فقط ، فانه بالنهاية فقط للادخال والاستعلام.

اخي خالد، حاول ابني ملف اكسل جديد ، بحيث انه اذا كان عمود يحتوي على نص مثلا ، يكون كل العمود بتنسيق نص، وكذلك اذا كان العمود يحتوي على ارقام، فيجب ان يكون كل العمود بتنسيق رقم وممنوع ان يحتوي على نص.

windows authentication ذلك بعني انه ما في كلمة مرور ولا اسم مستخدم جرب الملف التالي SQLWithoutPass.zip

البيانات على sql عليها كلمة مرور

يعني لما تدخل على sql بعطي خطا او قصدك لما يحاول البرنامج يرحل بعطي خطا؟

المطلوب بالملف المرفق انا طبقته وشغال مية بالمية CODE.zip

اوك.. سيتم عمل المطلوب ساستعمل نفس الكود السابق ولكن مع استخدام loop لكي يتم استبدال كل البيانات بالجدول والطريقة مجربة طبعا ولكن من الأفضل عمل تست للكود على جدول تست

أستاذ ياسر والأستاذ أبو البراء والأستاذ الصقر اذا بالإمكان تنزيل SQL وهو برنامج مجاني من مايكروسوفت وانشاء الله ستاتي الدروس لاحقا ------ انا اكثر اشي فادني بهاي المواضيع، انه بشغلي برنامج محاسبة ضخم أساسه sql وانا مش كثير راضي عن التقارير اللي بعطيني إياها البرنامج المحاسبي اضطريت اشبك البرنامج المحاسبي مع الاكسل عن طريق ربط الاكسل بجداول اس كيو ال وحاليا بكسبة زر ببني كل التقارير اللي بدي إياها مع رسوم بيانية بدون ادخال أي قيمة يدوية ------- ومع التجرية اقدرت ابني برامج بواجهة اكسل وبدون أي وجود للبيانات فيها، فقط برامج للتقارير وأيضا برامج اكسل تكون فقط بها شاشات ادخال وتخزن البيانات بقواعد بيانات اس كيو ال --------

مرحبا اخي الكريم من خلال الاكسل يمكنك ان تضيف او تعدل او تحذف بيانات من SQL Server أولا : كود استعلام البيانات Private Sub GetSQLData() On Error GoTo err Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql_string As String Dim strconn As String DataBaseName = "------" ServerName = "------" UserId = "------" Password = "------" strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName sql_string = "SELECT * from transactions WHERE CustomerID= '2648' " cn.Open strconn rs.Open sql_string, cn Range("a3").CopyFromRecordset rs rs.Close Set rs = Nothing cn.Close Exit Sub err: MsgBox err.Description End Sub ثانيا: كود الاضافة Private Sub InsertSQLData() On Error GoTo err Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql_string As String Dim strconn As String DataBaseName = "-----" ServerName = "-----" UserId = "----" Password = "----" strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName sql_string = "Insert Into transactions (CustomerID, Amount) values ( '1',1000) " cn.Open strconn rs.Open sql_string, cn Set rs = Nothing cn.Close Exit Sub err: MsgBox err.Description End Sub ثالثا: كود التعديل Private Sub UpdateSQLData() On Error GoTo err Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql_string As String Dim strconn As String DataBaseName = "----" ServerName = "----" UserId = "----" Password = "----" strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName sql_string = "update transactions set CustomerID='2' where amount =1000 " cn.Open strconn rs.Open sql_string, cn Set rs = Nothing cn.Close Exit Sub err: MsgBox err.Description End Sub طبعا بدل القيم الافتراضية التي انا ادخلتها يمكنك الاعتماد على قيم موجودة في خلايا اكسل او تكس بوكس في نماذج مثلا بدل كتابة sql_string = "update transactions set CustomerID='2' where amount =1000 " يمكنك كتابة sql_string = "update transactions set CustomerID= "& "'" & range("a2") & "'" & " where amount =" & range("b2") لاحظ إضافة ' امام وخلف أي قيمة لا تكون مبنية في اس كيو ال انها قيمة int وشكرا

انشاء الله سيتم عمل دروس لربط الاكسل ب sql والموضوع اكثير مهم، وذلك بسبب وجود الكثير من البرامج المالية والإدارية تعتمد على sql واذا كان يتوفر للشخص صلاحية بالدخول الى قاعدة بيانات البرنامج ، فانه يمكن تصميم التقارير التي تخصه على الاكسل ونحن نعرف هنا كم ممكن ان نستفيد من الاكسل للتقارير وللتحليل المالي وشكرا

مرحبا الكود التالي لاستعلام البياتات من برنامج اس كيو ال Private Sub GetSQLData() On Error GoTo err Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql_string As String Dim strconn As String DataBaseName = "------" ServerName = "------" UserId = "------" Password = "------" strconn = "Provider=SQLOLEDB.1;Password=" & Password & ";User ID=" & UserId & ";Initial Catalog=" & DataBaseName & ";Data Source=" & ServerName sql_string = "SELECT * from transactions WHERE CustomerID= '2648' " cn.Open strconn rs.Open sql_string, cn Range("a3").CopyFromRecordset rs rs.Close Set rs = Nothing cn.Close Exit Sub err: MsgBox err.Description End Sub مع العلم انه يجب تفعيل التالي من Tools - References

أفكار جدا رائعة شكرا جدا

لو تعمل repair ممكن يزبط بس لازم يكون عندك office setup

مرفق ملف للتوضيح Dملف باسم داتا يوضع مثلا على قرص كمبيوتر والملف الثاني لا يشترط وضعه في مكان وبالامكان تغير مساق الداتا كما يمكن تغير قيم الادخال وإدخال من خلايا الاكسل او من مربع نص بالفورم Input And Query From DB.zip

انا اشتغلت على موضوع الشير لملف الاكسل بس كثير به مشاكل، اكثير موظفين بواجهوا صعوبة في الحفظ وملف حجمه كبير صعب بالفتح والخروج وكمان عندي الموظفين بدخلوا بيانات على نفس قاعدة البيانات ولما يعملوا حفظ بتبلش المشاكل بالطريقة الا انا ذكرتها، الموظفين ما بشوفوا قاعدة البيانات اصلا، هم بعبو ب فورم ادخال ، وهذا الفورم بفتح اتصال مع قاعدة البيانات وبس ينتهي ترحيل بغلق الاتصال والحلو انه كل موظف عنده ملف اكسل به فورم ادخال والكل بقرا وبدخل على نفس قاعدة البيانات بدون مشاكل انا راح اعمل مثال عليه وارفقه انشاء الله

هاي الفكرة مش متداولة بالمنتيدات واكثير مهمة انا اكثير اتعبت لحد ما اقدرت اشتغل عليها حاليا عندي برنامج (شاشة الادخال بملف اكسل) وموزع على خمس موظفين ، كل موظف اله ملف، والبينات مخزنة بملفات ثانية موجودة على جهاز سيرفر انا برنامجي اسمه lite وبدير 9 قواعد بيانات وبيقدر يشتغل عليها عدد لا نهائي من الموظفين

ملفات جدا رائعة شكرا للجميع على المشاركة

شكرا أستاذ ياسر طريقتك جدا جميلة انا استعملت طريقتي على اكثر من جهاز ولم احتاج الى ملف dll يبدو انه متوفر بكل بمعظم نسخ الاوفس وانا استعمله تقريبا بكل يوزر فورم اعمله فلا احتاج الا الى سطر واحد لاظهاره وسطر اكتب به القيمة التي اريدها ان تكون عند اجراء الحدث

ProgressBar اضافة من المهم جدا إضافة هذه الأداة لمشروعك البرمجي تساعد المستخدم بتقدير الزمن المطلوب لتنفيذ المهمة بالملف المرفق مثال ProgressBar.zip

ADO Connectionاستخدام الاكسيل كقاعدة بيانات عن طريق وسيلة الاتصال اعتقد ان هذا الموضوع سيعطيكم معلومة جديدة في كيفية التعامل مع الاكسل كقاعدة بيانات في البداية الطريقة تعتمد على وسيلة الاتصال Active Data Object ADO وهي وسيلة اتصال بين برنامج كتابة الاكواد و قاعدة البيانات مثلا VB.net and SQL Visual Basic and Access وهي حصرية لبرامج مايكروسوفت فقط ولكي يكون لدينا اتصال كامل يجب ان يكون لدينا Connection String وهو عنوان قاعدة البيانات التي سيتم الاتصال بها، والذي من خلاله سيكون التالي: * فتح اتصال* * جملة الاستعلام* * انهاء الاتصال* وهنا تكمن الميزة بهذه الطريقة، فجملة الاستعلام يجب كتابتها بطريقة SQL dataBase وهنا تنطبق معظم جمل SQL امثلة على الجمل select * from [data] Select Count(Customer) from [data] Select Sum(Customers) from [data] where city ='Ramallah' تعلم كتابة جمل جديدة وغيرها من الجمل التي يعرفها جيدا المبرمجون باستخدام قواعد البيانات SQL,MYSQL,Oracle اكبر فائدة لهذه الطريقة انه يمكن من خلالها تصميم واجهة برنامج على الاكسل او تصميم فورم على الاكسل وحفظ البيانات على ملف اكسل اخر بدون الحاجة الى فتحه ولاستخدام هذه الطريقة يجب تفعيل التالي Tools-References بالمرفق ملف اكسل يحتوي مثال على ما تم ذكره سابقا database.zip

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

برنامج محاسبي بسيط جدا لا يوجد كلمة مرور على البرمجة Alkamel.zip

Application.ScreenUpdating = True متاسف كثير على الغلبة بس هذي الجملة كثير انا بشوفها في مشاركات الاخوة الاعضاء ممكن حد من الاخوة يوضح لنا متى نستخدم هذه الجملة.

thanks