Re: [.NET] 如何做新增刪除修改功能？

看板Visual_Basic作者fumizuki (矇面加菲獅)時間19年前 (2006/05/27 08:56)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串3/3 (看更多)

※ 引述《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