arman_Delta2002
پنج شنبه 30 آبان 1387, 18:48 عصر
سلام به همه مشکل کد من کجاست . بدون خطا کار میکنه ولی رکوردی اظافه نمیشه
Dim OleDbTransactionDelta As OleDbTransaction
Dim SQLString As String
'SQLString = "Insert Into Company(Company.CompanyName,Company.Modiramel,Comp any.Address,Company.CodePosti,Company.TellPhone1,C ompany.TellPhone2,Company.TellPhone3,Company.Fax1, Company.Fax2,Company.Fax3,Company.Mobile1,Company. Mobile2,Company.Mobile3,Company.E_Mail,Company.Web site,Company.Vigen,Company.Active,Company.Datetime Build,Company.DateTimeVigen " & "Values ('" & TextBox_CompanyName.Text & "','" & TextBox_Modiramel.Text &"','" & TextBox_Address.Text & "','" & TextBox_CodePosti.Text & "','" & TextBox_TellPhone1.Text & "','" & TextBox_TellPhone2.Text & "','" & TextBox_TellPhone3.Text & "','" & TextBox_Fax1.Text & "','" & TextBox_Fax2.Text & "','" & TextBox_Fax3.Text & "','" & TextBox_Mobile1.Text & "','" & TextBox_Mobile2.Text & "','" & TextBox_Mobile3.Text & "','" & TextBox_E_Mail.Text & "','" & TextBox_Website.Text & "','0','0','" & Now.Date.ToShortDateString & "')"
SQLString = "Insert Into Company(CompanyName,Modiramel,Address,CodePosti) " & _
"Values ('" & TextBox_CompanyName.Text & "','" & _
TextBox_Modiramel.Text & "','" & TextBox_Address.Text & "','" & TextBox_CodePosti.Text & "')"
OleDbCommand1 = New OleDbCommand(SQLString, OleDbConnection1)
OleDbTransactionDelta = OleDbConnection1.BeginTransaction
OleDbCommand1.Transaction = OleDbTransactionDelta
OleDbCommand1.ExecuteNonQuery()در این کد از اشیاء برای اتصال به بانک استفاده شده کد کامل نیست ولی روال کد تا آخر بدون اشکال کار میکنه ولی رکوردی اضافه نمیشه .
آیا باید تمام رکورد های رو مقدار دهی کنم ؟
من دارم برای اولین بار از تکنیک Transaction استفاده می کنم .
من از دستور On Error Resume Next استفاده نکردم . کد تا آخر اجرا میشود
Dim OleDbTransactionDelta As OleDbTransaction
Dim SQLString As String
'SQLString = "Insert Into Company(Company.CompanyName,Company.Modiramel,Comp any.Address,Company.CodePosti,Company.TellPhone1,C ompany.TellPhone2,Company.TellPhone3,Company.Fax1, Company.Fax2,Company.Fax3,Company.Mobile1,Company. Mobile2,Company.Mobile3,Company.E_Mail,Company.Web site,Company.Vigen,Company.Active,Company.Datetime Build,Company.DateTimeVigen " & "Values ('" & TextBox_CompanyName.Text & "','" & TextBox_Modiramel.Text &"','" & TextBox_Address.Text & "','" & TextBox_CodePosti.Text & "','" & TextBox_TellPhone1.Text & "','" & TextBox_TellPhone2.Text & "','" & TextBox_TellPhone3.Text & "','" & TextBox_Fax1.Text & "','" & TextBox_Fax2.Text & "','" & TextBox_Fax3.Text & "','" & TextBox_Mobile1.Text & "','" & TextBox_Mobile2.Text & "','" & TextBox_Mobile3.Text & "','" & TextBox_E_Mail.Text & "','" & TextBox_Website.Text & "','0','0','" & Now.Date.ToShortDateString & "')"
SQLString = "Insert Into Company(CompanyName,Modiramel,Address,CodePosti) " & _
"Values ('" & TextBox_CompanyName.Text & "','" & _
TextBox_Modiramel.Text & "','" & TextBox_Address.Text & "','" & TextBox_CodePosti.Text & "')"
OleDbCommand1 = New OleDbCommand(SQLString, OleDbConnection1)
OleDbTransactionDelta = OleDbConnection1.BeginTransaction
OleDbCommand1.Transaction = OleDbTransactionDelta
OleDbCommand1.ExecuteNonQuery()در این کد از اشیاء برای اتصال به بانک استفاده شده کد کامل نیست ولی روال کد تا آخر بدون اشکال کار میکنه ولی رکوردی اضافه نمیشه .
آیا باید تمام رکورد های رو مقدار دهی کنم ؟
من دارم برای اولین بار از تکنیک Transaction استفاده می کنم .
من از دستور On Error Resume Next استفاده نکردم . کد تا آخر اجرا میشود