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

hero92
اعضاء جدد-
عدد المشاركات
22 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
0 عاديعن hero92
-
الرتبة
عضو جديد
معلومات الملف الشخصي
- الجنس ذكر
أحدث الزائرين لملفلك الشخصي
-
بارك الله فيك ههههههههه والله قمت التواضع تقبل خالص تحياتى قال رسول الله صلى الله عليه وسلم: " من سعى لأخيه المسلم في حاجة، فقضيت له أو لم تقض غفر الله له ما تقدم من ذنبه وما تأخر، وكتب له براءتان براءة من النار وبراءة من النفاق.
-
الف شكر استاذنا الفاضل زادك الله علما ونورا جعله الله فى ميزان حسناتك ونأسف على كثرة الاسئلة وانا بحاول اتعلم من الاستاذة الافاضل والخبراء الذى مثلك تقبل تحياتى
-
استاذى الفاضل جزاك الله خيرا أحب ان اشكرك على مجهودك العظيم يوجد لدى بعض النقاط ارغب فى التعديل عليها 1 - بعد تحديد الشروط وعمل Export تم تجميع جميع الارقام المطابقة عليها الشروط ثم وضعها فى ملف اكسل واحد المطلوب هو انشاء ملف اكسل لكل رقم بمعنى يتم تجميع كل TAG200 فى ملف اكسل واحد و TAG500 فى ملف اكسل واحد 2 - تم تحديد المسار فى الكود بهذا الشكل "D:\Hero92" عند تصدير ملفات الاكسل لم يضع ملفات الاكسل فى المجلد المحدد فى المسار بل وضع ملفات الاكسل فى الــ D: بشكل مباشر و تم انشاء اسم ملف الاكسل بهذا الشكل (Hero92TAG200) ارغب فى ان يضع ملفات الاكسل فى المجلد المحدد فى المسار ويكون اسم ملف الاكسل رقم العمود فقط (TAG200) 3 - أرغب فى تحديد التاريخ ضمن الشروط تقبل خالص تحياتى
-
تفضل أستاذى العزيز مرفق المشروع وصورة توضح الاعمدة التى يتم عليها الشروط تقبل خالص تحياتى Students1.rar
-
hero92 بدأ بمتابعة أرغب فى تعديل الكود الى كود VB.net2012
-
استاذى الفاضل تم تجربة الكود مع تعديل قاعدة البيانات ولم ينجح الامر الكود بعد التعديل يظهر خطأ ولم يعمل مرفق صور الخطأ تقبل خالص تحياتى Public Sub Main() Dim sConnectionString As String = ("Data Source=.;Initial Catalog=Users;Persist Security Info=True;User ID=sa;Password=123") Dim myCriteria As String myCriteria = "[Batchname]=" & (Me.Idate.Value) myCriteria = myCriteria & " And [Error]='" & Me.iLe.Text & "'" myCriteria = myCriteria & " And [CertificateType]='" & Me.iMod.Text & "'" Dim sSql As String = "select DISTINCT [CenterCode], [Batchname] as D1, [Error], [CertificateType] as M1 From candidaboz Where" & myCriteria Dim oConnection As SqlConnection = New SqlConnection(sConnectionString) Dim oCommand As SqlCommand = New SqlCommand(sSql, oConnection) Dim oDataReader As SqlDataReader = Nothing Try oConnection.Open() oDataReader = oCommand.ExecuteReader() If oDataReader.HasRows Then While oDataReader.Read() Dim sOutputPath As String = "D:\DATABASE" & oDataReader("CenterCode").ToString() Dim oDataAdapter As SqlDataAdapter = New SqlDataAdapter("select * from CIT where =CenterCode" & oDataReader("CenterCode").ToString(), oConnection) Dim oDataTable As DataTable = New DataTable oDataAdapter.Fill(oDataTable) DatatableToExcel(oDataTable, sOutputPath) End While MsgBox("Excel Exporting completed") Else MsgBox("No Records to Print") End If Catch ae As SqlException MsgBox(ae.Message()) Catch ae As Exception MsgBox(ae.Message()) Finally oDataReader.Close() oConnection.Close() End Try End Sub Private Sub DatatableToExcel(ByVal dtTemp As DataTable, ByVal strFileName As String) Dim _excel As New Microsoft.Office.Interop.Excel.Application Dim wBook As Microsoft.Office.Interop.Excel.Workbook Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet wBook = _excel.Workbooks.Add() wSheet = wBook.ActiveSheet() Dim dt As System.Data.DataTable = dtTemp Dim dc As System.Data.DataColumn Dim dr As System.Data.DataRow Dim colIndex As Integer = 0 Dim rowIndex As Integer = 0 For Each dc In dt.Columns colIndex = colIndex + 1 _excel.Cells(1, colIndex) = dc.ColumnName Next For Each dr In dt.Rows rowIndex = rowIndex + 1 colIndex = 0 For Each dc In dt.Columns colIndex = colIndex + 1 _excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName) Next Next wSheet.Columns.AutoFit() If System.IO.File.Exists(strFileName) Then System.IO.File.Delete(strFileName) End If wBook.SaveAs(strFileName) wBook.Close() _excel.Quit() End Sub
-
عليكم السلام ورحمة الله وبركاته الاستاذ الفاضل / كرم اولا احب ان اشكرك على الرد نعم بالفعل CIT هو استعلام فى قاعدة بيانات اكسس وقيمة Me.iIDD هى عبارة عن ارقام امام البيانات ليتم تجميع الارقام المتشابه مع بعض فى ملف اكسل تم عمل قاعدة بيانات جديدة بال Sql Sever وتم ربطها ب VB.net لكثرة البيانات بشكل كبير جدا وارغب فى تنفيذ نفس الكود على النظام الجديد ب 2012 Sql Sever + VB.net و لكن لم اتمكن من تنفيذ الكود على النظام الجديد بشكل كامل بعد التعديل والهدف من الكود لدى بيانات فى datagridview ارغب فى تصديرها لملفات اكسل و لكن بشروط يتم تحديد الشروط فى فورم بأختيار (التاريخ والناجحين والنوع ) وبعد ذلك يتم الضغط على زر يتم انشاء ملفات اكسل لكل رقم بالشروط المحدده وحفظه بأسم الرقم فى مجلد ارجو المساعدة لعمل نفس الاجراء على النظام الجديد تقبل خالص تحياتى
-
السلام عليكم أرغب فى تعديل الكود الى كود VB.net2012 تحياتىPrivate Sub a18_Click()On Error GoTo err_cmd_Export_to_pdf_ClickDim rst As DAO.RecordsetmyCriteria = "[Batchname]=" & DateFormat(Me.Idate)myCriteria = myCriteria & " And [Error]='" & Me.iLe & "'"myCriteria = myCriteria & " And [CertificateType]='" & Me.iMod & "'"Set rst = CurrentDb.OpenRecordset("select DISTINCT [CenterCode], [Batchname] as D1, [Error], [CertificateType] as M1 From candidabozala Where " & myCriteria)rst.MoveLast: rst.MoveFirstRC = rst.RecordCountFor I = 1 To RCMe.iIDD = rst!CenterCodeIf DCount("*", "CIT") <> 0 ThenOutput_Path = "\\Storagea\Cambridge IT\CIT Management\Batchname\7M\College\" & rst!CenterCodeDoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "CIT", Output_Path, TrueEnd Ifrst.MoveNextNext IMe.iIDD = ""rst.Close: Set rst = NothingMsgBox "Excel Exporting completed"cmd_Export_to_pdf_Click_Exit:Exit Suberr_cmd_Export_to_pdf_Click:If Err.number = 3021 ThenMsgBox "No Records to Print"Resume cmd_Export_to_pdf_Click_ExitElseMsgBox Error$End IfEnd Sub
-
ارجو المساعدة هل يوجد طريقة لغلق قاعدة البيانات على جميع المستخدمين
hero92 رد على hero92's موضوع في قواعد بيانات Microsoft Access
السلام عليكم ورحمة الله وبركاته الاساتذة / زهرة المحترمة اشكرك على حسن تعاونك معنا وسيتم الاطلاع على الرابط تقبلى خالص تحياتى -
يرجى حل مشكلة تشفير اسم المستخدم وكلمة المرور (الاستاذة زهرة)
hero92 رد على hero92's موضوع في قواعد بيانات Microsoft Access
الاستاذة / زهرة حفظها الله اشكرك على المجهود الرائع الذى بذلتيه فى هذا الموضع ولا احد ينكر انك استاذه وخبيره فى هذا المجال واعتذر عن عرض المشكلتين الذى واجهونى وأن شاء الله سأبحث عن هذا الموضوع فى اكثر من مكان للعثور على حلول تحياتى -
يرجى حل مشكلة تشفير اسم المستخدم وكلمة المرور (الاستاذة زهرة)
hero92 رد على hero92's موضوع في قواعد بيانات Microsoft Access
الاستاذة / زهرة المحترمة الف شكر على المجهود الرائع وجزاك الله خيرا ، ولكن تواجهنى مشكلة اخرى وهى : لايمكن التعديل على صلاحيات مستخدم او اضافة مستخدم جديد (فى حالة التعديل على صلاحيات مستخدم لن اتمكن من الدخول الى قاعدة البيانات ويظهر رسالة خطأ وعند اضافة مستخدم جديد يتم حذفه ) يرجى حل هذه المشكلة مرفق لسيادتك قاعدة البيانات يرجى التعديل عليها تم اضافة نموذج اسمه Users لاعطاء الصلاحيات منه او اضافة مستخدم جديد وتقبلى خالص تحياتى za-HH-END-.rar -
يرجى حل مشكلة تشفير اسم المستخدم وكلمة المرور (الاستاذة زهرة)
hero92 posted سؤال in قواعد بيانات Microsoft Access
الاستاذة / زهرة المحترمة اود افادتك بأنه تم المناقشة فى مشاركة سابقة معك بخصوص تشفير اسم المستخدم وكلمة المرور فى جدول users وجزاك الله خيرا تم تزويدى بالطريقة من قبلك وشرح سيادتك مرفق ادناه ، طبعا التشفير وفك التشفير يعمل عند استخدام قاعدة البيانات بطريقة نظامية عند الدخول يتم فك التشفير وعند الخروج يتم التشفير ولكن واجهتنى مشكلة وهى : تم حدث مشكلة فى قاعدة البيانات وتم اظهار رسالة من الويندوز بأنه سيتم اغلاق قاعدة البيانات مما ادى الى غلق قاعدة البيانات بطريقة غير نظامية ولكن عند فتح قاعدة البيانات مرة اخرى اتضح انه تم حذف اسماء المستخدمين وكلمات المرور من قاعدة البيانات لانه تم الخروج من قاعدة البيانات دون تشفير اسم المستخدم وكلمة المررو وهذا على حد علمى مرفق لسيادتك قاعدة البيانات التى تم التعديل عليها من قبلك يرجى تعديل كود التشفير اذا تم غلق قاعدة البيانات بأى طريقة ( نظامية اوغير نظامية ) يتم تشفير اسم المستخدم وكلمة المرور وعدم حذف اسم المستخدم وكلمة المرور للقدرة على الدخول لقاعدة البيانات مره اخرى وتقبلى خالص تحياتى تفضل اخي الكريم ارجو ان تنتبه للشرح بالتفصيل 1. قم بفتح قاعدة بياناتك الإساسية الأصلية ثم قم بحذف الكائنات التالية منها جدول USERS نموذج Form1 نموذج Main 2. قم بإستيراد الكائنات التالية من القاعدة التي عدلتها لك في المرفقات za-HH-up جدول USERS نموذج Form1 نموذج Main وحده نمطية بإسم Module1 ( يوجد بها كود التشفير وفك التشفير ) 3. اسماء المستخدمين وارقامهم السرية في الجدول Users هي admin 2014 user1 1234 user2 5678 user3 9876 الآن هي مشفره بالكامل لأنه عند اغلاق قاعدة البيانات تتم عملية تشفير الأسماء والارقام السريه وعند فتح قاعدة البيانات يتم فك التشفير عن الأسماء والارقام السريه عند محاولة اي شخص جلب البيانات من الجدول بواسطة برنامج الأكسيل فإنه سيحصل على مثل هذه الحروف ولن يستفيد شيء لأنها مشفره ولن يتم قبولها في قاعدة البيانات حتى يتم فك التشفير عنها وتقبلى خالص تحياتى za-HH-UP.rar -
كيفية منع تغير امتداد ملف اكسس الا بكلمة مرور
hero92 رد على hero92's موضوع في قواعد بيانات Microsoft Access
الاستاذة / زهرة المحترمة الف شكر على المجهود الرائع جزاك الله خيرا يااستاذه زهرة ويجعله فى ميزان حسناتك تقبلى خالص تحياتى -
كيفية منع تغير امتداد ملف اكسس الا بكلمة مرور
hero92 رد على hero92's موضوع في قواعد بيانات Microsoft Access
الاستاذة / زهرة المحترمة ليس هذه كل مكونات قاعدة البيانات قاعدة البيانات لدى يوجد بها بيانات وجداول واستعلامات وتقارير ونماذج وماكرو وموديول كثيرة جدا . اذا يوجد طريقة لتنفيذ تشفير وفك التشفير بيانات الحقلين اسم المستخدم وكلمة المرور فقط فى جدول Users على نفس القاعدة المرفقه وبعد ذلك يتم اضافة هذا التعديل الى قاعدة البيانات الاساسية لدى يرجى تزويدى بها ، واذا لم يوجد فأنا شاكر لكى وشاكر على حسن تعاونك معنا وسعة صدرك واقدم اعتذراى لازعاجك تقبلى خالص تحياتى -
كيفية منع تغير امتداد ملف اكسس الا بكلمة مرور
hero92 رد على hero92's موضوع في قواعد بيانات Microsoft Access
الاستاذة / زهرة مرفق قاعدة البيانات المطلوب عليها التعديل وتقبلى خالص تحياتى HH.rar