vahidiran
سه شنبه 28 فروردین 1386, 13:04 عصر
کسی می تونه بگه ایراد این کد چیه همه اش ایراد syntex error می ده دیوانه شدم تمام دستوراتش و اسم فیلد ها و اسم جدول هم درسته :عصبانی: :عصبانی: :عصبانی:
جالب این جا است که این کد در aql view خود پایگاه داده کار می کنه
Dim Command As New OleDbCommand
Dim Dataconnection As New OleDbConnection
Dim StrSql As String
Dataconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurDir() & "\PostData.mdb"
StrSql = "Insert INTO EmployeeTable(NO,Name,Position,City) VALUES( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
Dataconnection.Open()
Command.CommandText = StrSql
Command.Connection = Dataconnection
Command.ExecuteNonQuery()
OleDbConnection1.Close()
جالب این جا است که این کد در aql view خود پایگاه داده کار می کنه
Dim Command As New OleDbCommand
Dim Dataconnection As New OleDbConnection
Dim StrSql As String
Dataconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurDir() & "\PostData.mdb"
StrSql = "Insert INTO EmployeeTable(NO,Name,Position,City) VALUES( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
Dataconnection.Open()
Command.CommandText = StrSql
Command.Connection = Dataconnection
Command.ExecuteNonQuery()
OleDbConnection1.Close()