vbscript 数据库插入

Posted 2021-05-21

Public Sub Insert(_dto As UserDTO)
    Using con As New MySqlConnection(MyConnectionString)
        Using cmd As New MySqlCommand("User_Insert", con)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.AddWithValue("@_usertype", _dto.UserType)
            cmd.Parameters.AddWithValue("@_firstName", _dto.FirstName)
            cmd.Parameters.AddWithValue("@_lastName", _dto.LastName)
            con.Open()
            cmd.ExecuteNonQuery()
        End Using
    End Using
End Sub