استعلام البيانات الموجودة على sql

[Mazen.Excel]

مرحبا

الكود التالي لاستعلام البياتات من برنامج اس كيو ال

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

 

[ياسر خليل أبو البراء]

أخي الكريم مازن

ممكن مزيد من التفاصيل عن الـ SQL .. حيث أن معظمنا يفتقر للتعامل مع SQL ..

بارك الله فيك وجزاك الله كل خير

[Mazen.Excel]

انشاء الله سيتم عمل دروس لربط الاكسل ب

sql

والموضوع اكثير مهم، وذلك بسبب وجود الكثير من البرامج المالية والإدارية تعتمد على

sql

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

ونحن نعرف هنا كم ممكن ان نستفيد من الاكسل للتقارير وللتحليل المالي

وشكرا

 

[ياسر العربى]

زي ما اخويا وحبيبي الغالي ابو البراء قال 

توضح لينا الفكرة ولو بمثال وطريقة الربط

انا بصراحة دخلت هرشت في دماغي وخرجت  

كل اللي عرفته 

لاني بردو وحش وبيري غويط والمصري ميبقاش مصري لو محطش التاتش بتاعة ومينفعشي يقول معرفشي 

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

بحتاج اني اربطها بقاعدة بيانات

DataBaseName = "------"
ServerName = "------"
UserId = "------"
Password = "------"

بعرف اسم القاعدة

وعنوان السيرفر

واسم المستخدم 

وكلمة المرور

عشان يقدر المنتدى او الموقع ايا كان يقدر يتواصل مع قاعدة بيانات الsql

في انشاء الجداول ووضع البيانات المراد العمل عليها

من ادخال واستعلامات

زي اسماء المستخدمين وكلمات المرور والمواضيع والكلام دا

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

واخرجناها في الخلية

Range("a3").CopyFromRecordset rs

ياترى اكمل هرش في  دماغي ولا ابطل

 

[ياسر خليل أبو البراء]

يرجى طرح الموضوع من بداياته أخي الكريم مازن بدايةً من بدء تنصييب البرنامج ..

في انتظار دروسك على أحر من الجمر

ستجدني إن شاء الله أول الطلبة المتقدمين في صف التعلم

أخي ياسر العربي

شكلك طالب مشاكس ..ابقا اقعد في التختة اللي جنبي عشان أستفيد منك

 

[الصـقر]

يا ابو البراء ياسر ده خط كبير اسالنى انا محدش عارفه غيرى ده بحر وبحوره غويطه يبان قدامك انه غلبان وكدا وهو 

بقولك يا ياسر انا مش عايزك تبطل هرش فى دماغك طلع اللى عندك ومتخفش ولو عايز بخاخ على حسابى

تم تعديل أكتوبر 26, 2015 بواسطه الصـقر

[Mazen.Excel]

أستاذ ياسر والأستاذ أبو البراء والأستاذ الصقر

اذا بالإمكان تنزيل

SQL

وهو برنامج مجاني من مايكروسوفت

وانشاء الله ستاتي الدروس لاحقا

------

انا اكثر اشي فادني بهاي المواضيع، انه بشغلي برنامج محاسبة ضخم أساسه

sql

وانا مش كثير راضي عن التقارير اللي بعطيني إياها البرنامج المحاسبي

اضطريت اشبك البرنامج المحاسبي مع الاكسل  عن طريق ربط الاكسل بجداول اس كيو ال

وحاليا بكسبة زر ببني كل التقارير اللي بدي إياها مع رسوم بيانية بدون ادخال أي قيمة يدوية

-------

ومع التجرية اقدرت ابني برامج بواجهة اكسل وبدون أي وجود للبيانات فيها، فقط برامج للتقارير

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

--------

 

 

[ياسر العربى]

يرجى طرح الموضوع من بداياته أخي الكريم مازن بدايةً من بدء تنصييب البرنامج ..

في انتظار دروسك على أحر من الجمر

ستجدني إن شاء الله أول الطلبة المتقدمين في صف التعلم

أخي ياسر العربي

شكلك طالب مشاكس ..ابقا اقعد في التختة اللي جنبي عشان أستفيد منك

 

يا ابو البراء ياسر ده خط كبير اسالنى انا محدش عارفه غيرى ده بحر وبحوره غويطه يبان قدامك انه غلبان وكدا وهو 

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

وبعدين بابا بيقولك راجعلي كويس عشان مش بفهم بسرعه

 

 

 

 

يالهوي علي الحسد