Misiny_forever

أخوانى الأعزاء هذه هى اجابت سؤالى وهى استدعاء امساء جميع قواعد البيانات اللى قمت بعمل odbc لها من خالا ال sql SERVER Dim db As New ADODB.Connection Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset db.CursorLocation = adUseClient db.Open "DSN=master;UID=sa;Password=8888" cmd.CommandType = adCmdText cmd.CommandText = "Select * from dbo.sysdatabases" Set cmd.ActiveConnection = db rs.Open cmd, , adOpenKeyset, adLockOptimistic Form1.Caption = "No. of DB = " & rs.RecordCount For i = 1 To rs.RecordCount Combo1.AddItem rs.Fields("name") rs.MoveNext Next i rs.Close db.Close

أخى pharaonic اتمنى ان تقوم برفع البرنامج الذى قلت عنه حتى نستطيع من الاطلاع عليه ونقدر على تطويره

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

السلام عليكم ورحمة الله وبركاتة أخوانى الاعزاء هل لدى أحد الاعضاء برنامج يقوم بنطق الكلمات لكن باللغه العربية وليس باللغة الإنجليزية انا قمت بتصميم البرنامج باللغه الانجليزية وادرجته للأخوه الاعضاء ولكن انا اريد اى أداة تقوم بنطق الكلمات والحروف باللغه العربية اتمنى الرد سريعا من الاخوه الاعضاء

الأخ العزيز يمكنك استدام كلا من البرامج setup factory او installshield ونظرا لقوتهم فى عمل حزم التثبيت وللعلم فأن حزم التثبيت الخاصة بالفيجوال بيزك ضعيفة

السلام عليكم ورحمة الله وبركاتة إخوانى الاعزاء ياريت تشوفوا الكود ده وتقوليلى ايه الغلط فيه لانى لما بنفذ الكود من غير جملة where الكود بيشتغل ويختار كل السجلات لكن لما بعمل جملة where بيرجع كل السجلات برضه والمفروض انه يرجع بس عدد السجلات الموجوده بين التاريخين اللى انا مختار بيهم If Text1.Text = "" Or Combo1.Text = "" Then MsgBox ("Please select the service name and Insert the cost per minute to calculate"), vbInformation, "Statistic" Text1.SetFocus Else On Error GoTo ErrorPara Dim cn As New ADODB.Connection Dim rs1 As New ADODB.Recordset Dim cmd1 As New ADODB.Command cn.CursorLocation = adUseClient Dim s As String Dim d As String Label2.Caption = s cn.Open s cmd1.CommandType = adCmdText cmd1.CommandText = "Select sum(actual_durations) as cnt,count(ani) as cnt1 from trans where call_date between '" & DateValue(Text8.Text) & "' And '" & DateValue(Text9.Text) & "'" Set cmd1.ActiveConnection = cn rs1.Open cmd1, , adOpenKeyset, adLockOptimistic Text2.Text = (rs1!cnt / 60) * Trim(Text1.Text) & " K.D" Text3.Text = rs1!cnt1 Text4.Text = rs1!cnt / 60 Text5.Text = rs1!cnt rs1.MoveNext rs1.Close cn.Close ErrorPara: OpenConnections = False UpdateLog "Error Opening Connections -- " & Now() & ", " & _ Err.Number & ", " & Err.Description End If

السلام عليكم ورحمة الله وبرماتة أخوانى الاعزاء , انا شغال على الاس كيو ال سيرفر وعندى مثلا 20 قاعدة بيانات داخله ازاى اقدر استدعى اسماء قواعد البيانات اللى موجوده داخل الاس كيو ال سيرفر كلها فى combo box مع العلم انى عامل لكل قواعد البيانات اللى عندى ODBC Connection .

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

إلى الاخ العزيز المظفر السليمى دى طريقة عمل تدرج على الفورم ويمكنك من خلالها التحكم فى الالوان gradient.rar

أخى العزيز يمكنك استخدام جملة sql لتنفيذ الاستعلام الذى تريده فمثلا للإستعلام عن اليوم يمكنك عمل تكيست بوكس ولتكن text1 ثم عمل زر ليقوم بتنفيذ عملية البحث والاستعلام SQL = "select * from Tperson where fdate = " & Text1.Text & " " Set z1 = d.OpenRecordset(SQL, dbOpenDynaset) وتقوم بعد ذلك بإستراجع البيانات داخل الحقول التى قمت بتحدديها هذه الطريقه استخدمتها فى الاستعلام بإستخدام تقنيه ال DAO لكنك يمكنك إستخدامها مع ADO ايضا

أخى العزيز نورتون ممكن توضح اى طريقة نسخ ومن اى نوع من الملفات تود النسج الى السكيول سيرفر هل تريد النسخ من قاعدة بيانات اكسيس او من ملف اكسيل او من بارادوكس او من اوراكل حتى تتم عملية النسخ. وهذه الطريقة هى لكل انواع الملفات السابقة قم بفتح السكيول سيرفر ثم قم بإنشاء قاعدة بيانات على الاسكيول سيفر بنفس اسم قاعدة البيانات القديمة او بأى اسم تريده ثم قم بالضغط كليك يمين على قاعدة البيانات الجديدة واختار All task ثم Import data ثم اضغط next ومن data source اختار نوع ملف المصدر المراد النسخ منه ثم اختر الملف نفسه فأن كان النسخ من ملف اكسيس اختار microsoft access ثم فى خانه file name اختر قاعدة البيانات المراد نسخ البيانات منها. ثم اكمل العملية لأخر خطوه وسوف تنسخ الملفات اوتوماتيكايا الى قاعدة بيانات على الاسكيول

السلام عليكم ورحمة الله وبركاتة أخوانى الاعزاء لى سؤال ويارب تكون عون لى وفى إجابته انا بعمل تقرير دلوقتى والتقرير ده عباره عن فاتوره فى بدايه التقرير من فوق فى الصفحه بيكون التاريخ واسم العميل ورقم الفاتوره وكده انا عايز فى المربع اللى بنكتب فيه الاصناف ان لو العميل طلب صنف واحد يعنى مثلا ريكورت ست واحد يبقى التقرير هيتطبع بقيمه واحده بس والخطوط كلها اوتوماتيك هتبقى مرسموه حولين ريكورد واحد وهكذا لو طلب العميل 3 اصناف مثلا يبقى عندى 3 ريكورد ست والخطوط تترسم حولين 3 ريكورد ست بس ولو اكثر هيحصل التغير على حسب الاصناف اللى دخلت يارب اكون وضحت ليكوا طلبى واتمنى منكوا المساعده فى اقرب فرصه

السلام عليكم ورحمة الله وبركاتة أخوانى الأعزاء ده كود ممكن يقلل الوقت بتاع كود ال clear لما يكون عندى عدد كبير من التكست بوكس على نفس الفورم وعاوز اعملهم clear كلهم فى نفس الوقت ده كود بيعمل الامر ده فى 3 سطور برمجية فقط أخوكوا / محمد المسينى Clear.rar

تحياتى لكم جميعا على ردكم الجميل والى الأمام دائما بإذن الله

السلام عليكم ورحمة الله وبركاتة أخوانى الأعزاء الملف المرفق يحتوى تقريبا 5 برامج مفيده لدرجة ما تتخيلوها يارب الكل يستفيد منها وللعلم هذه البرامج منقوله من موقع رأيته وانا اتصفح الانترنت بس صدقونى البرامج دى مفيده جدا جدا اجدا . أخوكوا / محمد المسينى very good examples.rar