Hossein Bazyan
جمعه 30 شهریور 1386, 11:25 صبح
سلام
من جستجو کردم اما پیدا نکردم .
من تازه ASP.NET را شروع کرده ام . در نحوه ذخیره و جستجو در بانک مشکل دارم. بانک را باز میکنم و رکورد به رکورد جلو و عقب میرم اما هنگامی که میخوان ذخیره کنم خطا میده . در ضمن شیوه جستجو را هم بلد نیستم
تکه کدی که من برای ذخیره نوشته ام به شکل زیر است .
از دوستان تقاصا دارم که دو تابع یکی برای جستجو و دیگری برای حذف و اضافه رکورد برام بذارند.
در ضمن بانک من Access میباشد.
مرسی
Protected Sub DataBaseOpening()
m_cnADONetConnection.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Mijn projecten\ASP.NET\BiogasASP\Biogas.mdb"
m_cnADONetConnection.Open()
m_daDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Medewerker", m_cnADONetConnection)
m_cbCommandBuilder = New OleDb.OleDbCommandBuilder(m_daDataAdapter)
m_daDataAdapter.Fill(m_dtContacts)
m_rowPosition = m_dtContacts.Rows.Count
End Sub
Protects Sub Save()
dim drNewRow as DataRow = m_dtContacts.NewRow
With Me
drNewRow("RegisterDate") = .Calendar.TodaysDate '.txtdate.Text
drNewRow("DoorKiesNumber") = Microsoft.VisualBasic.Val(.txtDoor.Text)
drNewRow("EmailAdres") = .txtEmail.Text
drNewRow("HuisNummer") = .txthuisNummer.Text
drNewRow("Password") = .txtPassword.Text
drNewRow("Plaats") = .txtPlats.Text
drNewRow("PostCode") = .txtPostCode.Text
drNewRow("ProjectMedewerkerID") = .txtProjectMID.Text
drNewRow("TelefoonMobile") = .txtTelMobile.Text
drNewRow("TelefoonPrive") = .txtTelPrive.Text
drNewRow("TelefoonZaak") = .txtTelZaak.Text
drNewRow("Title") = .txtTitle.Text
drNewRow("Username") = .txtUsername.Text
drNewRow("VoorNaam") = .txtVoornaam.Text
drNewRow("Access") = .txtAccess.Text
drNewRow("Achternaam") = .txtAchternaam.Text
drNewRow("Land") = .cboLand.Text
drNewRow("Provincie") = .cboProvincie.Text
End With
m_dtContacts.Rows.Add(drNewRow)
m_daDataAdapter.Update(m_dtContacts)
End Sub
اینهم پیغام خطایی که میده
Syntax error in INSERT INTO statement.
من جستجو کردم اما پیدا نکردم .
من تازه ASP.NET را شروع کرده ام . در نحوه ذخیره و جستجو در بانک مشکل دارم. بانک را باز میکنم و رکورد به رکورد جلو و عقب میرم اما هنگامی که میخوان ذخیره کنم خطا میده . در ضمن شیوه جستجو را هم بلد نیستم
تکه کدی که من برای ذخیره نوشته ام به شکل زیر است .
از دوستان تقاصا دارم که دو تابع یکی برای جستجو و دیگری برای حذف و اضافه رکورد برام بذارند.
در ضمن بانک من Access میباشد.
مرسی
Protected Sub DataBaseOpening()
m_cnADONetConnection.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Mijn projecten\ASP.NET\BiogasASP\Biogas.mdb"
m_cnADONetConnection.Open()
m_daDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM Medewerker", m_cnADONetConnection)
m_cbCommandBuilder = New OleDb.OleDbCommandBuilder(m_daDataAdapter)
m_daDataAdapter.Fill(m_dtContacts)
m_rowPosition = m_dtContacts.Rows.Count
End Sub
Protects Sub Save()
dim drNewRow as DataRow = m_dtContacts.NewRow
With Me
drNewRow("RegisterDate") = .Calendar.TodaysDate '.txtdate.Text
drNewRow("DoorKiesNumber") = Microsoft.VisualBasic.Val(.txtDoor.Text)
drNewRow("EmailAdres") = .txtEmail.Text
drNewRow("HuisNummer") = .txthuisNummer.Text
drNewRow("Password") = .txtPassword.Text
drNewRow("Plaats") = .txtPlats.Text
drNewRow("PostCode") = .txtPostCode.Text
drNewRow("ProjectMedewerkerID") = .txtProjectMID.Text
drNewRow("TelefoonMobile") = .txtTelMobile.Text
drNewRow("TelefoonPrive") = .txtTelPrive.Text
drNewRow("TelefoonZaak") = .txtTelZaak.Text
drNewRow("Title") = .txtTitle.Text
drNewRow("Username") = .txtUsername.Text
drNewRow("VoorNaam") = .txtVoornaam.Text
drNewRow("Access") = .txtAccess.Text
drNewRow("Achternaam") = .txtAchternaam.Text
drNewRow("Land") = .cboLand.Text
drNewRow("Provincie") = .cboProvincie.Text
End With
m_dtContacts.Rows.Add(drNewRow)
m_daDataAdapter.Update(m_dtContacts)
End Sub
اینهم پیغام خطایی که میده
Syntax error in INSERT INTO statement.