• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

المصباحي

اعضاء جدد
  • عدد المشاركات

    18
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

1 عادي

عن المصباحي

  • الرتبة
    عضو جديد

طرق الإتصال

  • ICQ 0
  1. شكرا جزيلا لم اكن اعلم ان الاستعلام بهذه السهولة وعندما كنت احتاج لمثل هكذا استعلام فإنني كنت اقوم بعمل جدول جديد ثم اقوم بكتابة كود يقوم بنقل محتويات الجدول الاول ثم الانتقال إلى الجدول الثاني ونقل محتوياته إلى الجدول الجديد واشكركم جزيل الشكر على التفاعل ونسأل الله ان ينفعنا بما علمنا ما قصدته هو يتلخص في هذا الاستعلام select col1, col2, col3 from Table1 union select Col1, col2, col3 from Table2 order by by col1 وشكرا للجميع
  2. السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء هناك سوال طالما تمنيت ان اجد له اجابه لنفترض ان لدينا جدولين بالشكل التالي Table1 101-0001 01-01-2012 1 101-0001 02-01-2012 2 101-0001 03-01-2012 1 101-0002 04-01-2012 1 Table2 101-0001 01-01-2012 0 101-0002 02-01-2012 1 101-0001 03-01-2012 5 الاستعلام المطلوب هو ادراج الجدولين تحت بعض فقط كما يظهر في الشكل التالي بغض النظر عن ترتيب حسب الحقل الاول او الثاني دون ان يحصل تكرار غير صحيح وغير مرغوب 101-0001 01-01-2012 1 101-0001 02-01-2012 2 101-0001 03-01-2012 1 101-0002 04-01-2012 1 101-0001 01-01-2012 0 101-0002 02-01-2012 1 101-0001 03-01-2012 5 هذا ولكم جزيل الشكر والتقدير
  3. http://www.xtremevbtalk.com/showthread.php?t=92199 قد تفيدك هذه الصفحة خذ منها ما يخص متغيرات الاتصال بقاعدة البيانات وسيشتغل معك التقرير إن شاء الله
  4. انا كنت استخدم هذا الموديل لقراءة البيانات من صفحة انترنت وتخزينها في قاعدة بيانات فكنت اعاني من مشكلة في الترميز وعن طريق البحث تمكن من ايجاد هذا الكود فأتوقع انها سيفيدك وعليك ان تجربه بنفسك وتعطينا النتيجة الموديل: Public Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long) Public Const CP_UTF8 = 65001 'Purpose:Convert Utf8 to Unicode Public Function UTF8_Decode(ByVal sUTF8 As String) As String Dim lngUtf8Size As Long Dim strBuffer As String Dim lngBufferSize As Long Dim lngResult As Long Dim bytUtf8() As Byte Dim n As Long If LenB(sUTF8) = 0 Then Exit Function If m_bIsNt Then On Error GoTo EndFunction bytUtf8 = StrConv(sUTF8, vbFromUnicode) lngUtf8Size = UBound(bytUtf8) + 1 On Error GoTo 0 'Set buffer for longest possible string i.e. each byte is 'ANSI, thus 1 unicode(2 bytes)for every utf-8 character. lngBufferSize = lngUtf8Size * 2 strBuffer = String$(lngBufferSize, vbNullChar) 'Translate using code page 65001(UTF-8) lngResult = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), lngUtf8Size, StrPtr(strBuffer), lngBufferSize) 'Trim result to actual length If lngResult Then UTF8_Decode = Left$(strBuffer, lngResult) End If Else Dim i As Long Dim TopIndex As Long Dim TwoBytes(1) As Byte Dim ThreeBytes(2) As Byte Dim AByte As Byte Dim TStr As String Dim BArray() As Byte 'Resume on error in case someone inputs text with accents 'that should have been encoded as UTF-8 On Error Resume Next TopIndex = Len(sUTF8) ' Number of bytes equal TopIndex+1 If TopIndex = 0 Then Exit Function ' get out if there's nothing to convert BArray = StrConv(sUTF8, vbFromUnicode) i = 0 ' Initialise pointer TopIndex = TopIndex - 1 ' Iterate through the Byte Array Do While i <= TopIndex AByte = BArray(i) If AByte < &H80 Then ' Normal ANSI character - use it as is TStr = TStr & Chr$(AByte): i = i + 1 ' Increment byte array index ElseIf AByte >= &HE0 Then 'was = &HE1 Then ' Start of 3 byte UTF-8 group for a character ' Copy 3 byte to ThreeBytes ThreeBytes(0) = BArray(i): i = i + 1 ThreeBytes(1) = BArray(i): i = i + 1 ThreeBytes(2) = BArray(i): i = i + 1 ' Convert Byte array to UTF-16 then Unicode TStr = TStr & ChrW$((ThreeBytes(0) And &HF) * &H1000 + (ThreeBytes(1) And &H3F) * &H40 + (ThreeBytes(2) And &H3F)) ElseIf (AByte >= &HC2) And (AByte <= &HDB) Then ' Start of 2 byte UTF-8 group for a character TwoBytes(0) = BArray(i): i = i + 1 TwoBytes(1) = BArray(i): i = i + 1 ' Convert Byte array to UTF-16 then Unicode TStr = TStr & ChrW$((TwoBytes(0) And &H1F) * &H40 + (TwoBytes(1) And &H3F)) Else ' Normal ANSI character - use it as is TStr = TStr & Chr$(AByte): i = i + 1 ' Increment byte array index End If Loop UTF8_Decode = TStr ' Return the resultant string Erase BArray End If EndFunction: End Function 'Purpose:Convert Unicode string to UTF-8. Public Function UTF8_Encode(ByVal strUnicode As String, Optional ByVal bHTML As Boolean = True) As String Dim i As Long Dim TLen As Long Dim lPtr As Long Dim UTF16 As Long Dim UTF8_EncodeLong As String TLen = Len(strUnicode) If TLen = 0 Then Exit Function If m_bIsNt Then Dim lngBufferSize As Long Dim lngResult As Long Dim bytUtf8() As Byte 'Set buffer for longest possible string. lngBufferSize = TLen * 3 + 1 ReDim bytUtf8(lngBufferSize - 1) 'Translate using code page 65001(UTF-8). lngResult = WideCharToMultiByte(CP_UTF8, 0, StrPtr(strUnicode), TLen, bytUtf8(0), lngBufferSize, vbNullString, 0) 'Trim result to actual length. If lngResult Then lngResult = lngResult - 1 ReDim Preserve bytUtf8(lngResult) 'CopyMemory StrPtr(UTF8_Encode), bytUtf8(0&), lngResult UTF8_Encode = StrConv(bytUtf8, vbUnicode) ' For i = 0 To lngResult ' UTF8_Encode = UTF8_Encode & Chr$(bytUtf8(i)) ' Next End If Else For i = 1 To TLen ' Get UTF-16 value of Unicode character lPtr = StrPtr(strUnicode) + ((i - 1) * 2) CopyMemory UTF16, ByVal lPtr, 2 'Convert to UTF-8 If UTF16 < &H80 Then ' 1 UTF-8 byte UTF8_EncodeLong = Chr$(UTF16) ElseIf UTF16 < &H800 Then ' 2 UTF-8 bytes UTF8_EncodeLong = Chr$(&H80 + (UTF16 And &H3F)) ' Least Significant 6 bits UTF16 = UTF16 \ &H40 ' Shift right 6 bits UTF8_EncodeLong = Chr$(&HC0 + (UTF16 And &H1F)) & UTF8_EncodeLong ' Use 5 remaining bits Else ' 3 UTF-8 bytes UTF8_EncodeLong = Chr$(&H80 + (UTF16 And &H3F)) ' Least Significant 6 bits UTF16 = UTF16 \ &H40 ' Shift right 6 bits UTF8_EncodeLong = Chr$(&H80 + (UTF16 And &H3F)) & UTF8_EncodeLong ' Use next 6 bits UTF16 = UTF16 \ &H40 ' Shift right 6 bits UTF8_EncodeLong = Chr$(&HE0 + (UTF16 And &HF)) & UTF8_EncodeLong ' Use 4 remaining bits End If UTF8_Encode = UTF8_Encode & UTF8_EncodeLong Next End If 'Substitute vbCrLf with HTML line breaks if requested. If bHTML Then UTF8_Encode = Replace$(UTF8_Encode, vbCrLf, "") End If End Function وعند التعامل مع حقول db![FIELD] = UTF8_Decode(TEXT) 'او db![FIELD] = UTF8_Encode(TEXT,True) 'او db![FIELD] = UTF8_Encode(TEXT,False) اذا استفدت من هذا الكود نرجو اعلامنا بالطريقة الصحيحة التي أدت الغرض
  5. ما معنى Could not load file or assembly

    عفوا يا شباب على تاخري لقد انشغلت ولم اتمكن من المواصلة معكم خلال الايام السابقة لذا اعذروني مقدما .... سؤال أخير .... مالمقصود بالنقاط الخاصة بسؤالي ولمن أعطيها وكيف أعطيها أم ان المشرف على الموقع هو الذي سيمنح الشخص الذي كانت اجابته صحيحة هذه النقاط وشكرا جزيلا لكم .... وسأتواصل معكم عندما اتابع موضوع الموقع فانا حاليا انشغلت ولن استطيع المواصلة
  6. ما معنى Could not load file or assembly

    شكرا اخي العزيز على توضيحك لكنني لا أعلم من أين أعيد برمجة موقعي على فريمووك 2 حيث لا يوجد سوى خيار 4 فقط . وسارفق لك صورة توضيحية
  7. ما معنى Could not load file or assembly

    الشركة المستضيفة تدعم الدوت نت فريمووك 2 اما انا فصممت موقعي فيجوال ستوديو 2010 و الدوت نت فريمووك 4 فما الحل لهذه المشكلة حاليا برايك ولك جزيل الشكر مقدما
  8. ما معنى Could not load file or assembly

    لقد قمت بعمل موقع ثم عملت له ببشلد عند الانهاء ورفعته على الموقع الخاص بي فعند فتح الصفحة الرئيسية تظهر هذه الرسالة فما معناها وكيف يمكن حل هذه المشكلة ولكم جزيل الشكر Server Error in '/' Application. Configuration Error Description: An error occurred during the processing of a configuration file required to service this request. Please review the specific error details below and modify your configuration file appropriately. Parser Error Message: Could not load file or assembly 'WebApplication6' or one of its dependencies. This assembly is built by a runtime newer than the currently loaded runtime and cannot be loaded. Source Error: Line 57: <add assembly="System.EnterpriseServices, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"/> Line 58: <add assembly="System.Web.Mobile, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"/> Line 59: <add assembly="*"/> Line 60: <add assembly="System.Runtime.Serialization, Version=3.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL"/> Line 61: <add assembly="System.IdentityModel, Version=3.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL"/> Source File: C:\Windows\Microsoft.NET\Framework\v2.0.50727\Config\web.config Line: 59 Assembly Load Trace: The following information can be helpful to determine why the assembly 'WebApplication6' could not be loaded. WRN: Assembly binding logging is turned OFF. To enable assembly bind failure logging, set the registry value [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD) to 1. Note: There is some performance penalty associated with assembly bind failure logging. To turn this feature off, remove the registry value [HKLM\Software\Microsoft\Fusion!EnableLog]. Version Information: Microsoft .NET Framework Version:2.0.50727.4952; ASP.NET Version:2.0.50727.4955
  9. لدي هذا الملف المغلق بكلمة مرور ولا استطيع معرفتة هذه الكلمة وقد جربت العديد من البرامج التي تكشف كلمات المرور ولم يستطع أي برنامج فكها فهل يستطيع أحد أن يدلنا على الطريقة المماثلة لحماية قواعد البيانات بهذه الطريقة وله الخير كله باذن الله .. الملف مرفق ،،، وانتظر الرد والمحاولة قبل كل شيء . abhaq.zip
  10. السلام عليكم :: تحية طيبة ،، كيف يمكنني أن أتحكم بحجم كائن اللست بوكس برمجيا بحيث كلما اضيف عنصر في اللست يزيد طولها تلقائيا بحيث لا يظهر شريط التمرير الخاص بالعناصر ... مع ملاحظة أنني أريد أيضا ان لا يكون حجمها يتسع لأكثر من العناصر التي بها بمعنى انها لما يكون فيها عنصر واحد فقط يكون حجمها يتسع لعنصر واحد فقط وعندما يكون عنصران يزيد طولها بحيث يتسع لعنصران فقط وهكذا ... مع ملاحظة أنه يوجد عنصر تحت اللست بوكس أريده ايضا ان ينزل ويذهب إلى الأسفل مع اللست بوكس وهكذا . والمثال المرفق قد يوضح ما أقصد .. وأرجوا ان يكون ما أريده واضحا . ListSize.zip
  11. السلام عليكم ورحمة الله وبركاته ـ أريد دروس للتعامل مع الملفات .. بالتحديد انشاء ملف من نوع سجل انشاء ملف فتح الملف القراءة من الملف الاضافة في الملف الحذف من الملف اغلاق الملف وحفظ التعديلات عليه ولكم فائق الشكر والتقدير والاحترام ودمتم سالمين
  12. تسلم اخي العزيز وانا في انتظار الكود .. ودمتم سالمين
  13. لقد قمت بعمل برنامج ومن ضمن احتياجات البرنامج هذه الأدة DBLIST32.OCX وعندما اقوم بنسخ البرنامج لكي يعمل على جهاز اخر احتاج إلى هذه الأداة فقوم بنسخها إلى مجلد السيستم للجهاز المنقول إليه البرنامج .. لكي يعمل البرنامج .. فأتفاجاء بهذه الرسالة فما الحل لهذه الرسالة ... وما معناها ... ودمتم سالمين
  14. شكرا جزيلا أخي العزيز ..
  15. عندي قاعدة بيانات فيها أعمدة بالأسماء التالية الرقم num الاسم mane العمر age ووضعت أداة ليست list في الفورم form واريد في حدث التحميل load أن أعمل نسخة من عمود الأسماء name في ال ليست list ... الطريقة المثلى هي بعد كود ربط أداة البيانات data والجدول table يقوم المبرمج بكتابة كود للإنتقال إلى الحقل الأول ومن ثم تكرار حتى النهاية اثناء التكرار يستخدم الخاصية أد أيتم additem الخاصة بال ليست list والعنصر المضاف هو الذي سيكون عليه المؤشر لكن لا اعرف كيف اكتب هذا بالكود ... فأرجوا ممن لديه الخبرة ان يدلني على ذلك .. ودمتم سالمين