prague12

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click


Dim conn_str = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\jk1db.mdf;Integrated Security=True;User Instance=True"
Dim Conn As New SqlConnection(conn_str)
' Conn.Open() '使用adapter 可以不用事先open ,ADAPTER會自己 open 和 close


Dim cmd_str_insert = " INSERT INTO [Table1] ([name], [pwd]) VALUES ('BBB', '777')"
Dim cmd_str_select = "select * from Table1 where name= @var " '可變參數只能放 >>查詢值
'--------------------------------------------------



'----sqlAdapter + sqlcommand -----------------
Dim myAdapter2 As New SqlDataAdapter '定義一組橋接器
Dim sql_cmd As New SqlCommand(cmd_str_select, Conn) '定義 動作電源器(sql命令,連線字串)
myAdapter2.SelectCommand = sql_cmd ' 動作電源器 插上 橋接器
'--------/sqlAdapter + sqlcommand/--------------------



'------sql安全參數給法-------------
sql_cmd.Parameters.AddWithValue("@var", "AAA") '動作電源器加入 安全sql參數 寫法1
'sql_cmd.Parameters.Add("@var", SqlDbType.NChar).Value = "name" '參數寫法2
'--------/sql安全參數給法/-----------



'--------------------------------------
Dim dss As New DataSet
myAdapter2.Fill(dss) '遠端執行select,並且回傳資料給本地 DatSet > ds

GridView_adapter.DataSource = dss '傳送給 資料表格來源 在本機記憶體裡

If dss.Tables.Count > 0 Then '可以測試insert 的確沒有回傳資料給 ds
GridView_adapter.DataBind() '綁到網頁畫面上去

End If
'-------------------------------

End Sub