Lập trình với access khó phết

Diễn đàn Window Form programming Lập trình với access khó phết

Thành viên	Nội dung
coder lap trinh khong bien gioi 137 bài	21-04-2009 10:38:16 bình thường thì thế này, "Insert Into Contacts (FirstName, LastName) Values (@FirstName, @LastName)" Nhưng với access phải chuyển thành INSERT [C#] string ConnString = Utils.GetConnString(); string SqlString = "Insert Into Contacts (FirstName, LastName) Values (?,?)"; using (OleDbConnection conn = new OleDbConnection(ConnString)) { using (OleDbCommand cmd = new OleDbCommand(SqlString, conn)) { cmd.CommandType = CommandType.Text; cmd.Parameters.AddWithValue("FirstName", txtFirstName.Text); cmd.Parameters.AddWithValue("LastName", txtLastName.Text); conn.Open(); cmd.ExecuteNonQuery(); } } [VB] Dim ConnString As String = Utils.GetConnString() Dim SqlString As String = "Insert Into Contacts (FirstName, LastName) Values (?,?)" Using conn As New OleDbConnection(ConnString) Using cmd As New OleDbCommand(SqlString, conn) cmd.CommandType = CommandType.Text cmd.Parameters.AddWithValue("FirstName", txtFirstName.Text) cmd.Parameters.AddWithValue("LastName", txtLastName.Text) conn.Open() cmd.ExecuteNonQuery() End Using End Using UPDATE [C#] string ConnString = Utils.GetConnString(); string SqlString = "Update Contacts Set FirstName = ?, LastName = ?"; using (OleDbConnection conn = new OleDbConnection(ConnString)) { using (OleDbCommand cmd = new OleDbCommand(SqlString, conn)) { cmd.CommandType = CommandType.Text; cmd.Parameters.AddWithValue("FirstName", txtFirstName.Text); cmd.Parameters.AddWithValue("LastName", txtLastName.Text); conn.Open(); cmd.ExecuteNonQuery(); } } [VB] Dim ConnString As String = Utils.GetConnString() Dim SqlString As String = "Update Contacts Set FirstName = ?, LastName = ?" Using conn As New OleDbConnection(ConnString) Using cmd As New OleDbCommand(SqlString, conn) cmd.CommandType = CommandType.Text cmd.Parameters.AddWithValue("FirstName", txtFirstName.Text) cmd.Parameters.AddWithValue("LastName", txtLastName.Text) conn.Open() cmd.ExecuteNonQuery() End Using End Using DELETE [C#] string ConnString = Utils.GetConnString(); string SqlString = "Delete * From Contacts Where FirstName = ? And LastName = ?"; using (OleDbConnection conn = new OleDbConnection(ConnString)) { using (OleDbCommand cmd = new OleDbCommand(SqlString, conn)) { cmd.CommandType = CommandType.Text; cmd.Parameters.AddWithValue("FirstName", txtFirstName.Text); cmd.Parameters.AddWithValue("LastName", txtLastName.Text); conn.Open(); cmd.ExecuteNonQuery(); } } [VB] Dim ConnString As String = Utils.GetConnString() Dim SqlString As String = "Delete * From Contacts Where FirstName = ? And LastName = ?" Using conn As New OleDbConnection(ConnString) Using cmd As New OleDbCommand(SqlString, conn) cmd.CommandType = CommandType.Text cmd.Parameters.AddWithValue("FirstName", txtFirstName.Text) cmd.Parameters.AddWithValue("LastName", txtLastName.Text) conn.Open() cmd.ExecuteNonQuery() End Using End Using SELECT [C#] string ConnString = Utils.GetConnString(); string SqlString = "Select * From Contacts Where FirstName = ? And LastName = ?"; using (OleDbConnection conn = new OleDbConnection(ConnString)) { using (OleDbCommand cmd = new OleDbCommand(SqlString, conn)) { cmd.CommandType = CommandType.Text; cmd.Parameters.AddWithValue("FirstName", txtFirstName.Text); cmd.Parameters.AddWithValue("LastName", txtLastName.Text); conn.Open(); using (OleDbDataReader reader = cmd.ExecuteReader()) { while (reader.Read()) { Response.Write(reader["FirstName"].ToString() + " " + reader["LastName"].ToString()); } } } } [VB] Dim ConnString As String = Utils.GetConnString() Dim SqlString As String = "Select * From Contacts Where FirstName = ? And LastName = ?" Using conn As New OleDbConnection(ConnString) Using cmd As New OleDbCommand(SqlString, conn) cmd.CommandType = CommandType.Text cmd.Parameters.AddWithValue("FirstName", txtFirstName.Text) cmd.Parameters.AddWithValue("LastName", txtLastName.Text) conn.Open() Using reader As OleDbDataReader = cmd.ExecuteReader() While reader.Read() Response.Write(reader("FirstName").ToString() + " " + reader("LastName").ToString()) End While End Using End Using End Using

Chủ đề gần đây :

Cùng loại :