منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اين الخطاء فى جمله insert into - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : اين الخطاء فى جمله insert into (/showthread.php?tid=20019)

اين الخطاء فى جمله insert into - MMKAREEM - 15-04-17

"INSERT INTO LOAN (Loan_no,StartDate,LoanAmount,MaturityDate,DaysInterest,Rate,TotailInterest)
        VALUES                       ('" & LoanNo.Text & "',
                                     '" & txtStartLoan.Text & "' ,
                                      " & txtAmount.Text & " ,
                                     '" & txtMatDate.Text & "' ,
                                     " & txtDaysInterest.Text & ",
                                     " & txtinterest.Text & ",
                                     " & txtTotailInterest.Text & ")")


عند تنفيذ الجمله تظهر رساله 
Nomber of query values and  destination fields are not the same

RE: اين الخطاء فى جمله insert into - عبـدالله - 15-04-17

جرب هذا التنسيق
PHP كود :
Dim sql As String = _
" INSERT INTO [LOAN] ( [Loan_no], [StartDate], [LoanAmount], [MaturityDate], [DaysInterest], [Rate], [TotailInterest] ) " & _
"             VALUES ( @Loan_no , @StartDate , @LoanAmount , @MaturityDate , @DaysInterest , @Rate , @TotailInterest  ) "

Dim cmd As New OleDbCommand( sql, conn)

cmd.Parameters.AddWithValue ( "@Loan_no"        ,  CDbl( LoanNo.Text )           )
cmd.Parameters.AddWithValue ( "@StartDate"      , CDate( txtStartLoan.Text )     )
cmd.Parameters.AddWithValue ( "@LoanAmount"     ,  CDbl( txtAmount.Text )        )
cmd.Parameters.AddWithValue ( "@MaturityDate"   , CDate( txtMatDate.Text )       )
cmd.Parameters.AddWithValue ( "@DaysInterest"   ,  Trim( txtDaysInterest.Text )  )
cmd.Parameters.AddWithValue ( "@Rate"           ,  Trim( txtinterest.Text )      )
cmd.Parameters.AddWithValue ( "@TotailInterest" ,  Trim( txtTotailInterest.Text) )

conn.Open()
cmd.ExecuteNonQuery()
conn.Close() 

إذا كانت قاعدة البيانات SqlServer غير OleDbCommand إلى SqlCommand

ولاحظ ان مربعات النص التي تحتوي أرقام يتم تحويل قيمتها الى رقم بواسطة CDbl
ولاحظ ان مربعات النص التي تحتوي تاريخ يتم تحويل قيمتها الى تاريخ بواسطة CDate
ولاحظ ان مربعات النص التي تحتوي نص يتم تنظيف المسافات الزائدة منها بواسطة Trim

RE: اين الخطاء فى جمله insert into - MMKAREEM - 16-04-17

(15-04-17, 02:55 PM)عبـدالله كتب : جرب هذا التنسيق Angel  لاسف لم انجح فى تصحيح واكتشاف الخطاء مرفق المشروع برجاء المساعدة
PHP كود :
Dim sql As String = _
" INSERT INTO [LOAN] ( [Loan_no], [StartDate], [LoanAmount], [MaturityDate], [DaysInterest], [Rate], [TotailInterest] ) " & _
"             VALUES ( @Loan_no , @StartDate , @LoanAmount , @MaturityDate , @DaysInterest , @Rate , @TotailInterest  ) "

Dim cmd As New OleDbCommand( sql, conn)

cmd.Parameters.AddWithValue ( "@Loan_no"        ,  CDbl( LoanNo.Text )           )
cmd.Parameters.AddWithValue ( "@StartDate"      , CDate( txtStartLoan.Text )     )
cmd.Parameters.AddWithValue ( "@LoanAmount"     ,  CDbl( txtAmount.Text )        )
cmd.Parameters.AddWithValue ( "@MaturityDate"   , CDate( txtMatDate.Text )       )
cmd.Parameters.AddWithValue ( "@DaysInterest"   ,  Trim( txtDaysInterest.Text )  )
cmd.Parameters.AddWithValue ( "@Rate"           ,  Trim( txtinterest.Text )      )
cmd.Parameters.AddWithValue ( "@TotailInterest" ,  Trim( txtTotailInterest.Text) )

conn.Open()
cmd.ExecuteNonQuery()
conn.Close() 

إذا كانت قاعدة البيانات SqlServer غير OleDbCommand إلى SqlCommand

ولاحظ ان مربعات النص التي تحتوي أرقام يتم تحويل قيمتها الى رقم بواسطة CDbl
ولاحظ ان مربعات النص التي تحتوي تاريخ يتم تحويل قيمتها الى تاريخ بواسطة CDate
ولاحظ ان مربعات النص التي تحتوي نص يتم تنظيف المسافات الزائدة منها بواسطة Trim


RE: اين الخطاء فى جمله insert into - عبـدالله - 17-04-17

تفصل تعديل Form1 ولكن لا يشمل جميع الأزارير

RE: اين الخطاء فى جمله insert into - MMKAREEM - 17-04-17

(17-04-17, 01:45 AM)عبـدالله كتب : تفصل تعديل Form1 ولكن لا يشمل جميع الأزارير

جزاك الله خيرا على الاهتمام والمتابعه الطيبه من حضرتك

بس عند الضغط على زر حفظ تظهر رساله خطاء عند امر cmd.ExecuteNonQuery()

overtflow  

 ولا يتم الحفظ

RE: اين الخطاء فى جمله insert into - عبـدالله - 17-04-17

مشروعك لم يعمل عندي، ولكن اجتهاد قابل للخطأ،
بامكانك الاستفادة من طريقة الأكواد لفهم آلية العمل.

RE: اين الخطاء فى جمله insert into - MMKAREEM - 18-04-17

(17-04-17, 07:48 PM)عبـدالله كتب : مشروعك لم يعمل عندي، ولكن اجتهاد قابل للخطأ،
بامكانك الاستفادة من طريقة الأكواد لفهم آلية العمل.
اعيد واشكر حضرتك كثيرا ولم يشتغل بسبب VB 2017