.net連接資料庫
需要的Library
Imports System.Data
Imports System.Data.SqlClient
在web.config檔案要先設定資料庫連結參數
<connectionStrings>
<add name="資料庫參數名稱" connectionString="Data Source=資料庫IP;User Id=使用者名稱;Password=使用者密碼;Initial Catalog=資料表名稱" />
</connectionStrings>
在文件中設定連結參數
Dim connString As String = System.Web.ConfigurationManager.ConnectionStrings("資料庫參數名稱").ConnectionString '連接資料庫
Dim queryString As String = "" 'SQL指令
讀取資料表內容
queryString = "Select top 20 * From [資料庫名稱][dbo][資料表]" 'SQL指令 (此範例只讀取20列資料)
Dim conn As New SqlConnection(connString) '建立連結
Dim cmd As New SqlCommand(queryString, conn) '執行指令
cmd.Connection.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader()
While reader.Read()
Me.元件ID名稱.InnerText (or .InnerHTML) = reader("資料欄名稱")
End While
reader.Close()
conn.Close()
編輯/更新資料表內容
queryString = "Update [資料庫名稱][dbo][資料表] set " &
"資料欄名稱 = '" & RequestForm("表格名稱") (or Me.元件ID名稱.Value) & "', " &
"資料欄名稱 = '" & RequestForm("表格名稱") (or Me.元件ID名稱.Value) & "'"
Dim conn As New SqlConnection(connString) '建立連結
conn .Open()
Dim cmd As New SqlCommand(queryString, conn) '執行指令
cmd.ExecuteNonQuery()
conn.Close()
Response.Redirect("完成後執行的頁面", False)
刪除資料表內容
queryString = "Delete [資料庫名稱][dbo][資料表] Where 資料欄編號 = ' " & Request.QueryString("網址列上參數名稱") & "'"
Dim conn As New SqlConnection(connString) '建立連結
conn .Open()
Dim cmd As New SqlCommand(queryString, conn) '執行指令
cmd.ExecuteNonQuery()
conn.Close()
Response.Redirect("完成後執行的頁面", False)
