作者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