由 Form Textbox 上之 Record Insert 至 SQL Server |
Private Sub InsertStaff() Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Admin; Integrated Security=SSPI" Dim con1 As SqlConnection = New SqlConnection(connectionString1) con1.Open() Dim SqlString1 As String = "INSERT INTO dbo.Staff (Staff_ID, Staff_Name, Staff_Login, Staff_Password) " & _ "VALUES(@Staff_ID, @Staff_Name, @Staff_Login, @Staff_Password)" Dim cmd1 As SqlCommand = New SqlCommand(SqlString1, con1) cmd1.Parameters.AddWithValue("@Staff_ID", TextBox1.Text.ToString.Trim) cmd1.Parameters.AddWithValue("@Staff_Name", TextBox2.Text.ToString.Trim) cmd1.Parameters.AddWithValue("@Staff_Login", TextBox3.Text.ToString.Trim) cmd1.Parameters.AddWithValue("@Staff_Password", TextBox4.Text.ToString.Trim) cmd1.ExecuteNonQuery() cmd1.Dispose() con1.Dispose() End Sub |