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

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