由 Form Textbox 上之 Record Insert 至 SQL Server

 

   由 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