منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

"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

جرب هذا التنسيق

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

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

(15-04-17, 02:55 PM)عبـدالله كتب : [ -> ]جرب هذا التنسيق   لاسف لم انجح فى تصحيح واكتشاف الخطاء مرفق المشروع برجاء المساعدة

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

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

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

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

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

overtflow  

 ولا يتم الحفظ

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

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

اعيد واشكر حضرتك كثيرا ولم يشتغل بسبب VB 2017