بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه
هذا الكود للاتصال ب قاعدة البيانات SQL Server 2005
وهو اثنا الاتصال لايتاخر مثلة مثل الاكسس
Set SH_db_Calendar = New Connection
MyStr = "Driver={SQL Server};Server=winServer;Database=SystemCalendar;Uid=sa;Pwd=123456@systemWin;"
SH_db_Calendar.CursorLocation = adUseClient
SH_db_Calendar.Open MyStr
وهذا الكود لفتج الجدول واظهار القيمة المطلوبة
Dim Mystr2 As String
Mystr2 = Format(Date, "yyyy/mm/dd")
Set SH_Rec_Greg_Hijri = New Recordset
Dim S_SQL2 As String
S_SQL2 = "select * from [Greg Hijri] where CalGreg = '" & (Mystr2) & "' "
SH_Rec_Greg_Hijri.Open S_SQL2, SH_db_Calendar, adOpenStatic, adLockOptimistic
If SH_Rec_Greg_Hijri.RecordCount <> 0 Then
MyStr = "Driver={SQL Server};Server=winServer;Database=SystemCalendar;Uid=sa;Pwd=123456@systemWin;"
انا لم اغير في الاكواد سوى هذا السطر
الجدول يحتوي على الحقول التالية
التاريخ الميلادي - التاريخ الهجري
وهو يحتوى على 27 الف سجل
والفائدة من هذا الجدول مقارنة بين الميلادي والهجرى لتوافق مع تقويم ام القرى الحكومي
ويكون السجلات التي جلبت الى مايقارب 7000 سجل
الاستفسار
1- هل الكود الملون بالون الاحمر لايتوافق مع اسكيو ال سيرفير 2005
2- هل يوجد كود افضل من هذا الكود المستخدم في ندا البيانات وكذالك الجداول
3- هل يوجد اداه لتحميلها
4- هل تكون صلاحية المستخدم غير متاحه او متعارضة
هذا طلب من المنتدى والف شكر للجميع