هل من الممكن تعدل الكود بحيث يرتب id تنازلي من 2 الي الاعلي
و سوالي كيف لو اردت الان اضيف صف جديد و عمود جديد
لانني احتاج اضافة 36 عمود و 164 صف
طلب عمل مشروع ( ربط قاعدة بيانات اكسس مع قاعدة بيانات mysql )
اخي حسام قمت بتعديل الكود و اضفت عمود و صف وعمل الكود بدون مشاكل لكن حبيت تشوفة ممكن انا عامل خطاء
Sub InsertIntoMySQL()
Dim height As Long
Dim rowtable As Long
Dim strSQL As String
Dim oConn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 5.2 ANSI Driver};SERVER=localhost;DATABASE=etheer;USER=root;PASSWORD=1234;Option=3"
height = Worksheets("M1").UsedRange.Rows.Count
height = 5
Dim recordsAffected As Long
With Worksheets("M1")
For rowtable = 2 To height
x1 = esc(Trim(.Cells(rowtable, 1).Value))
x2 = esc(Trim(.Cells(rowtable, 2).Value))
x3 = esc(Trim(.Cells(rowtable, 3).Value))
x4 = esc(Trim(.Cells(rowtable, 4).Value))
strSQL = "UPDATE M1 SET column1 = '" & x1 & "', column2 = '" & x2 & "', column3 = '" & x3 & "', column3 = '" & x4 & "' WHERE id ='" & rowtable & "'"
oConn.Execute strSQL, recordsAffected
If recordsAffected = 0 Then
strSQL = "INSERT INTO M1 (id ,column1, column2, column3, column4) VALUES ('" & rowtable & "','" & x1 & "', '" & x2 & "', '" & x3 & "', '" & x4 & "')"
oConn.Execute strSQL, recordsAffected
End If
Next rowtable
End With
MsgBox "Insert with success " & Trim(Str(rowtable - 2)) & " records", vbInformation, "Verification Data Entry"
ErrHandler:
If Err.Description <> "" And Err.Source <> "" Then
MsgBox Err.Description, vbCritical, Err.Source
End If
End Sub
Function esc(txt As String)
esc = Trim(Replace(txt, "'", "\'"))
End Function
لم تبيقي معي سوي مشكلة الترتيب التنازلي
وجزاك الله الف خير علي ما تقدمة من خدمة الاعضاء
بعد معاناة اكثر من اسبوعين لليل نهار قراءة و اسالة في كل المنتديات الاجنبية والعربية انت حليت مشكلتي في كم ساعة
فا جزاك الله الف خير
اعدت تجريب الكود وصار يرتب تنزلي الان :)
السلام عليكم ..
بارك الله بك أخي ...و جزاك الله خيرا
جيد أنك حللت مشكلة الترتيب و إضافة عمود و سطر .
لكن هناك خطأ في السطر :
column3 = '" & x4 & "' WHERE id ='" & rowtable
و المفروض :
column4 = '" & x4 & "' WHERE id ='" & rowtable
طبعا يتم ادخال الاسطر من 2 و حتى السطر المحدد بالمتحول height فيمكن تحديد القيمة بــ height = 5 ليأخذ البيانات حتى السطر رقم 5 و هكذا ..
لا إله إلا الله ... محمد رسول الله
لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة
المعرًف القديم : houssam11350_11350
من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر
ألف شكر حسام تم تعديل الخطاء من فرحتي بنجاح الكود الذي صممتة لي و اشتغل تمام كتبت رقم العمود خطاء
جزاك الله الف خير
اخي حسام عندي استفسار اخر
هل من الممكن عمل موقع علي شكل اكسل مثلا اريد عمل موقع تصميمة نفس شكل الاكسل ويكون تعليمي وحيوي
شفت كثير لغات vb.net و php و silver light
هل silverlight هي افضل لغة تنفع لمثل هذا المشروع ؟ ام vb.net ام php
السلام عليكم ... بارك الله بك أخي .
اقتباسهل silverlight هي افضل لغة تنفع لمثل هذا المشروع ؟ ام vb.net ام php
حقيقة لا استطيع الاجابة على هذا السؤال , فأنا لم اتعمق بالــ PHP و لا تقنية Silver light ...
يمكن وضع سؤال بخصوص الموضوع في منتدى ASP.NET أو منتدى PHP أو منتدى silverlight
اعتقد انه من الافضل لك استخدام اللغة التي تتقنها .... و ستحتاج ربما للــ Javascript
لا إله إلا الله ... محمد رسول الله
لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة
المعرًف القديم : houssam11350_11350
من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر
هل من الممكن تشغيل Javascript علي استظافة لينكس ؟
الــ javascript تعمل على المستعرض أي من جهة الــ Client و ليس لها علاقة بالاستضافة في المخدم .
لا إله إلا الله ... محمد رسول الله
لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة
المعرًف القديم : houssam11350_11350
من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر