1.
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlClient
2.
Dim conn = New SqlConnection '設"Conn"為新的SQL連線
conn.ConnectionString = "Data Source=伺服器名稱;Initial Catalog=資料庫;PersistSecurity Info=True;User ID=帳號;Password=密碼" '指定SQL Server MDF檔來源
conn.ConnectionString = "Data Source=伺服器名稱;Initial Catalog=資料庫;PersistSecurity Info=True;User ID=帳號;Password=密碼" '指定SQL Server MDF檔來源
conn.Open() '開啟連線
Dim strinsert As String = "insert into account (account,password)" '把SQL指令先轉成字串
strinsert &= "Values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
Dim cmnd As SqlCommand = New SqlCommand(strinsert, conn) '定義cmnd為SqlCommand指令
cmnd.ExecuteNonQuery() '呼叫Cmnd執行Sql指令
MessageBox.Show("Insert Complete")
conn.Close() '結束連線
沒有留言:
張貼留言