shahab2025
پنج شنبه 05 آبان 1390, 12:44 عصر
سلام دوستان
من برای اضافه کردن در بانک اطلاعاتی از پارامتر استفاده میکنم به صورت زیر :
extra_Command = "INSERT INTO Details (Driver_ID, Path_Number, Date, All_Sales, Naghdi, Cheque, Resid, Returned, Offs, Amount_Factor, " & _
"T_Factor, T_Resid, T_Returned, Visitors, Padash, Barnameh, Issue, Mosaedeh, Vam, Others, Off_Percent, Net_Sales, Month, Year) " & _
"VALUES (@Driver_ID , @Path_Number, @Date, @All_Sales, @Naghdi, @Cheque, @Resid, @Returned, @Offs, @Amount_Factor, " & _
"@T_Factor, @T_Resid, @T_Returned, @Visitors, @Padash, @Barnameh, @Issue, @Mosaedeh, @Vam, @Others, @Off_Percent, @Net_Sales, @Month, @Year)"
With db_Command.Parameters
.AddWithValue("@Driver_ID", Get_Driver_ID(lblDriverName.Text))
.AddWithValue("@Path_Number", txtPath.Text.Replace(",", ""))
.AddWithValue("@Date", PersianCalendar.VDate)
.AddWithValue("@All_Sales", txtKol.Text.Replace(",", ""))
.AddWithValue("@Naghdi", txtNaghdi.Text.Replace(",", ""))
.AddWithValue("@Cheque", txtCheque.Text.Replace(",", ""))
.AddWithValue("@Resid", txtResidi.Text.Replace(",", ""))
.AddWithValue("@Returned", txtBargashti.Text.Replace(",", ""))
.AddWithValue("@Offs", txtOffs.Text.Replace(",", ""))
.AddWithValue("@Amount_Factor", txtAmountFactor.Text.Replace(",", ""))
.AddWithValue("@T_Factor", txt_TFactor.Text.Replace(",", ""))
.AddWithValue("@T_Resid", txt_TResidi.Text.Replace(",", ""))
.AddWithValue("@T_Returned", txt_TBargashti.Text.Replace(",", ""))
.AddWithValue("@Visitors", txtVisitors.Text.Replace(",", ""))
.AddWithValue("@Padash", txtPadash.Text.Replace(",", ""))
.AddWithValue("@Barnameh", txtBarnameh.Text.Replace(",", ""))
.AddWithValue("@Issue", txtIssue.Text.Replace(",", ""))
.AddWithValue("@Mosaedeh", txtMosaedeh.Text.Replace(",", ""))
.AddWithValue("@Vam", txtVam.Text.Replace(",", ""))
.AddWithValue("@Others", txtOthers.Text.Replace(",", ""))
.AddWithValue("@Off_Percent", txtOffPercent.Text.Replace(",", ""))
.AddWithValue("@Net_Sales", txtNetSales.Text.Replace(",", ""))
.AddWithValue("@Month", PersianCalendar.VMonth)
.AddWithValue("@Year", PersianCalendar.VYear)
End With
مشکل اینجاست که این روند در بار اول صحیح عمل میکنه و اطلاعات را ذخیره میکنه
ولی در دفعات بعدی به تمامی متغیرهام که با@ شروع شده گیر میده
متن خطا ضمیمه است
من برای اضافه کردن در بانک اطلاعاتی از پارامتر استفاده میکنم به صورت زیر :
extra_Command = "INSERT INTO Details (Driver_ID, Path_Number, Date, All_Sales, Naghdi, Cheque, Resid, Returned, Offs, Amount_Factor, " & _
"T_Factor, T_Resid, T_Returned, Visitors, Padash, Barnameh, Issue, Mosaedeh, Vam, Others, Off_Percent, Net_Sales, Month, Year) " & _
"VALUES (@Driver_ID , @Path_Number, @Date, @All_Sales, @Naghdi, @Cheque, @Resid, @Returned, @Offs, @Amount_Factor, " & _
"@T_Factor, @T_Resid, @T_Returned, @Visitors, @Padash, @Barnameh, @Issue, @Mosaedeh, @Vam, @Others, @Off_Percent, @Net_Sales, @Month, @Year)"
With db_Command.Parameters
.AddWithValue("@Driver_ID", Get_Driver_ID(lblDriverName.Text))
.AddWithValue("@Path_Number", txtPath.Text.Replace(",", ""))
.AddWithValue("@Date", PersianCalendar.VDate)
.AddWithValue("@All_Sales", txtKol.Text.Replace(",", ""))
.AddWithValue("@Naghdi", txtNaghdi.Text.Replace(",", ""))
.AddWithValue("@Cheque", txtCheque.Text.Replace(",", ""))
.AddWithValue("@Resid", txtResidi.Text.Replace(",", ""))
.AddWithValue("@Returned", txtBargashti.Text.Replace(",", ""))
.AddWithValue("@Offs", txtOffs.Text.Replace(",", ""))
.AddWithValue("@Amount_Factor", txtAmountFactor.Text.Replace(",", ""))
.AddWithValue("@T_Factor", txt_TFactor.Text.Replace(",", ""))
.AddWithValue("@T_Resid", txt_TResidi.Text.Replace(",", ""))
.AddWithValue("@T_Returned", txt_TBargashti.Text.Replace(",", ""))
.AddWithValue("@Visitors", txtVisitors.Text.Replace(",", ""))
.AddWithValue("@Padash", txtPadash.Text.Replace(",", ""))
.AddWithValue("@Barnameh", txtBarnameh.Text.Replace(",", ""))
.AddWithValue("@Issue", txtIssue.Text.Replace(",", ""))
.AddWithValue("@Mosaedeh", txtMosaedeh.Text.Replace(",", ""))
.AddWithValue("@Vam", txtVam.Text.Replace(",", ""))
.AddWithValue("@Others", txtOthers.Text.Replace(",", ""))
.AddWithValue("@Off_Percent", txtOffPercent.Text.Replace(",", ""))
.AddWithValue("@Net_Sales", txtNetSales.Text.Replace(",", ""))
.AddWithValue("@Month", PersianCalendar.VMonth)
.AddWithValue("@Year", PersianCalendar.VYear)
End With
مشکل اینجاست که این روند در بار اول صحیح عمل میکنه و اطلاعات را ذخیره میکنه
ولی در دفعات بعدی به تمامی متغیرهام که با@ شروع شده گیر میده
متن خطا ضمیمه است