المشاركات : 4
المواضيع 1
الإنتساب : Aug 2014
السمعة :
0
الشكر: 3
تم شكره 0 مرات في 0 مشاركات
"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
المشاركات : 60
المواضيع 0
الإنتساب : Apr 2017
السمعة :
7
الشكر: 98
تم شكره 105 مرات في 75 مشاركات
جرب هذا التنسيق
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
المشاركات : 4
المواضيع 1
الإنتساب : Aug 2014
السمعة :
0
الشكر: 3
تم شكره 0 مرات في 0 مشاركات
(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
الملفات المرفقة
Loan.rar (الحجم : 167.19 ك ب / التحميلات : 46)
المشاركات : 60
المواضيع 0
الإنتساب : Apr 2017
السمعة :
7
الشكر: 98
تم شكره 105 مرات في 75 مشاركات
تفصل تعديل Form1 ولكن لا يشمل جميع الأزارير
الملفات المرفقة
Form.rar (الحجم : 28.42 ك ب / التحميلات : 55)
المشاركات : 4
المواضيع 1
الإنتساب : Aug 2014
السمعة :
0
الشكر: 3
تم شكره 0 مرات في 0 مشاركات
(17-04-17, 01:45 AM) عبـدالله كتب : تفصل تعديل Form1 ولكن لا يشمل جميع الأزارير
جزاك الله خيرا على الاهتمام والمتابعه الطيبه من حضرتك
بس عند الضغط على زر حفظ تظهر رساله خطاء عند امر cmd.ExecuteNonQuery()
overtflow
ولا يتم الحفظ
المشاركات : 60
المواضيع 0
الإنتساب : Apr 2017
السمعة :
7
الشكر: 98
تم شكره 105 مرات في 75 مشاركات
مشروعك لم يعمل عندي، ولكن اجتهاد قابل للخطأ،
بامكانك الاستفادة من طريقة الأكواد لفهم آلية العمل.
المشاركات : 4
المواضيع 1
الإنتساب : Aug 2014
السمعة :
0
الشكر: 3
تم شكره 0 مرات في 0 مشاركات
(17-04-17, 07:48 PM) عبـدالله كتب : مشروعك لم يعمل عندي، ولكن اجتهاد قابل للخطأ،
بامكانك الاستفادة من طريقة الأكواد لفهم آلية العمل.
اعيد واشكر حضرتك كثيرا ولم يشتغل بسبب VB 2017