12-05-16, 04:29 AM
الصفحات : 1 2
12-05-16, 04:55 AM
اخي الكريم نقطة ضعفي هي التعديل على المشاريع..
https://www.youtube.com/watch?v=yzWCw5yekgQ
https://www.youtube.com/watch?v=yzWCw5yekgQ
12-05-16, 08:44 AM
المثال مرفق
وكلمة المرور هي الدومين والنطاق الخاص بمنتدانا
هههههههههههههههههه
الصراحة اني مش مضبوط
انا مدمن الربط بالكود
الله المستعان
شلون نسيت
12-05-16, 11:01 AM
ام افهم كلمة المرور اخي سعود
ممكن تكتب كلمة المرور
ممكن تكتب كلمة المرور
12-05-16, 05:59 PM
يااخوان والله تعبت علماً باني طبقت كل الطرق التي تم طرحه ولكن مافي اي فية يعطيني مره رسالة تم التعديل ولكن لم يقوم بتغيير البيانات في قاعدة البيانات وبطريقة اخرى يقول لم يتم اعطاء قيمة لاكثر من معامل
تكفون ساعدوني تكفون بطريقة الابديت مع شرح يكون مع مثال فية اكثر من 20حقل والترقيم يكون كل سنة حسب مشروعي الموجود في الموضوع
تكفون تكفون لي ثلاثة ايام وان ابحث ولكن دون جدوى اودلوني على برنامج يقوم بكتابة الكود يكون مجاني
تكفون ساعدوني تكفون بطريقة الابديت مع شرح يكون مع مثال فية اكثر من 20حقل والترقيم يكون كل سنة حسب مشروعي الموجود في الموضوع
تكفون تكفون لي ثلاثة ايام وان ابحث ولكن دون جدوى اودلوني على برنامج يقوم بكتابة الكود يكون مجاني
12-05-16, 08:01 PM
نصيحة اخي الكريم ان تعمل مثال جديد وتقوم بتسجيل عملك بفيديو وترفعه لنا لرؤية خطوات عملك.
فقط يمكن معرفة السر بعدم حصولك على المطلوب.
صمم مثال جديد اترك مشروعك الحالي.
فقط يمكن معرفة السر بعدم حصولك على المطلوب.
صمم مثال جديد اترك مشروعك الحالي.
13-05-16, 03:27 AM
اخي الكريم ربما المشكلة تكمن في ترتيب البارامترات
قم بتجربة الكود بالطريقة التالية
قم بتجربة الكود بالطريقة التالية
PHP كود :
Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click
''UPDATERECORD()
'On Error Resume Next
Dim SQL As String = " Update tbl1 SET b=@b, B3=@B3, B4=@B4, B5=@B5, B6=@B6, B7=@B7, B8=@B8, B10=@B10, B11=@B11, B12=@B12 WHERE ID=@id"
Dim CMD As OleDb.OleDbCommand = New OleDb.OleDbCommand
CMD.CommandType = CommandType.Text
CMD.Connection = con
With CMD
.Parameters.AddWithValue("@b", Me.tex.Text.Trim)
.Parameters.AddWithValue("@B3", Me.tex5.Text.Trim)
.Parameters.AddWithValue("@B4", Me.tex6.Text.Trim)
.Parameters.AddWithValue("@B5", Me.tex7.Text.Trim)
.Parameters.AddWithValue("@B6", Me.tex8.Text.Trim)
.Parameters.AddWithValue("@B7", Me.tex9.Text.Trim)
.Parameters.AddWithValue("@B8", Me.tex10.Text.Trim)
.Parameters.AddWithValue("@B10", Me.tex12.Text.Trim)
.Parameters.AddWithValue("@B11", Me.tex20.Text.Trim)
.Parameters.AddWithValue("@B12", Me.tex11.Text.Trim)
.Parameters.AddWithValue("@id", Me.IDLb.Text.Trim)
End With
CMD.CommandText = SQL
If con.State = ConnectionState.Open Then con.Close()
con.Open()
CMD.ExecuteNonQuery()
con.Close()
End Sub
13-05-16, 04:00 AM
نعم اخي كما قال الاخ Adrees انت لديك مشكلة في عدد البارمترات بين جملة الاستعلام و كائن الكوماند (لديك بارمتر واحد مختلف عن جملة الاستعلام)
الحقول لديك تحتاج لاعادة ترتيب و الكود كذلك يحتاج الى صياغة منظمة على اي حال هذا تعديل في المرفقات
الحقول لديك تحتاج لاعادة ترتيب و الكود كذلك يحتاج الى صياغة منظمة على اي حال هذا تعديل في المرفقات
13-05-16, 05:59 PM
(13-05-16, 04:00 AM)nonoms كتب : [ -> ]نعم اخي كما قال الاخ Adrees انت لديك مشكلة في عدد البارمترات بين جملة الاستعلام و كائن الكوماند (لديك بارمتر واحد مختلف عن جملة الاستعلام)
الحقول لديك تحتاج لاعادة ترتيب و الكود كذلك يحتاج الى صياغة منظمة على اي حال هذا تعديل في المرفقات
مشكور اخي والله انك ريحتني من هذا الهم
الصفحات : 1 2