ahmad kalil

السلام عليكــم ورحمـة الله وبركاتــه ،، sqls = "select name1+' '+name2+' '+name3 as name from table1" مع ملاحظة ترك فراغ بين علامتي ' '

السلام عليكــم ورحمـة الله وبركاتــه ،، لكي تسند القيمة العائدة من جملة sql sqls = "select max(action) as num1 from sitevehicle1 " هنا as num1 وضعنا بها اكبر قيمة وكذلك الحال count وللتعامل مع القيمة n = rs.Fields("num1")

السلام عليكــم ورحمـة الله وبركاتــه ،، هل هناك برنامج بدات به (فارفق البرنامج للتعديل عليه) اما تريد افكار

السلام عليكــم ورحمـة الله وبركاتــه ،، اولا فكرة جميلة ولكن .... ولااريد ان اخرج عن مواضيع المنتدى سانصحك بشيء كان احد الاشخاص يبحث بالانترنت عن مواقع مخلة بالاداب ووجد موقع يشترك به بحيث هذا الموقع يزوده بشكل دوري عن امور فاسدة وقام هذا الرجل بتوزيع الرابط ل…

السلام عليكــم ورحمـة الله وبركاتــه ،، الفكرة ليست صعبة ولكن تحتاج عدة ظوابط مثلا تاريخ احتساب السنة هل هي من تاريخ التعين في حال اخذ وقت اكثر من ساعة هل تستقطع من عدد الساعات المستحقة له هل تضاف عدد الساعات المستحقة المتبقية من سنة ماضية الى سنة قادمة وغيرها…

السلام عليكــم ورحمـة الله وبركاتــه ،، كونك تستخدم الاداة ADO في البرنامج فيمكن الاعتماد عليها في البرمجة من غير الاداة Adodc1 وهذا طريقة اخرى لنفس المثال (وهي افضل من الطرق السابقة) ADO3.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، وهذه طريقة اخرى ADO2.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، ارفقت طريقة للتحديث ولكن هناك طرق اخرى ADO.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، اذا كنت صممت برنامج VB مع قاعدة بيانات اكسس وقمت بتحويل قاعدة البيانات الى sqlserver نفذ البرنامج وستعرف ماهو الفرق.. طبعا مع التغير في طريقة الربط بقاعدة البيانات التي ذكرت سابقا بالنسبة للاداة ADO قوانينها ثابتة سواء ف…

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

السلام عليكــم ورحمـة الله وبركاتــه ،، تحتاج تعديل كود الاتصال ليصبح كالتالي db1.Open "Provider = SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=program name;Data Source=server name" وتحتاج تحويل قاعدة البيانات من اكسس الى sql…

السلام عليكــم ورحمـة الله وبركاتــه ،، الموديل يستخدم لوضع كود يستخدم مع كل Form بدل ماتكتب الكود مع كل فورم مثلا تكتبة في موديل مثلا كود الاتصال بقاعدة البيانات Public db As New ADODB.Connection Public rs As New ADODB.Recordset Public sqlss As String Sub mai…

السلام عليكــم ورحمـة الله وبركاتــه ،، sqls2 = "update [table] set [name] = 'new name'

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

السلام عليكــم ورحمـة الله وبركاتــه ،، في عمليات التحديث او الاضافة او الحذف سواء في DataGrid او غيرها تحتاج لعملية تحديث الجدول المطلوب مثلا تم اضافة قيد الى جدول الاسماء اي عند النقر على زراضافة تنقسم العملية قسمين اضافة الى جدول بكود واعادة قراة البيانات ب…

السلام عليكــم ورحمـة الله وبركاتــه ،، sqls = "select max(action) as num1 from rentalvehicle1 " If rs.State = adStateOpen Then rs.Close rs.Open sqls, db, adOpenKeyset, adLockPessimistic If IsNull(rs.Fields("num1")) Then Me.Text7 = 1 Exit Sub End If n = rs.Fie…

السلام عليكــم ورحمـة الله وبركاتــه ،، هذه طريقة لاظهار صورة بجانب command ppp.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، Dim m, i, str1 Dim str2, str3, str4 k = Trim(Me.Text10) m = Len(k) For i = 1 To m If i < 3 Then GoTo p1: If i > 10 Then GoTo p2: str1 = Mid(k, i, 1) str2 = str2 + str1 Me.Text11 = str2 GoTo p1: p2: str3 = Mid(k, i, 1) st…

السلام عليكــم ورحمـة الله وبركاتــه ، sqls1 = "select * from table" If rs3.State = adStateOpen Then rs3.Close rs3.Open sqls1, db, adOpenKeyset, adLockPessimistic n = rs3.RecordCount السطر الاخير يعطيك عدد التحاليل استنادا الى الجدول وكم سجل به فهل هذا هو المق…

السلام عليكــم ورحمـة الله وبركاتــه ،، sqls1 = "select * from Table1" If rs3.State = adStateOpen Then rs3.Close rs3.Open sqls1, db, adOpenKeyset, adLockPessimistic rs3.MoveFirst Do code1 = rs3.Fields("code") name1 = rs3.Fields("name") 'Update Table2 sqls2 = "…