作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [.NET] 如何做新增删除修改功能？
时间Sat May 27 09:40:54 2006
※ 引述《rabbit1734 (幸福光点)》之铭言：
: 要怎样才能够
: 做新增 删除 修改 功能
: 因为很多书上 写得都不一样
: 有没有人可以救救我的啊
亮黄色的部份，自己填入适当的值...
水蓝色的部份，不是使用 SQL Server 的话，
就改成 OleDbConnection 或 OdbcConnection
OleDbCommand OdbcCommand
'放置於 Class 之前
Imports System.Data
'放置於 Sub 或者 Function 等区块中
Dim cnStr As String, sqlStr As String
Dim cn As New
SqlConnection, cmd As New
SqlCommand
cnStr = ""
cnStr &= "Data Source=" &
ServerName & ";"
cnStr &= "Database=" &
DefaultDB & ";"
cnStr &= "User ID=" &
UserID & ";"
cnStr &= "Password=" &
UserPwd & ";"
cn.ConnectionString = cnStr
cmd.Connection = cn
'新增
sqlStr = ""
sqlStr &= "Insert Into [" &
TableName & "] "
sqlStr &= "Values('" &
value1 & "','" &
value2 & "'")
cmd.CommandText = sqlstr
cmd.ExecuteNonQuery
'删除
sqlStr = ""
sqlStr &= "Delete From [" &
TableName & "] "
sqlStr &= "Where " &
field1 & "='" &
value1 & "' "
sqlStr &= "And " &
field2 & "='" &
value2 & "' "
cmd.CommandText = sqlstr
cmd.ExecuteNonQuery
'修改
sqlStr = ""
sqlStr &= "Update [" &
TableName & "] "
sqlStr &= "Set " &
field1 & "='" &
value1 & "' "
sqlStr &= "," &
field2 & "='" &
value2 & "' "
sqlStr &= "Where " &
field3 & "='" &
value3 & "' "
sqlStr &= "And " &
field4 & "='" &
value4 & "' "
cmd.CommandText = sqlstr
cmd.ExecuteNonQuery
---------------------------------------------------------------------------
MSDN Library 可以参考 (英文)
http://msdn.microsoft.com/library/
MSDN Library >
.NET Development > .NET Framework SDK > .NET Framework > Reference >
Class Library
> System.Data.SqlClient
> System.Data.odbc
> System.Data.Oledb
> System.Data.OracleClient
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43